人物变身程序和在线加点系统

下面是大家想要的人物变身/变性系统

变身要求220级，变身之后10级，有少量变身点数

注意：变身之后，保留人物转身而获得的转生点数，请放心！

以下是  userbs.asp  文件

<!--#include file="conn.asp" -->
<%
lifeneedlevel=220     '需要多少级，最好不要小于220级

lifepercent=2   '变身获得点数百分比，即每次变身获得前次所有点数的2%，不想给的话就改成0

lifedonelevel=10 '变身后多少级

lifedoneexp=1000   '变身后经验多少

lifemoney=50000000   '变身需要多少钱

accountname=request.form("username")
password=request.form("password")
character=request.form("userchr")
newtype=request.form("new_type")

if instr(accountname,"'")<>0 then response.end
if instr(accountname,"=")<>0 then response.end
if instr(accountname,"%")<>0 then response.end

if accountname<>"" and password<>"" then

set rs = Server.CreateObject("ADODB.Recordset") dedecms.com

sql="select * from MEMB_INFO  where memb___id = '"&accountname&"' and memb__pwd='"&password&"'"

rs.open sql,conn,1,1

if rs.eof or rs.bof then

response.write "<script language=javascript>alert('\n帐号信息错误,请重新填写!');history.back()</script>"

response.end

else

set rs1 = Server.CreateObject("ADODB.Recordset")

sql1="select * from Character where AccountID='"&accountname&"' and Name='"&character&"' and cLevel>="&lifeneedlevel

rs1.open sql1,conn,1,3

if rs1.eof or rs1.bof then

%>
<script language=javascript>alert('\n<%=lifeneedlevel%>级才可以变身,下去好好修炼修炼吧!');history.back()</script>

<%
response.end

end if

if rs1("money")<lifemoney then

response.write "<script language=javascript>alert('\n身上没钱就不要来这里, 动手术是要花钱地!');history.back()</script>"

response.end

end if

set rs3 = Server.CreateObject("ADODB.Recordset")

sql3="select * from AccountCharacter  where id = '"&accountname&"'"

rs3.open sql3,conn,1,3

if rs3("gameidc")=rs1("name") then

response.write "<script language=javascript>alert('\n变身的人物不能最后退出游戏或在中!');history.back()</script>"

response.end

end if


if newtype<>0 and newtype<>1 and newtype<>16 and newtype<>17 and newtype<>32 and newtype<>33 and newtype<>48 then
response.write "<script language=javascript>alert('\n所选职业出现错误！');history.back()</script>"
response.end
end if


if newtype=0 then newname="法师"
if newtype=1 then newname="魔导师"
if newtype=16 then newname="剑士"
if newtype=17 then newname="骑士"
if newtype=32 then newname="弓箭手"
if newtype=33 then newname="圣射手"
if newtype=48 then newname="魔剑士"


if rs1("class")=0 then

'判断变身是否合理
if newtype=0 then
response.write "<script language=javascript>alert('\n你已经是"&newname&"啦，选其他职业吧!');history.back()</script>"
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpoint<rs1("cLevel")*5+50 then getpoint=rs1("cLevel")*5+50
getpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=18
rs1("Dexterity")=18
rs1("Vitality")=15
rs1("Energy")=30
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&"恭喜你的〖法师〗已经"&resword&"成为"&newname&", "&resword2&"费:"&lifemoney&"MU币!');location.href='home.asp';</script>"
response.end
end if


if rs1("class")=1 then

'判断变身是否合理
if newtype=1 then
response.write "<script language=javascript>alert('\n你已经是"&newname&"啦，选其他职业吧!');history.back()</script>"
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpoint<rs1("cLevel")*5+50 then getpoint=rs1("cLevel")*5+50
getpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint

rs1("Strength")=18
rs1("Dexterity")=18
rs1("Vitality")=15
rs1("Energy")=30
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&"恭喜你的〖魔导师〗已经"&resword&"成为"&newname&", "&resword2&"费:"&lifemoney&"MU币!');location.href='home.asp';</script>"
response.end
end if
if rs1("class")=16 then

'判断变身是否合理
if newtype=16 then
response.write "<script language=javascript>alert('\n你已经是"&newname&"啦，选其他职业吧!');history.back()</script>"
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"

else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpoint<rs1("cLevel")*5+50 then getpoint=rs1("cLevel")*5+50
getpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&"恭喜你的〖剑士〗已经"&resword&"成为"&newname&", "&resword2&"费:"&lifemoney&"MU币!');location.href='home.asp';</script>" dedecms.com
response.end
end if


if rs1("class")=17 then

'判断变身是否合理
if newtype=17 then
response.write "<script language=javascript>alert('\n你已经是"&newname&"啦，选其他职业吧!');history.back()</script>"
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpoint<rs1("cLevel")*5+50 then getpoint=rs1("cLevel")*5+50
getpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&"恭喜你的〖骑士〗已经"&resword&"成为"&newname&", "&resword2&"费:"&lifemoney&"MU币!');location.href='home.asp';</script>"
response.end
end if


if rs1("class")=32 then

'判断变身是否合理
if newtype=32 then
response.write "<script language=javascript>alert('\n你已经是"&newname&"啦，选其他职业吧!');history.back()</script>"
response.end
end if

if newtype<>33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpoint<rs1("cLevel")*5+50 then getpoint=rs1("cLevel")*5+50
getpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&"恭喜你的〖弓箭手〗已经"&resword&"成为"&newname&", "&resword2&"费:"&lifemoney&"MU币!');location.href='home.asp';</script>"
response.end
end if


if rs1("class")=33 then

'判断变身是否合理
if newtype=33 then
response.write "<script language=javascript>alert('\n你已经是"&newname&"啦，选其他职业吧!');history.back()</script>"
response.end
end if

dedecms.com

if newtype<>32 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpoint<rs1("cLevel")*5+50 then getpoint=rs1("cLevel")*5+50
getpoint=getpoint-rs1("cLevel")*5-50+lifedonelevel*5+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&"恭喜你的〖圣射手〗已经"&resword&"成为"&newname&", "&resword2&"费:"&lifemoney&"MU币!');location.href='home.asp';</script>"

dedecms.com

response.end
end if


if rs1("class")=48 then

'判断变身是否合理
if newtype=48 then
response.write "<script language=javascript>alert('\n你已经是"&newname&"啦，选其他职业吧!');history.back()</script>"
response.end
end if

if newtype=32 or newtype=33 then
resword="~变性~"
resword2="手术"
else
resword="变身"
resword2="变身"
end if

'计算公式
getpoint=rs1("Strength")+rs1("Dexterity")+rs1("Vitality")+rs1("Energy")+rs1("LevelUpPoint")
if getpoint<rs1("cLevel")*7+80 then getpoint=rs1("cLevel")*7+80
getpoint=getpoint-rs1("cLevel")*7-80+lifedonelevel*7+getpoint*lifepercent/100

rs1("class")=newtype
rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint
rs1("Strength")=26
rs1("Dexterity")=26
rs1("Vitality")=26
rs1("Energy")=26
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=60

rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('"&rs1("name")&"恭喜你的〖魔剑士〗已经"&resword&"成为"&newname&", "&resword2&"费:"&lifemoney&"MU币!');location.href='home.asp';</script>"
response.end
end if
end if
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>-=单机版=-</title>
<link href="img/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="#666666" frame=vsides rules=none>
  <TR>
    <td width=204 align=left vAlign=top background="img/left_bg.gif"><img src="http://www.5uwl.net/wyjs/2005/img/left_top_news.gif" width="204" height="36"><img src="http://www.5uwl.net/wyjs/2005/img/left02_hy.gif" width="197" height="40">

