asp验证问题

<%
Function Check(ID,Pwd)
Dim conn,par,rs
Set conn=server.createobject("adodb.connection")
par = "driver={Microsoft Access Driver (*.mdb)} "
conn.Open par && ";dbq=" && Server.MapPath("usercheck.mdb ")
sql = "Select * From user Where ID='" && ID && "' And Pwd = '" && Pwd &&"'"
Set rs = conn.Execute( sql )
If rs.EOF Then
Check= False
Else
Check= True
End If
End Function
%>
<%

If IsEmpty(Session("Passed")) Then Session("Passed") = False

Head = "请输入用户名和密码"

ID = Request("ID")

Pwd = Request("Pwd")

If ID = "" Or Pwd = "" Then

Head = "请输入用户名和密码"

Else If Not Check( ID, Pwd ) Then

Head = "用户名称或密码有错&quo

#######ASP验证问题########## ASP 登陆验证问题 asp登录验证问题 asp登陆验证问题 asp 表单验证问题 ASP问题，用户验证问题 ASP登录验证问题咨询。 关于ASP验证码问题 asp 验证码的问题 asp数字验证的问题