📄 bzyz.asp
字号:
<!--#include file="data.asp"-->
<%
dim name,pass, exec, exec1, rs, rs1, x
name=encodestr(request.form("name"))
pass=encodestr(request.form("pass"))
if session("bz")="bz" then
main()
else
exec="select * from blyh where name='"&name&"' and pass='"&pass&"' and bz=1"
Set RS = Server.CreateObject("ADODB.RecordSet")
rs.Open exec, Conn, 1, 1
if rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
session("errmsg")="管理员账号错误！！！"
response.redirect "glerror.asp"
end if
rs.close
set rs=nothing
main()
end if
sub main()
exec1="select * from blyh "
Set RS1 = Server.CreateObject("ADODB.RecordSet")
rs1.Open exec1, Conn, 1, 2
session("bz")="bz"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:: 永久的回忆 ::</title>
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>
<body>
<!--#include file="head.asp"-->
<table border="0" width="100%" cellpadding="4" align="center">
<tr>
<td width="100%">
<p align="center">· 本 留 言 版 所 有 保 留 用 户 ·</td>
</tr>
</table>
<table border="0" width="650" cellspacing="3" cellpadding="6" align="center" class="table004">
<tr>
<td width="100%" class="table001">
<%do while not rs1.eof%>
<font color="#FF0000"><b>|</b></font> <font color="#ff00ff"><%=rs1("name")%></font>
<%if rs1("bz")=0 then%>
[<a href="bzcl.asp?id=<%=rs1("id")%>&lei=addman">添加版主</a>]
<% else %>
[<a href="bzcl.asp?id=<%=rs1("id")%>&lei=delman" style="color: #008000">取消版主</a>]
<%end if%>
[<a href="bzcl.asp?id=<%=rs1("id")%>&lei=delete">删除</a>]
<%x=x+1
rs1.movenext
loop %>
<font color="#FF0000"><b>|</b></font> </td>
</tr>
</table>
<%
rs1.close
set rs1=nothing
conn.close
set conn=nothing
end sub
%>
<!--#include file="tj.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -