📄 userman.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>资料修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
<!--
function openbr(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<table width="600" border="0">
<tr>
<td>[ <a href="editinfo.asp?method=new" title="增加新版主">新增</a> ]</td>
</tr>
</table>
<table width="600" border="0" class=buinput>
<tr>
<Td align='center' width="20%">网上大名</td>
<td align='center' width="20%">用户ID</td>
<td align='center' width="10%">版面</td>
<td align='center' width="30%">Email</td>
<td align='center' width="20%">管理操作</td>
</tr>
<%
set reco=server.createobject("adodb.recordset")
sqlstr="select * from manboard where manbid<>0"
reco.open sqlstr,conn,1,1
if reco.eof then
%>
<tr>
<td align='center'>各版暂无版主</td>
</tr>
<%
else
do while not reco.eof
id=reco("id")
username=reco("username")
userid=reco("userid")
manbid=reco("manbid")
email=reco("email")
%>
<tr>
<td><%=username%></td>
<td align='center'><%=userid%></td>
<td align='center'><%=manbid%></td>
<td align='center'><%=email%></td>
<td align='center'>[ <a href='#' onclick="javascript:openbr('deluser.asp?id=<%=id%>','删除','width=200,height=200')" title='删除此版主'>删除</a> ] [ <a href="editinfo.asp?id=<%=id%>" title="修改此版主资料">修改</a> ]</td>
</tr>
<%reco.movenext%>
<%loop%>
</table>
<%end if%>
<br>
<table width="600" border="0" cellspacing="2" cellpadding="2" class=buinput>
<tr>
<td align="center">版 面 列 表</td>
</tr>
<%
set bidreco=server.createobject("adodb.recordset")
sqlstr="select * from board"
bidreco.open sqlstr,conn,1,1
if bidreco.eof then
response.write "<tr><td align='center'>尚 未 有 版 面</td></tr>"
else
do while not bidreco.eof
%>
<tr>
<td align='center'>版面号：<b><%=bidreco("bid")%></b> 版面名：<%=bidreco("cname")%></td>
</tr>
<%
bidreco.movenext
loop
end if
%>
</table>
</body>
</html>
<%
set reco=nothing
set bidreco=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -