📄 groupper.asp

📁 电子商务网络购物系统

💻 ASP

字号:

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True
%>
<html>
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<title>论坛用户组权限管理</title>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"> 
  <p class="text"><span class="heading"><font size="5"><strong>论坛用户组权限管理</strong></font><br>
    </span><br />
    <a href="menu.asp" target="_self">返回到管理主菜单</a><br />
    <br />
    用户组权限覆盖论坛通用权限<br>
    <br />
  </p>
</div>
<form method="post" name="frmSelectForum" action="forumgroupper.asp">
 <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000" height="8">
  <tr>
   <td height="24"> <table border="0" align="center"  height="8" cellpadding="4" cellspacing="1" width="100%">
     <tr bgcolor="#CCCCCC" >
            <td width="51%" height="2" align="left" valign="top" class="tHeading"><b>你想为那个分论坛创建和编辑用户组权限</b></td>
     </tr>
     <tr bgcolor="#FFFFFF">
      <td align="left" width="51%"  height="12"> <select name="fid"><%
strSQL = "SELECT timesbbs.bbsname, timesbbs.bbsid FROM timesboard, timesbbs WHERE timesboard.boardid = timesbbs.boardid ORDER BY timesboard.boardnum ASC, timesbbs.bbsnum ASC;"
rsConn.Open strSQL, adoCon
Do while NOT rsConn.EOF
	Response.Write vbCrLf & "<option value=" & CLng(rsConn("bbsid")) & " "
	Response.Write ">" & rsConn("bbsname") & "</option>"
	rsConn.MoveNext
Loop
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing

%></select> </td>
     </tr>
    </table></td>
  </tr>
 </table>
 <div align="center"><br />
  <input type="submit" name="Submit" value="确定">
 </div>
</form>
<br />
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -