admlandcheck.asp

来自「ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFAN」· ASP 代码 · 共 25 行

<!--#include file="conn.asp" -->

<%

dim adm_name,adm_password
adm_name=request.Form("adm_name")
adm_password=request.Form("adm_password")
set rs=server.createobject("adodb.recordset")
strsql="Select * From admin where name='" & adm_name &" 'and password='" & adm_password &"'"
rs.Open strsql,conn
if rs.EOF then
response.write "<li>输入错误。"
response.write "<meta http-equiv=refresh content=""1;URL=adm_land.asp"">"
response.End
else
'session("adm_name")=rs("name")
response.Cookies("xingxing")("adm_name")=rs("name")
end if 
rs.close
set rs=nothing
closedb()
Response.Redirect "index.asp"
%>