📄 emailblock.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim rsSelectForum
Dim strBlockEmail
Dim strBlockedEmailList
Dim lngBlockedEmailID
Dim laryCheckedEmailAddrID
For each laryCheckedEmailAddrID in Request.Form("chkDelete")
strSQL = "SELECT * FROM timesfilter WHERE timesfilter.filterid=" & laryCheckedEmailAddrID & ";"
With rsConn
.CursorType = 2
.LockType = 3
.Open strSQL, adoCon
If NOT .EOF Then .Delete
.Requery
.Close
End With
Next
strSQL = "SELECT timesfilter.filterid, timesfilter.Email FROM timesfilter WHERE timesfilter.Email Is Not Null;"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If Request.Form("Email") <> "" Then
strBlockEmail = Trim(Mid(Request.Form("Email"), 1, 30))
With rsConn
.AddNew
.Fields("Email") = strBlockEmail
.Update
.ReQuery
End With
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>屏蔽邮件地址</title>
<script language="JavaScript">
<!-- Hide from older browsers...
function CheckForm () {
if (document.frmEmailadd.Email.value==""){
alert("请输入邮件地址");
document.frmEmailadd.Email.focus();
return false;
}
return true;
}
// -->
</script>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading">屏蔽邮件地址</span><br>
<br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><span class="text"><br>
<br>
<br>
你也可以屏蔽邮件地址域，例如：屏蔽 *@hotmail.com 新用户将不能用hotmail的信箱注册</span><br />
</div>
<form name="frmEmailList" method="post" action="emailblock.asp">
<table width="450" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" align="center">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
<tr>
<td bgcolor="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
<tr>
<td>
<table border="0" align="center" cellpadding="4" cellspacing="1" width="100%">
<tr align="left" bgcolor="#FFFFFF">
<td colspan="2" bgcolor="#CCCCCC" class="tHeading">屏蔽电子邮件地址列表</td>
</tr><%
If rsConn.EOF Then
Response.Write("<td colspan=""2"" align=""center"" bgcolor=""#FFFFFF"" class=""bold"">你还没有屏蔽电子邮件地址</td>")
Else
Do While NOT rsConn.EOF
lngBlockedEmailID = CLng(rsConn("filterid"))
strBlockedEmailList = rsConn("Email")
%>
<tr bgcolor="#FFFFFF">
<td width="3%" bgcolor="#FFFFFF"><input type="checkbox" name="chkDelete" value="被屏蔽的邮件地址"></td>
<td bgcolor="#FFFFFF" class="text"><% = strBlockedEmailList %></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 valign="top" colspan="2" >
<input type="submit" name="Submit" value="解除屏蔽">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<form name="frmEmailadd" method="post" action="emailblock.asp" onSubmit="return CheckForm();">
<table width="450" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" align="center">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor=""#FFFFFF">
<tr>
<td bgcolor=""#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" align="center" cellpadding="4" cellspacing="1" width="450">
<tr align="left" bgcolor="#CCCCCC">
<td colspan="2" class="tHeading"> 输入你要屏蔽的电子邮件地址或者地址域</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="center" class="smText"> 通配符*可以用来批量屏蔽</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="191" align="right" class="text"> 电子邮件地址或者地址域:</td>
<td width="240">
<input name="Email" type="text" id="Email" size="25" maxlength="50"/></td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td colspan="2" valign="top">
<input type="submit" name="Submit" value="屏蔽">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<br />
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -