中国文化特征是什么:asp留言板中用户名和密码的代码是什么

来源:百度文库 编辑:高考问答 时间:2024/05/05 15:32:34

''先包含一个conn.asp的数据库连接文件,定义一个conn的数据库连接变量,以供不同页面调用。
Dim rs,sql
Dim name,pwd ''两个变量接收用户名和密码
Dim type ''用户类型
Dim url ''跳转页面

name = trim(Request.Form("name"))
pwd = trim(Request.Form("password"))
type = Request.Form("type")

name = Replace(name,"'","''")
pwd = Replace(pwd,"'","''")

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM user WHERE name='"&name&"' " & _
"AND password='"&pwd&"'"
rs.Open sql,conn,1,1
If Not rs.Eof Then
Select Case type:
Case "1" url = "m.asp"
Case "2" url = "n.asp"
Case "3" url = "r.asp"
End Select
Else
Response.Write "用户名或者密码错误?"
Response.End
End If
Response.Redirect url
rs.Close
Set rs = nothing