📄 checkuser.asp
字号:
<%@ LANGUAGE="VBScript" %>
<html>
<body>
<form name=form1>
<%
Dim conn,connstr,rs,rsstr, nm,pw
nm=Request.Form("name")
pw=Request.Form("password")
'----------建立数据库链接对象
Set conn = Server.CreateObject("ADODB.Connection")
connstr ="Driver={SQL Server};server=(local);uid=sa;pwd=;database=master;"
conn.open connstr
Set rs = server.CreateObject("adodb.recordset")
rsstr = "select password,userright from Users where Username='"& nm &"'"
rs.open rsstr,conn,1,1
response.write pw
If rs.eof And rs.bof Then
response.write "<center>用户名不存在,按<a href=javaScript:history.go(-1)>这里</a>返回."
rs.close
Set rs=nothing
Set Conn=nothing
response.End
End If
If Trim(rs("password"))<>pw Then
response.write "<center>密码错误,按<a href=javaScript:history.go(-1)>这里</a>返回."
rs.close
Set rs=nothing
Set Conn=nothing
response.End
End If
Session("name")=nm
'Session("password")=pw
Session("right")=rs("userright")
response.Redirect"viewer.asp"
Set rs=nothing
Set Conn=nothing
%>
</form>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -