?? login.asp
字號:
?<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
'====================================================================
' 請你保留這段說明,這并不會影響你的速度,
' 程序制作:橫云 掌上校園版權所有,請勿破解
' 完成時間: 2007-09-27 主頁地址:HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com QQ:554904632
'====================================================================
%>
<!--#include file=conn.asp-->
<%
dim sql
dim rs
dim username
dim password
username=request("username")
password=request("password")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
' response.write ""&sql&""
' response.end
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
Session.Timeout=1200
session("admin")=rs("username")
session("flag")=rs("flag")
session("mid")=rs("id")
Response.Redirect "main.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write "<br/>"
response.write "操作: 确认身份失败!"
response.write "<br/>用户名或密码错误!"
response.write "返回"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -