哪位大神能把下面的asp代码翻译成中文
<%dima,ba=request.form("n")b=request.form("password1")setcn=server.CreateObject("adod...
<% dima,b
a=request.form("n")
b=request.form("password1")
set cn=server.CreateObject("adodb.connection")
set re=server.CreateObject("adodb.recordset")
cn.open="Driver={Microsoft Access Driver(*.mdb)};Dbq="&server.MapPath("sjk.mdb")
re.open"select*form khb where name="'&a&'"",cn,3,3
if re.eof and re.bofthen
Response.Write(<script>alert('对不起,请先注册!’);location.href='biaodan.asp';</script>")
response.end()
else
if b=re("password1")then
session("id")=re("customerid") session("n")=re("name") session("xb")=re("sex")
Response.Write("<script>location.href='shouye.asp';</script>")
else
Response.Write("<script>alert('密码错误!');location.href='kehu.asp';</script>")
response.end()
end if end if%> 展开
a=request.form("n")
b=request.form("password1")
set cn=server.CreateObject("adodb.connection")
set re=server.CreateObject("adodb.recordset")
cn.open="Driver={Microsoft Access Driver(*.mdb)};Dbq="&server.MapPath("sjk.mdb")
re.open"select*form khb where name="'&a&'"",cn,3,3
if re.eof and re.bofthen
Response.Write(<script>alert('对不起,请先注册!’);location.href='biaodan.asp';</script>")
response.end()
else
if b=re("password1")then
session("id")=re("customerid") session("n")=re("name") session("xb")=re("sex")
Response.Write("<script>location.href='shouye.asp';</script>")
else
Response.Write("<script>alert('密码错误!');location.href='kehu.asp';</script>")
response.end()
end if end if%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询