📄 spam.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strMode
Dim intSpamTimeLimitSeconds
Dim intSpamTimeLimitMinutes
intSpamTimeLimitSeconds = CInt(Request.Form("seconds"))
intSpamTimeLimitMinutes = CInt(Request.Form("minutes"))
strMode = Request.Form("mode")
strSQL = "SELECT timescfg.* From timescfg;"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.MaxRecords = 1
rsConn.Open strSQL, adoCon
If strMode = "postBack" Then
rsConn.Fields("spamsec") = intSpamTimeLimitSeconds
rsConn.Fields("spammin") = intSpamTimeLimitMinutes
rsConn.Update
rsConn.Requery
End If
If NOT rsConn.EOF Then
intSpamTimeLimitSeconds = CInt(rsConn.Fields("spamsec"))
intSpamTimeLimitMinutes = CInt(rsConn.Fields("spammin"))
End If
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>防灌水机制设置</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">防灌水机制设置<br>
<br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br>
</div>
<form method="post" name="frmConfiguration" action="spam.asp">
<table border="0" align="center" cellpadding="4" cellspacing="1" width="560" bgcolor="#000000">
<tr bgcolor="#CCCCCC">
<td colspan="2" align="left" class="lgText">防灌水机制设置</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">发帖时间间隔:<br />
</td>
<td valign="top"> <select name="seconds">
<option value="0" <% If intSpamTimeLimitSeconds = 0 Then Response.Write("selected") %>>关闭</option>
<option value="10" <% If intSpamTimeLimitSeconds = 10 Then Response.Write("selected") %>>10 秒</option>
<option value="15" <% If intSpamTimeLimitSeconds = 15 Then Response.Write("selected") %>>15 秒</option>
<option value="20" <% If intSpamTimeLimitSeconds = 20 Then Response.Write("selected") %>>20 秒</option>
<option value="25" <% If intSpamTimeLimitSeconds = 25 Then Response.Write("selected") %>>25 秒</option>
<option value="30" <% If intSpamTimeLimitSeconds = 30 Then Response.Write("selected") %>>30 秒</option>
<option value="45" <% If intSpamTimeLimitSeconds = 45 Then Response.Write("selected") %>>45 秒</option>
<option value="60" <% If intSpamTimeLimitSeconds = 60 Then Response.Write("selected") %>>1 分钟</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">发五篇文章的时间间隔:<br />
</td>
<td valign="top"> <select name="minutes">
<option value="0" <% If intSpamTimeLimitMinutes = 0 Then Response.Write(" selected") %>>关闭</option>
<option value="1" <% If intSpamTimeLimitMinutes = 1 Then Response.Write(" selected") %>>1 分钟</option>
<option value="2" <% If intSpamTimeLimitMinutes = 2 Then Response.Write(" selected") %>>2 分钟</option>
<option value="3" <% If intSpamTimeLimitMinutes = 3 Then Response.Write(" selected") %>>3 分钟</option>
<option value="4" <% If intSpamTimeLimitMinutes = 4 Then Response.Write(" selected") %>>4 分钟</option>
<option value="5" <% If intSpamTimeLimitMinutes = 5 Then Response.Write(" selected") %>>5 分钟</option>
<option value="6" <% If intSpamTimeLimitMinutes = 6 Then Response.Write(" selected") %>>6 分钟</option>
<option value="7" <% If intSpamTimeLimitMinutes = 7 Then Response.Write(" selected") %>>7 分钟</option>
<option value="8" <% If intSpamTimeLimitMinutes = 8 Then Response.Write(" selected") %>>8 分钟</option>
<option value="9" <% If intSpamTimeLimitMinutes = 9 Then Response.Write(" selected") %>>9 分钟</option>
<option value="10" <% If intSpamTimeLimitMinutes = 10 Then Response.Write(" selected") %>>10 分钟</option>
<option value="15" <% If intSpamTimeLimitMinutes = 15 Then Response.Write(" selected") %>>15 分钟</option>
<option value="20" <% If intSpamTimeLimitMinutes = 20 Then Response.Write(" selected") %>>20 分钟</option>
<option value="25" <% If intSpamTimeLimitMinutes = 25 Then Response.Write(" selected") %>>25 分钟</option>
<option value="30" <% If intSpamTimeLimitMinutes = 30 Then Response.Write(" selected") %>>30 分钟</option>
<option value="40" <% If intSpamTimeLimitMinutes = 40 Then Response.Write(" selected") %>>40 分钟</option>
<option value="50" <% If intSpamTimeLimitMinutes = 50 Then Response.Write(" selected") %>>50 分钟</option>
<option value="60" <% If intSpamTimeLimitMinutes = 60 Then Response.Write(" selected") %>>1 小时</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td valign="top" colspan="2" class="arial"> <p>
<input type="hidden" name="mode" value="postBack">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Reset" value="清除">
</p></td>
</tr>
</table>
</form>
<div align="center">
<p><br />
<span class="text"><b>注意</b></span></p>
<p><span class="text">防灌水机制设置对管理员无效<br />
</span><br />
</p>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -