|
|
我的网站是http://www.518key.com/我是发放游戏序列号的站,同样的程序开了2个子站。http://18key.net.ru/
这2天主站点点击领去的时候就出:验证码错误的提示,不应该的啊,应该是成功领取的提示啊!!我在本机测试完绝对没问题的,2个子站也没问题,就只是主站这样,请高手指点问题是出哪了啊??
我的程序绝对是测试了 N 遍了~~我想应该是老外的问题,可又不知道具体是哪?请明白人指教啊,,,,
谢谢谢谢谢谢 了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/conn1.asp"-->
<!--#include file="../inc/safe.asp"-->
<!--#include File="../ip/function.asp" -->
<%
if request("game_id")="" or request("cdkey")="" then
response.redirect"../"
response.End()
end if
game_id=request("game_id")
ip=request.ServerVariables("REMOTE_ADDR")
cdkey=request("cdkey")
type1=request("type")
areaid=request("areaid")
Call GetRegion()
area=IP_province
strip=IP2Num(IP)
set rs=server.CreateObject("adodb.recordset")
rs.open "select cdkey88_game.game_name,cdkey88_tg.* from cdkey88_game,cdkey88_tg where cdkey88_game.game_id=cdkey88_tg.game_id and cdkey88_tg.f=1 and cdkey88_game.game_id="&game_id,conn,1,1
if type1="" or type1=1 then
cdkey_name=rs("cdkey_name")
elseif type1=2 then
cdkey_name=rs("cdkey1_name")
else
cdkey_name=rs("cdkey2_name")
end if
game_name=rs("game_name")
rs.close
set rs=nothing
if cstr(trim(request("code")))<>cstr(session("getcode")) then
response.write"<SCRIPT language=JavaScript>alert('对不起,你的验证码错误!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if request("at")=1 then
if trim(request("xf"))="" or trim(request("level"))="" then
response.write"<SCRIPT language=JavaScript>alert('对不起,你的等级或帐号消费情况没填写!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if instr(cdkey_name,"老朋友")>0 then
if instr(game_name,"大话西游")>0 then
if cint(request("xf"))=0 or cint(request("level"))<70 then
response.write"<SCRIPT language=JavaScript>alert('对不起,你的游戏角色不符合使用序列号的条件!');"
response.write"javascript:window.close()</SCRIPT>"
response.end
end if
else
if cint(request("xf"))=0 or cint(request("level"))<10 then
response.write"<SCRIPT language=JavaScript>alert('对不起,你的游戏角色不符合使用序列号的条件!');"
response.write"javascript:window.close()</SCRIPT>"
response.end
end if
end if
else
if cint(request("xf"))=1 or cint(request("level"))>10 then
response.write"<SCRIPT language=JavaScript>alert('对不起,你的游戏角色不符合使用序列号的条件!');"
response.write"javascript:window.close()</SCRIPT>"
response.end
end if
end if
end if
if request.cookies("get")="get" then
'---开始统计推广数据---
set rs=server.CreateObject("adodb.recordset")
sql="Select * from admin_count where game_id="&game_id&""
if type1<>"" then
sql=sql&" and typeid="&cint(type1)&""
end if
if areaid<>"" then
sql=sql&" and area_id="&cint(areaid)&""
end if
rs.open sql,conn,3,3
if rs.eof then
rs.addnew
rs("countcd")=1
rs("countzh")=0
rs("count_ip")=1
rs("game_count")=1
rs("date")=date()
rs("game_id")=game_id
rs("area_id")=areaid
rs("typeid")=type1
else
rs("countcd")=rs("countcd")+1
rs("count_ip")=rs("count_ip")+1
rs("game_count")=rs("game_count")+1
rs("date")=date()
end if
rs.update
rs.close
set rs=nothing
'---开始统计该IP所领取的数据---
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ip where ip='"&ip&"' and game_id="&game_id&" and f=1",conn,1,3
if rs.eof then
rs.addnew
rs("countcd")=1
rs("ip")=ip
rs("countip")=1
rs("countzh")=0
rs("date")=date()
rs("f")=1
rs("game_id")=game_id
else
if rs("date")=date() then
rs("countip")=rs("countip")+1
rs("countcd")=rs("countcd")+1
else
rs("countip")=rs("countip")+1
rs("countcd")=1
rs("date")=date()
end if
end if
rs.update
rs.close
set rs=nothing
'---开始把领取的数据加入会员数据库记录表中---//
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from cdkey88_get",conn,1,3
rs.addnew
rs("cdkey")=cdkey
rs("flag")=1
rs("member")=request.Cookies("member")
rs("area")=area
rs("ip")=ip
rs("game_id")=game_id
rs("dateandtime")=now()
rs.update
rs.close
set rs=nothing
'---推广表中的数据删除,表示该数据已被领取---//
SET del_rs=server.CreateObject("adodb.recordset")
del_rs.open "delete from admin_cdkey where cdkey='"&cdkey&"'",conn,3,3
del_rs.close
set del_rs=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select cdkey88_game.game_name,cdkey88_game.game_url,cdkey88_tg.* from cdkey88_game,cdkey88_tg where cdkey88_game.game_id=cdkey88_tg.game_id and cdkey88_tg.f=1 and cdkey88_game.game_id="&game_id,conn,1,1
if game_id=3 or game_id=4 or game_id=5 then
response.Write "<script>alert('网易大话和梦幻自由人序列号需要两次激活方可领取两次奖励,请保管好所领取到的序列号,以便15—30级时再次激活使用!');</Script>"
end if
Response.Cookies("user").Expires = Date + 1
response.Cookies("user")("date")=date()
response.Cookies("user")("game_id")=game_id
response.Cookies("user")("name")=request.Cookies("member")
response.Cookies("cdkey88_get").Expires= Date + 30
response.Cookies("cdkey88_get")=request.Cookies("cdkey88_get")&"<tr><td height=25 align=center>"&rs("game_name")&"</td><td align=center>"&cdkey_name&"</td><td align=center>"&cdkey&"</td><td align=center>"&ip&"</td><td align=center>"&now()&"</td></tr>"
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>恭喜!你成功领取了<%=rs("game_name")%>—<%=cdkey_name%></title>
<meta name="keywords" content="<%=keywords%>">
<META content="<%=copyright%>" name=copyright>
<meta name="author" content="<%=author%>">
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
color: #666666;
}
body {
background-color: #666666;
margin-top: 0px;
margin-bottom: 0px;
}
a:link {
color: #0066CC;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #0066CC;
}
a:hover {
text-decoration: underline;
color: #FF0000;
}
a:active {
text-decoration: none;
}
-->
</style></head>
<body>
[ 本帖最后由 wowowo 于 2009-4-9 06:18 PM 编辑 ] |
|