login.asp

梦想世界虚拟社区

<%
session ("name1") = request ("t1")
session ("pass") = request ("t2")
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base\dumm.mdb")
Cnn.Open StrCnn
rs.open "select * from 资料 where 昵称='" & session ("name1") & "' and 密码 = '" & session ("pass") & "'",cnn
if rs.eof then
rs.close
cnn.close
session ("name1") = ""
session ("pass1") = ""
response.redirect "index.asp"
else
rs.close
cnn.close
response.redirect "main1.asp"
end if
%>