📄 puipblock.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True

Dim rsSelectForum
Dim lngTopicID 
Dim intForumID
Dim strBlockIP
Dim strBlockedIPList
Dim lngBlockedIpid	
Dim laryCheckedIPAddrID	

lngTopicID = CLng(Request("tid"))
If lngTopicID = "" Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If
strSQL = "SELECT timestopic.* "
strSQL = strSQL & "FROM timestopic "
strSQL = strSQL & "WHERE timestopic.topicid = " & lngTopicID & ";"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	intForumID = CInt(rsConn("bbsid"))
End If
rsConn.Close
If blnAdmin = False Then blnModerator = isModerator(intForumID, intGroupID)
For each laryCheckedIPAddrID in Request.Form("chkDelete")
	strSQL = "SELECT * FROM timesfilter WHERE timesfilter.filterid="  & laryCheckedIPAddrID & ";"
	
	With rsConn		
		.CursorType = 2
		.LockType = 3
		.Open strSQL, adoCon
		If NOT .EOF Then .Delete
		.Requery
		.Close
	End With
Next
strSQL = "SELECT timesfilter.filterid, timesfilter.IP FROM timesfilter WHERE timesfilter.IP Is Not Null;"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If Request.Form("IP") <> "" Then
	strBlockIP = Trim(Mid(Request.Form("IP"), 1, 30))
	With rsConn
		.AddNew
		.Fields("IP") = strBlockIP
		.Update
		.ReQuery
	End With
End If
%>

<html>
<head>


<title>屏蔽IP地址</title>
<script language="JavaScript">
function CheckForm () {
	var errorMsg = "";
	if (document.frmIPadd.IP.value==""){
		errorMsg += "\n\tIP地址（段） \t- 输入你要屏蔽的IP地址（段）";
	}
	if (errorMsg != ""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改:\n";
		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
	return true;
}
</script>

<!--#include file="includes/skin.asp" -->

</head>
<body bgcolor="<% = strBgColour %>" text="<% = strTextColour %>" background="<% = strBgImage %>" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();">
<div align="center" class="heading">
  <br/>
  <p>屏蔽IP地址（段）</p>
</div>
<%
If blnAdmin = False AND blnModerator = False Then
	rsConn.Close %>
	<div align="center">
	<span class="lgText">拒绝访问</span><br /><br /><br />
	</div>
	<% Else %>
<form name="frmIPList" method="post" action="puipblock.asp">

    <table border="0" align="center" cellpadding="0" cellspacing="1" width="350" bgcolor="<% = strTableBgColour %>">
     <tr> <td colspan="2" height="25" background="<% = strTableTitleBgImage %>" class="tHeading">>>>被屏蔽的IP地址列表</td>
     </tr><%
	If rsConn.EOF Then %>
	<td colspan="2" align="center" bgcolor="#ffffff" class="bold">还沒有被屏蔽的IP地址</td>
	<%	Else
		Do While NOT rsConn.EOF
     			lngBlockedIpid = CLng(rsConn("filterid"))
			strBlockedIPList = rsConn("IP")
     %>
     <tr bgcolor="#ffffff" class="text">
      <td width="5%"><input type="checkbox" name="chkDelete" value="<% = lngBlockedIpid %>"></td>
      <td><% = strBlockedIPList %></td>
     </tr><%
			rsConn.MoveNext
		Loop
	End If
rsConn.Close

Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing

%>
          </select></td>
     </tr>
     <tr bgcolor="#ffffff" align="center">
      <td colspan="2">
        <input type="hidden" name="tid" value="<% = lngTopicID %>">
        <input type="submit" name="Submit" value="解除屏蔽">
      </td>
     </tr>
    </table>
</form>


<form name="frmIPadd" method="post" action="puipblock.asp" onSubmit="return CheckForm();">
   <table width="350" border="0" cellspacing="1" cellpadding="0" bgcolor="<% = strTableBgColour %>" align="center">
     <tr>
      <td colspan="2" height="25" class="tHeading" background="<% = strTableTitleBgImage %>">>>>屏蔽IP地址（段）</td>
     </tr>
     <tr bgcolor="#FFFFFF" class="smText">
      <td colspan="2">通配符*可以用来成批屏蔽IP地址.例如:要屏蔽IP地址段 200.200.200.0-200.200.200.255,你可以用200.200.200.*一次屏蔽整个IP地址段</td>
     </tr>
     <tr bgcolor="#ffffff" class="text">
      <td align="right">IP地址（段）:</td>
      <td><input type="text" name="IP" size="20" maxlength="30" value="<% = Request.QueryString("IP") %>"/></td>
     </tr>
     <tr bgcolor="#ffffff" align="center">
      <td valign="top" colspan="2">
        <input type="hidden" name="tid" value="<% = lngTopicID %>">
        <input type="submit" name="Submit" value="屏蔽IP地址(段)">
      </td>
     </tr>
    </table>
   </form><%

End If

%>
  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
    <tr>
      <td align="center">
        <a href="JavaScript:onClick=window.close();">关闭窗口</a>
      </td>
    </tr>
  </table>
<br /><br />   
<!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -