?? 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 + -