先在muonline数据库Character表中建立新的数据列

具体方法：企业管理器->....->数据库->muonline->表->鼠标右键->设计表
在最下面加入列：

列名 类型 长度 允许空
zs_count smallint 2 √
zs_getpoint smallint 2 √
zs_time datetime 8 √
同样在MEMB_INFO表里加入：（会员密码，这里的密码要你手动添加，如果不想要这个功能，就在转生文件里找到这个密码的定义，和检验位置，输入位置删掉）
列名 类型 长度 允许空
sz_password nvarchar 10 √



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


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


lifedonelevel=10变身后多少级


lifedoneexp=1 变身后经验多少


lifemoney=10000000 变身需要多少钱


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


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



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


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


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


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