#12006/1/4 8:12:34
<%
a = request("name")
b = request("password")
c =request("user")
'建立记录变量来记录读取库中记录的条数。
set conn = server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test.mdb")
set rs = server.createobject("adodb.recordset")
'建立库连接。
sql="Select * From 邮件列表 where name= '" & a & "' and password = '" & b & "' "
rs.Open sql,conn,1,3
'打开从库中读出的记录集。
if rs("user") = "" then
rs("user") = c
rs("次数") = rs("次数") + 1
rs.Update
response.write "yes"
else
if c = rs("user") then
response.write "yes"
else
response.write ""
end if
end if
rs.close
'关闭记录集
set rs = nothing
set conn = nothing
%>
一点反应都没有,请各位大哥指点指点!
编辑历史:[此帖最近一次被 allinhands 编辑过(编辑时间:2006-01-04 10:42:51)]