panduan.asp

来自「用asp写的关于亚运会的网页」· ASP 代码 · 共 26 行

<% @ language="vbscript" %>
<%
if(request.form("Username") <> "") then yhm= request.form("Username")
if(request.form("Password") <> "") then mm= request.form("Password")
%>
<%
dim cn1,rs1,sql1
set cn1=server.createobject("adodb.connection")
set rs1=server.createobject("adodb.recordset")
cn1.connectionstring="dsn=asp"
sql1="select * from table_admin where Username='"&yhm&"' and Password='"&mm&"'"
cn1.open
rs1.open sql1,cn1
if rs1.eof then
rs1.close
cn1.close
set cn1=nothing
response.redirect "error.asp"
else
rs1.close
cn1.close
set cn1=nothing
session("yhm")=yhm
response.redirect "admin.asp"
end if
%>