dedecms.com

      <img src="http://www.5uwl.net/wyjs/2005/img/122.gif" width="195" height="130" class="hand">
      <table width="99%">
        <tr>
          <td width="100%" height="1"></td>
        </tr>
      </table>
      <!--#include file="inc_hy.asp" -->
      <table width="99%">
        <tr>
          <td width="100%" height="4"></td>
        </tr>
      </table>
      <table width="195" background="img/xu2.gif">
        <tr> dedecms.com
          <td width="182" height="1"></td>
        </tr>
      </table>
      <table width="99%">
        <tr>
          <td width="100%" height="5"></td>
        </tr>
      </table></TD>
    <td width=1 height="190" background="img/xu.gif"></TD>
    <td width=553 align=left vAlign=middle bgcolor="#FFFFFF" class="newsbg"><table width="99%">
        <tr>
          <td width="100%" height="26"></td>
        </tr>
      </table>
      <table width="496" height="396" border="0" align="center" cellpadding="3" cellspacing="0">
        <form action="userbs.asp" method="post" name="zsform"><tr>
          <td width="490" height="34" align="left" > <table width="489" border="0" cellspacing="0" cellpadding="3">
              <tr>
                <td width="483" height="22" align="center" style="font-size:16px"><strong>人物变身</strong></td>
              </tr>
            </table></td>
        </tr>

        <tr>
          <td height="191" align="center"> <TABLE align=left border=0 cellPadding=5 cellSpacing=1 width="490">
              <TBODY>
                <TR>
                  <TD height="127" colSpan=2 align=right class=txt_gray> <DIV align=left>
                      <p class="con2"><span class="bigf"><FONT
              color=#FF0000>请仔细阅读以下注意事项</FONT><FONT
              color=#cc3300></FONT></span><FONT
              color=#cc3300><br>
                        ① <font color="#FF0000"><strong>变身的人物不能最后退出游戏或在游戏中</strong></font>，否则会变身失败(变身之前，退到选择角色界面，选择任意一个不是变身要用的人物进入，然后退出，就可以正常变身了)<br>
                        <font color=blue><strong>② 变身人物身上和包裹中的各种装备，物品，都要存放在仓库里，否则会被没收</strong></font><br>
                        ③ 变身需要<%=lifeneedlevel%>级，变身后人物变成<%=lifedonelevel%>级，各项属性点数保持该职业初始状态不变。奖励变身点数留在升级点数中供玩家自行分配！<br>

                        ④ 变身系统保留人物转生所获得的转生点数，并且加在升级点数中！<br>
                        <font
              color=#cc3300>⑤ </font>变身点数计算公式：<strong>变身点数＝属性点数总和×<%=lifepercent%>％</strong><br>
                        <font
              color=#cc3300>⑥ </font>变身收取手续费 <strong><%=lifemoney%> MU币</strong>，变身人物必须携带足够的MU币<br>
                        
                        ⑦ 请严格按照变身要求操作，否则不规范的操作将会视为尝试利用变身BUG而受到封停帐号的惩罚，如果有BUG请及时到<a href=bbs/index.asp><font color="#FF0000"><strong></strong></font></a>提出，否则利用BUG或知情不报的行为将会受到惩罚。
                        </FONT></p>
                    </DIV></TD>
                </TR>
                <TR>
                  <TD align=right class=txt_gray width="124"> 角色名称</TD>
                  <TD width="343"> <INPUT name=userchr type=text class="lanyu" id="ps_person_id" size=18 maxLength=18>
                  </TD>
                </TR>
                <TR>
                  <TD align=right class=txt_gray>用户帐号</TD>
                  <TD class=txt_gray><INPUT name=username type=text class="lanyu" id="username" size=18 maxLength=16></TD>
                </TR> dedecms.com
                <TR>
                  <TD align=right class=txt_gray>用户密码</TD>
                  <TD class=txt_gray><INPUT name=password type=password class="lanyu" id="username3" size=18 maxLength=16></TD>
                </TR>
  <tr>
                
  <td colspan=7 align=left>
  请选择您想变成的职业：<br>
  <input id=jianshi type=radio name=new_type value=16 checked><label for=jianshi>剑士</label>
  <input id=fashi type=radio name=new_type value=0><label for=fashi>法师</label>

  <input id=jingling type=radio name=new_type value=32><label for=jingling>弓箭手</label>
  <input id=qishi type=radio name=new_type value=17><label for=qishi>骑士</label>
  <input id=modaoshi type=radio name=new_type value=1><label for=modaoshi>魔导师</label>
  <input id=sheshou type=radio name=new_type value=33><label for=sheshou>圣射手</label>
  <input id=mojian type=radio name=new_type value=48><label for=mojian>魔剑士</label>
  </td>
  </tr>
                
              </TBODY>
            </TABLE></td>
        </tr>
        <tr>
          <td height="25" align="left"> <table width="322" border="0" cellspacing="0" cellpadding="3">
              <tr>
                <td width="383" align="center" class="bigf"><img src="http://www.5uwl.net/wyjs/2005/img/reg.gif" width="40" height="17" class="hand" >　<img src="http://www.5uwl.net/wyjs/2005/img/reg1.gif" width="40" height="17" class="hand" ></td>
              </tr>
            </table></td>
        </tr></form>
      </table></td>
  </TR>
