card.asp

有关遗传算法的例子

<!--#include file="conn.asp" -->
<%
username=Rq("username")
card1=Rq("card1")
card2=Rq("card2")

if Rq("username")="" or Rq("card1")="" or Rq("card2")="" or not IsNumeric(Rq("card1")) or not IsNumeric(Rq("card2")) then
call msgbox_j("请输入卡号跟密码，而且必须为数字","location.href='"&request.servervariables("HTTP_REFERER")&"'")
Response.end
end if

chkvercode   '///检测验证码
if not test_user(username) then
call msgbox_j("找不到你想要充值的用户","location.href='"&request.servervariables("HTTP_REFERER")&"'")
Response.end
end if

'///////////////////////////////////////////
'	打开用户表链接，为后面充值做准备
'///////////////////////////////////////////
      set rsadd=server.createobject("adodb.recordset")
      sqladd="select id,用户名,到期时间,点数,级别,网吧IP from 会员 where 用户名='"&username&"'"
      rsadd.open sqladd,conn,1,3

set rs=server.createobject("adodb.recordset")
sql="select * from 会员卡 where 卡号="&Rq("card1")&" and 密码="&Rq("card2")&" and 状态='正常'"
rs.open sql,conn,1,3
if rs.eof then
call msgbox_j ("错误的充值卡号或密码，或可能己被使用...!","location.href='"&request.servervariables("HTTP_REFERER")&"'")
response.end
end if

site_card_ds=rs("点数")
site_card_date=rs("有效期")
site_card_vip=rs("会员级别")
site_card_money=rs("金额")

'//////////////////充值模块///////////////////////////
if not isnull(site_card_ds) then
	rsadd("点数")=cint("0" & rsadd("点数"))+cint(site_card_ds)
	rsadd("级别")="1"
	session("grade")=site_card_vip
	addfsmess="成功往用户["&username&"]充入点数["&site_card_ds&"]点"
	
	if username=session("username") then
	call write_userlog(session("username"),"点数充值","成功往帐号充入，"&site_card_ds&"点","0","0")
	else
	call write_userlog(session("username"),"赠送点数","赠送给："&username&"，"&site_card_ds&"点","0","0")
	call write_userlog(username,"收到赠送","赠送人："&session("username")&"，"&site_card_ds&"点","0","0")
	end if

elseif not isnull(site_card_date) then
	if rsadd("到期时间")>now() then   				'/////检查用户剩余时间
	rsadd("到期时间")=rsadd("到期时间")+site_card_date
	else
	rsadd("到期时间")=now()+site_card_date
	end if
	
	rsadd("级别")=site_card_vip
	session("grade")=site_card_vip
	addfsmess="成功给用户["&username&"]增加有效期["&site_card_date&"]天"
	
	if username=session("username") then
	call write_userlog(session("username"),"包月充值","成功往帐号充入有效期，"&site_card_date&"天","0","0")
	else
	call write_userlog(session("username"),"赠送包月","赠送给："&username&","&site_card_date&"天有效期","0","0")
	call write_userlog(username,"收到赠送","赠送人："&session("username")&","&site_card_date&"天有效期","0","0")
	end if

else
	call Write_CwTab("错误","充值卡",site_card_money,username,"卡号密码正确，但卡类型不确定")
	call msgbox_j("未知的充值卡类型，请联系管理员处理","location.href='"&request.servervariables("HTTP_REFERER")&"'")
	Response.end
end if

'///////////////////////////////////////////////////////
rs("状态")="己使用"
rs("使用者")=username
rs("使用时间")=now()
rs.update
rsadd.update
rsadd.close

	call Write_CwTab("入帐","充值卡",site_card_money,session("username"),"成功")

	call msgbox_j(addfsmess,"location.href='"&request.servervariables("HTTP_REFERER")&"'")
%>