分享

写回答

发帖

[提问] 救命啊,老外主站怎么又来事了,高手帮忙,谢谢!

GoDaddy GoDaddy 726 人阅读 | 1 人回复

发表于 2009-4-9 18:17:27 | 显示全部楼层 |阅读模式

我的网站是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 编辑 ]

回答|共 1 个

wowowo

发表于 2009-4-9 18:29:37 | 显示全部楼层

同1个 ZIP文件 我又解压 到另外1个子目录里,结果运行很正常的。现在就是 主站出问题,急啊我只有主站 百度收录了,这样我的站等于瘫痪了 高手来啊 谢谢!!!!主站的文件能开读写的权限全都开着了!!!

[ 本帖最后由 wowowo 于 2009-4-9 06:31 PM 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则