📄 echklogin.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!--#include file="newconn.asp"-->
<!-- #include file="inc/char.inc" -->
<!-- #include file="inc/tree.inc"-->
<%
dim sql,rs
dim mastername
dim masterpass
dim ok
ok=false
'on error resume next
if not isEmpty(request("lstBoard")) then
boardID=clng(request("lstBoard"))
end if
if iis3onchsys then
masterName=trim(HTMLCharacter(trim(request("username"))))
masterpass=HTMLCharacter(cstr(request("password")))
else
masterName=trim(request("username"))
masterpass=cstr(request("password"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from board where boardid="+cstr(boardid)+""
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if masterpass=rs("masterpwd") and mastername=rs("boardmaster") then
response.cookies("adminok")=true
session("masterlogin")="true"
session("manageboard")=boardID
response.redirect "emanage.asp"
else
response.write "<link rel='stylesheet' type='text/css' href='forum.css'>"
response.write "<body bgcolor='#ffffef'>"
response.write "Sorry,请输入正确的版主名字和密码"
end if
end if
rs.close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -