Question

请问asp+access登录后台的代码怎么写啊？

我写的老出数据类型不匹配！

Answer 1

Set rs = Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From admin where admin_name='"&p_adminname&"' And admin_pass='"&p_adminpass&"'"
rs.Open Sql,Conn,1,3
If rs.Bof Then
%>
<script language=javascript>
alert("无效的用户名或密码！");
location.href = "javascript:history.back()";
</script>
<%
Else
session("admin_name") = rs("admin_name")
session("admin_bm") = rs("admin_bm")
session("admin_lm")=rs("admin_lm")
Response.redirect "admin_index.asp"
rs.Close
Set rs = Nothing

End if

End if
%>