请教:如何编写用户登陆代码。 (在线等待。。。)
小弟近日用脚本写了页面,现在开始填数据,水平有限,刚做登陆就郁闷,代码如下:
<% @Language=VBScript %>
<!--#INCLUDE FILE="ADOVBS.INC"-->
<%
dim UsID ,UsPWD,LConn,LRs,LErrNo,LErrMes,LCmdFun ,LPower
LCmdFun=Request.Form("CmdFun")
LErrNo=0
Select Case LCmdFun
Case "登陆"
UsID=Request.Form("TxtUserID")
UsPWD=Request.Form("TxtuserPWD")
Set LConn=Server.CreateObject("ADODB.Connection")
LConn.Open "Driver={SQL Server};Server=Server;UID=sa;PWD=hello;DataBase=MyData"
Set LRs=Server.CreateObject("ADODB.RecordSet")
LRs.Open"Select * From UserInfo Where Name='"&UsID&"'",LConn,3,3,1
if LRs.BOF OR LRs.EOF then
LErrNo=1
Elseif LRs.Fields("PWD")=UsPWD then
LPower=LRs("Power")
Session("Name")=UsID
Else
lErrNo=2
End if
'LRs.close
'Set LRs=Nothing
if LErrNo=0 then
if LPower="1" then
Response.Redirect"Page1.asp"
end if
if LPower="2" then
Response.Redirect"Page2.asp"
end if
if LPower="3" then
Response.Redirect"page3.asp"
end if
End if
Case "帮助"
Response.Redirect"Page4.asp"
End Select
Select Case LErrNo
Case 1
LErrMes="该用户名不存在,请与管理员联系。"
Case 2
LErrMes="用户密码输入有误,请重试。"
End Select
Response.Write"<Center>" &LErrMes& "</Center>"
%>
这段代码可以正常运行,可不符合要求, :( 因为要求是要用 JScript来写。请问如果要用JScript,该怎么改?或者怎么写?。。。。望哥们指点,谢谢。