</TABLE>
<%
end if
rs1.close
set rs1=nothing
connlife.close
set connlife=nothing
%>
<!--#include file="foot.asp" -->
</body>
</html>

在网页中添加变身系统的方法
复制下面 inc_hy.asp 文件内容，然后覆盖到web目录下的inc_hy.asp文件即可

以下是 inc_hy.asp 文件的内容

<table width="196" border="0" cellspacing="0" cellpadding="2">
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="reg.asp">注册帐号</a></td>
  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="ChangePSD.asp">修改密码</a></td>
  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="getpsd.asp">取回密码</a></td>
  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="changeinfo.asp">修改资料</a></td>

  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="pkclear.asp">清洗红名</a></td>
  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="usezs.asp">角色转生</a></td>
  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="userbs.asp">人物变身</a></td>
  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="userjd.asp">在线加点</a></td>
  </tr>
  <tr>
    <td align="center"><img src="http://www.5uwl.net/wyjs/2005/img/icon.gif" border="0"> <a href="cangku.asp">仓库密码</a></td>
  </tr>
</table>
以下是修改bug之后的在线加点程序
这个是修改过bug之后的加点程序，修正了无限加点的漏洞
以前使用的人请及时更新！

---------   userjd.asp  的文件内容

<!--#include file="conn.asp" -->
<%
jdmust=10 '剩余点数大于此数才能加点
money=1000000 '在线加点服务收费
kou=10  '对贪心的惩罚，扣去的点数
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")

if llt<0 or tlt<0 or mjt<0 or zlt<0 then
response.write "<script language=javascript>alert('GM:\n\你想黑我啊!');window.parent.close()</script>"
response.end
end if

jds=int(llt)+int(tlt)+int(mjt)+int(zlt)
if id="" or pass="" or char="" then
response.write "<script language=javascript>alert('GM:\n\你想黑我啊!');window.parent.close()</script>"
response.end
else
call check()
lva=session("lvp")
if lva<jds then
  call koudian()
  response.write "<script language=javascript>alert('GM:\n\你好贪啊，扣你"&kou&"点作为惩罚!');location.href='home.asp'</script>"
  response.end
else
  call jiadian(llt,tlt,mjt,zlt,jds)
  response.write "<script language=javascript>alert('GM:\n\哈哈，加好了，你去看看!');location.href='home.asp'</script>"
  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")+mjt
rs8("Vitality")=rs8("Vitality")+tlt
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 "<script language=javascript>alert('GM:\n\n资料未填写完整或用户名含有非法字符!');history.back()</script>"
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 "<script language=javascript>alert('GM:\n\n帐号信息错误,请重新填写!');history.back()</script>"
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 "<script language=javascript>alert('GM:\n\n你目前能加的点数还不到"&jdmust&"点，自己动动手指加吧!');history.back()</script>"
  response.end
end if
if rs1("money")<zhuanshengqian then
  response.write "<script language=javascript>alert('GM:\n\n收你"&money&"MU币不算很多吧,你以为我白忙活啊!');history.back()</script>"
  response.end
