<!--#include file="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<title><%=WebName%>-提交注册...-<%=title%></title>
<%
if request.form("username")="" then
response.write "错误提示:请输入用户名!"
response.end
end if
if request.form("password")="" then
response.write "错误提示:请输入密码!"
response.end
end if
if request.form("password")<>request.form("confirmpwd") then
response.write "错误提示:两次密码不相符!"
response.end
end if
if request.form("email")="" then
response.write "错误提示:必须输入你的正确EMAIL!"
response.end
end if
if request.form("xmname")="" then
response.write "错误提示:姓名"
response.end
end if
username=Replace(request("username"), "'", "''")
rndstr =MyRandc(2)
asankpassword=request("password")
asanpassword=rndstr&md5(rndstr&asankpassword)
asanconfirmpwd=request("confirmpwd")
asanemail=request("email")
regip=request.ServerVariables("HTTP_X_FORWARDED_FOR")
if regip="" then regip=request.ServerVariables("REMOTE_ADDR")
dim asanHomeDir,asanQuotaMax,qinExpiration
asanQuotaMax=1048576*QuotaMax
asanHomeDir=user_folder+username
asanAccess=user_folder+username+ServUAccess
if Expirationtime=true then
qinExpiration=date()+asanExpiration
else
qinExpiration="1980-1-1"
end if
set rs=server.createobject("adodb.recordset")
sql = "SELECT [User] FROM [User_accounts] WHERE [User] = '"&username&"' or Email='"&asanemail&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write "<script>alert('对不起,用户名或Email已被他人所用,请重试另一个')history.back()</script>"
else
dim fso,ftp_folder
ftp_folder=user_folder&username
Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(ftp_folder) then fso.CreateFolder (ftp_folder)
conn.execute("INSERT INTO User_accounts ([User],[Access],[Password],HomeDir,QuotaEnable,QuotaMax,PassType,RegIp,Email,Expiration,Expirationtype,xmname) VALUES ('"&username&"','"&asanAccess&"','"&asanpassword&"','"&asanHomeDir&"',"&asanQuotaEnable&","&asanQuotaMax&","&asanPassType&",'"?ip&"','"&asanemail&"','"&qinExpiration&"','"&asanExpirationtype&"','"&requst.from("xmname")&"')")
response.redirect "reg_success.asp"
end if
rs.Close
Set rs = Nothing
%>
</body>
</html>
注:主要因为后面写错
请把
'"&requst.from("xmname")"&'
改为
'"&requst.from("xmname")&"'
就可以了
数据库有xmname相关的字段吗?没有的话添加一下conn.execute("INSERT INTO User_accounts ([User],[Access],[Password],HomeDir,QuotaEnable,QuotaMax,PassType,RegIp,Email,Expiration,Expirationtype,xmname) VALUES ('"&username&"','"&asanAccess&"','"&asanpassword&"','"&asanHomeDir&"',"&asanQuotaEnable&","&asanQuotaMax&","&asanPassType&",'"®ip&"','"&asanemail&"','"&qinExpiration&"','"&asanExpirationtype&"','&requst.from("xmname"&')')")
那个是半年版的,你可以重新下一个,或者在网上重新找个用户名和密码(可能要试很多次)输进去网上找的一些,不知道能不能用(所谓EAV就是ESET nod32 ANTIVIRUS,ESS就是ESET Smart Security ):
用户名:EAV-24857321
密 码:68rhjf7mhs
有效期至:2010-02-25
用户名:EAV-24857320
密 码:brxspev67d
有效期至:2010-02-25
适用版本:ESS/EAV
用户名:EAV-24857323
密 码:um7th373xm
有效期至:2010-02-25
适用版本:ESS/EAV
用户名:EAV-24857325
密 码: 4a7pcuhr2f
有效期至:2010-02-25
适用版本:ESS/EAV
用户名:EAV-24857324
密 码:p5xjd5hja3
有效期至:2010-02-25
适用版本:ESS/EAV
用户名:EAV-24857326
密 码:efdvcnhxpv
有效期至:2010-02-25
适用版本:ESS/EAV
用户名:EAV-24857327
密 码:8x7m7pte3b
有效期至:2010-02-25
适用版本:ESS/EAV
用户名:EAV-24857328
密 码:k6ds7htmrr
有效期至:2010-02-25
适用版本:ESS/EAV
用户名:EAV-24649329
密 码:843axnstaa
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24650934
密 码:s3bmsre473
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24651111
密 码:ntjmx6ssjt
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24651137
密 码:bba2b2knmt
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24651139
密 码:cf4k2u7u24
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24651183
密 码:huvsr8s32t
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24651219
密 码:saasr645ft
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24651221
密 码:2xank2dthn
有效期至:2010-02-20
适用版本:ESS/EAV
用户名:EAV-24651217
密 码:kkbuvbref2
有效期至:2010-02-20
适用版本:ESS/EAV
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)