本人要做个用于网页加密的asp页
并且用了access做数据库
库名：usercheck.mdb
只有两个字段：id 和 pwd
都是文本型的
长度15
本人调试总是不通过
请教各位高手指点
我的qq是：51580015
邮箱：kangchao@win88.net
电话：13691359141
谢谢了！
代码如下：

<%
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 users 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="Enter the Username and Password."
ID=Request("ID")
Pwd=Request("Pwd")
If ID=""Or Pwd=""Then
Head="Enter the Username and Password."
Else If Not Check(ID,Pwd) Then
Head="Incorrect Username or Password."
Else
Session("Passed")=True
End If
end if
If Not Session("Passed") Then
%>

<%=Head%> "method="POST"> USERNAME: PASSWORD:

 

<%
Response.end
end If
%>

execute 改为recordset 会不会好些