end if
end if
session("lvp")=rs1("LevelUpPoint")
session("ll")=rs1("Strength")
session("tl")=rs1("Vitality")
session("mj")=rs1("Dexterity")
session("zl")=rs1("Energy")
rs1.Close
rs.Close
end sub


'-----------------------------登陆---------------------------------
sub jd_3()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>-=单机版=-</title>
<link href="img/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="#666666" frame=vsides rules=none>
  <TR>
    <td width=204 align=left vAlign=top background="img/left_bg.gif"><img src="http://www.5uwl.net/wyjs/2005/img/left_top_news.gif" width="204" height="36"><img src="http://www.5uwl.net/wyjs/2005/img/left02_hy.gif" width="197" height="40">
      <img src="http://www.5uwl.net/wyjs/2005/img/122.gif" width="195" height="130" class="hand">
      <!--#include file="inc_hy.asp" -->
      <table width="195" background="img/xu2.gif">
        <tr>
          <td width="182" height="1"></td>
        </tr>
      </table>    </TD>
    <td width=1 height="190" background="img/xu.gif"></TD>
    <td width=553 align=left vAlign=middle bgcolor="#FFFFFF" class="newsbg">
<table width="443" height="199" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr>
          <td width="437" height="40" align="left" >
            <table width="196" border="0" cellspacing="0" cellpadding="3">
              <tr>
                <td align="center" class="bigf"><font color="#666666">在线加点系统</font></td>
              </tr>
            </table>
            <FORM method=post name=chgform action="userjd.asp"><input type="hidden" name="action" value="dl">

            </td>
        </tr>
        <tr>
          <td height="92" align="center">
            <TABLE align=left border=0 cellPadding=5 cellSpacing=1 width="241">
<TBODY>
                <TR>
                  <TD align=right class=txt_gray colSpan=2> <DIV align=left>
                      在线加点每次收费<font color="#FF0000"><%=money%></font>MU币</DIV></TD>
                </TR>

                <TR>
                  <TD align=right class=txt_gray colSpan=2> <DIV align=left><FONT
              color=#cc3300>请输入您的登陆信息</FONT></DIV></TD>
                </TR>
                <TR>
                  <TD align=right class=txt_gray width="65"> <DIV align=left>角色名称</DIV></TD>
                  <TD class=txt_gray width="133"> <INPUT name=userc type=text class="lanyu" size=17 maxLength=16>
                  </TD>
                </TR>
                <TR>
                  <TD align=right class=txt_gray width="65"> <DIV align=left>用户帐号</DIV></TD>
                  <TD class=txt_gray width="133"> <INPUT name=usern type=text class="lanyu" size=17 maxLength=16>
                  </TD>
                </TR>
                <TR>
                  <TD class=txt_gray width="65">用户密码</TD>
                  <TD class=txt_gray width="133"> <INPUT name=passw type=password class="lanyu" size=18 maxLength=16></TD>
                </TR>
              </TBODY></form>
            </TABLE>
          </td>
        </tr>
        <tr>
          <td height="25" align="left">
            <table width="214" border="0" cellspacing="0" cellpadding="3">

              <tr>
                <td width="208" align="center" class="bigf"><img src="http://www.5uwl.net/wyjs/2005/img/reg.gif" width="40" height="17" class="hand" >　<img src="http://www.5uwl.net/wyjs/2005/img/reg1.gif" width="40" height="17" class="hand" ></td>
              </tr>
            </table>
            
          </td>
        </tr>
      </table></TD>
  </TR>
</TABLE>
</FORM>
<!--#include file="foot.asp" -->
</body>
</html>
<%end sub

'----------------------------分配点数--------------------------------
sub jd()
char=session("userc")
id=session("usern")
lvp=session("lvp")
session("lvp")=""
lls=session("ll")
tls=session("tl")
mjs=session("mj")
zls=session("zl")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>-=单机版=-</title>
<link href="img/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="#666666" frame=vsides rules=none>
  <TR>
    <td width=204 align=left vAlign=top background="img/left_bg.gif"><img src="http://www.5uwl.net/wyjs/2005/img/left_top_news.gif" width="204" height="36"><img src="http://www.5uwl.net/wyjs/2005/img/left02_hy.gif" width="197" height="40">
      <img src="http://www.5uwl.net/wyjs/2005/img/122.gif" width="195" height="130" class="hand"> dedecms.com
      <!--#include file="inc_hy.asp" -->
      <table width="195" background="img/xu2.gif">
        <tr>
          <td width="182" height="1"></td>
        </tr>
      </table>    
      </TD>
    <td width=1 height="190" background="img/xu.gif"></TD>
    <td width=553 align=left vAlign=middle bgcolor="#FFFFFF" class="newsbg">
<table width="443" height="199" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr>
          <td width="437" height="40" align="left" >
            <table width="196" border="0" cellspacing="0" cellpadding="3">
              <tr>
                <td align="center" class="bigf"><font color="#666666">在线加点系统</font></td>
              </tr>
<FORM method=post name=chgform action="userjd.asp"><input type="hidden" name="action" value="jd">
            </table>
      </td>
        </tr>
        <tr>
          <td height="92" align="center">
            <TABLE align=left border=0 cellPadding=5 cellSpacing=1 width="241">
<TBODY>
                <TR>
                  <TD align=right class=txt_gray width="65"> <DIV align=left>角色名称</DIV></TD>
                  <TD class=txt_gray width="133"> <%=char%>
                  </TD>
                </TR>
                <TR>
                  <TD align=right class=txt_gray width="65"> <DIV align=left>用户帐号</DIV></TD>
                  <TD class=txt_gray width="133"> <%=id%>
                  </TD>
                </TR>
                <TR>
                  <TD align=right class=txt_gray colSpan=2> <DIV align=left><FONT color=#cc3300><b>
                  所加点数总和不要超过剩余点数

                  否则将扣去<%=kou%>点作为您贪心的惩罚!!</FONT></b></DIV></TD>

                </TR>
                <TR>
                  <TD align=right class=txt_gray width="65"> <DIV align=left>剩余点数</DIV></TD>
                  <TD class=txt_gray width="133"> <%=lvp%> 点
                  </TD>
                </TR>
                <TR>
                  <TD class=txt_gray width="85">力量  <%=lls%> +</TD>
                  <TD class=txt_gray width=100"> <INPUT name=llt value=0 size=7 maxLength=7>
                  </TD>
                </TR>
                <TR>
                  <TD class=txt_gray width="85">敏捷  <%=mjs%> +</TD>
                  <TD class=txt_gray width=100"> <INPUT name=mjt value=0 size=7 maxLength=7>
                  </TD>
                </TR>
                <TR>
                  <TD class=txt_gray width="85">体力  <%=tls%> +</TD>
                  <TD class=txt_gray width=100"> <INPUT name=tlt value=0 size=7 maxLength=7>
                  </TD>
                </TR>
                <TR>
                  <TD class=txt_gray width="85">智力  <%=zls%> +</TD>
                  <TD class=txt_gray width=100"> <INPUT name=zlt value=0 size=7 maxLength=7>
                  </TD>
                </TR>
              </TBODY></form>
            </TABLE>
          </td>
        </tr>
        <tr>
          <td height="25" align="left">
            <table width="214" border="0" cellspacing="0" cellpadding="3">
              <tr>
                <td width="208" align="center" class="bigf"><img src="http://www.5uwl.net/wyjs/2005/img/reg.gif" width="40" height="17" class="hand" >　<img src="http://www.5uwl.net/wyjs/2005/img/reg1.gif" width="40" height="17" class="hand" ></td>
              </tr>
            </table>
            
          </td>
        </tr>
      </table></TD>
  </TR>
</TABLE>
</FORM>
<!--#include file="foot.asp" -->
</body>
</html>
<%end sub%>
dedecms.com

商业完整版游戏发布站程序免费下载：www.98youx.com