哪个大大有在线加点的程序呀,发一个呀 [复制链接]

哪个大大有啊,谢谢了

顶

也给我留一份,谢谢.

<%
jdmust=10 '剩余点数大于此数才能加点
money=0 '在线加点服务收费
kou=0 '对贪心的惩罚，扣去的点数
if request("action")="dl" then
stats="提交"
call jd_1()

elseif request("action")="jd" then
stats="分配点数"
call jd_2()
else
stats="协议"
call jd_3()

end if
'-------------------------------------开始分配点数------------------------------------------
sub jd_2()
id=session("usern")
pass=session("userp")
char=session("userc")
llt=request("llt")
tlt=request("tlt")
mjt=request("mjt")
zlt=request("zlt")
jds=int(llt)+int(tlt)+int(mjt)+int(zlt)
if id="" or pass="" or char="" then
response.write ""
response.end
else
call check()
lva=session("lvp")
if lva call koudian()
response.write ""
response.end
else
call jiadian(llt,tlt,mjt,zlt,jds)
response.write ""
response.end
end if
end if
end sub
'--------------------------------扣点-----------------------------
sub koudian()
id=session("usern")
char=session("userc")
set rs8 = Server.CreateObject("ADODB.Recordset")
sql8="select * from Character where AccountID='"&id&"' and Name='"&char&"'"
rs8.open sql8,conn,1,3
rs8("LevelUpPoint")=rs8("LevelUpPoint")-kou
rs8.update
rs8.Close
end sub
'--------------------------------------加点----------------------------
FUNCTION jiadian(llt,tlt,mjt,zlt,jds)
id=session("usern")
char=session("userc")
set rs8 = Server.CreateObject("ADODB.Recordset")
sql8="select * from Character where AccountID='"&id&"' and Name='"&char&"'"
rs8.open sql8,conn,1,3
rs8("LevelUpPoint")=rs8("LevelUpPoint")-jds
rs8("Strength")=rs8("Strength")+llt
rs8("Dexterity")=rs8("Dexterity")+tlt
rs8("Vitality")=rs8("Vitality")+mjt
rs8("Energy")=rs8("Energy")+zlt
rs8("money")=rs8("money")-money
rs8.update
rs8.Close
END FUNCTION

'--------------------------------检验提交的表单的数据--------------------------------------------
sub jd_1()
char=request.form("userc")
id=request.form("usern")
pass=request.form("passw")
session("userc")=char
session("usern")=id
session("userp")=pass
if instr(usern,"'")<>0 or instr(usern,"=")<>0 or instr(usern,"%")<>0 or id="" or pass="" or char="" then
response.write ""
response.end
else
call check()
end if
call jd()
end sub

'-----------------------------检验-----------------------------------
sub check()
id=session("usern")
pass=session("userp")
char=session("userc")
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from MEMB_INFO where memb___id = '"&id&"' and memb__pwd='"&pass&"'"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.write ""
response.end
else
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where AccountID='"&id&"' and Name='"&char&"' and LevelUpPoint>="&jdmust
rs1.open sql1,conn,1,3
if rs1.eof or rs1.bof then
response.write ""
response.end
end if

end if
session("lvp")=rs1("LevelUpPoint")
session("ll")=rs1("Strength")
session("mj")=rs1("Dexterity")
session("tl")=rs1("Vitality")
session("zl")=rs1("Energy")
rs1.Close
rs.Close
end sub


'-----------------------------登陆---------------------------------
sub jd_3()
%>

注意! 全面改进了加线加点，应该全部人都能加了，如还有bug请通知偶!!现在加线不收费!! 角色名称 用户帐号 用户密码

<%=copy%>

<%end sub

'----------------------------分配点数--------------------------------
sub jd()
char=session("userc")
id=session("usern")
lvp=session("lvp")
session("lvp")=""
lls=session("ll")
mjs=session("mj")
tls=session("tl")
zls=session("zl")
%>

注意!     剩余点数是你的人物未加的点数，提交前请确认你要加的各项点数和不超过剩余点数，否则加点将不成功且将扣去你<%=kou%>点剩余点数作为你贪心的惩罚!!! 角色名称 <%=char%> 用户帐号 <%=id%> 剩余点数 <%=lvp%> 力量      <%=lls%> 敏捷      <%=mjs%> 体力      <%=tls%> 智力      <%=zls%>

<%=copy%>

<%end sub%>



新建文件放在注册文件里，文件名USERJD。ASP

非常感谢

全面改进了加线加点，应该全部人都能加了，如还有bug请通知偶!!现在加线不收费!.....................................................................................