📄 lockforum.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True
%>
<html>
<head>
<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">关闭论坛主题<br>
</span><br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br />
<br />
关闭很久没有新回复的主题，主题被关闭后不能接受新回复<br />
</p>
</div>
<form method="post" name="frmSelectForum" action="locktopic.asp" onSubmit="return confirm('Are you sure you want to achive these topics?')">
<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>
<td height="2" width="49%" class="tHeading"><b>关闭一段时间没有新回复的主题</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" width="51%" height="12"> <select name="fid">
<option value="0" selected>所有论坛</option>
<%
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>
<td height="12" width="49%" valign="top"> <select name="days">
<option value="0">所有</option>
<option value="7">一周前</option>
<option value="14">两周前</option>
<option value="31">一个月前</option>
<option value="62">两个月前</option>
<option value="124">四个月前</option>
<option value="182" selected>六个月前</option>
<option value="279">九个月前</option>
<option value="365">一年前</option>
<option value="730">两年前</option>
</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 + -