📄 tuiding.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<%
'Call loaderror()
Call showwebdata()
Call Language_var(Language,"tuiding")
'获得退订邮件地址
tdmail=Request.Cookies("Donggan")("mailtuiding")
'判断退订邮件地址是否来自表单
If tdmail="" AND Request.Form("email")<>"" Then tdmail = Request.Form("email")%>
<html>
<head>
<title><%=webname%> | <%=Language_tuiding(0)%></title>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#Include File="head.asp" --><br>
<div align="center">
<%
If IsdyEmail(tdmail) AND Request.Form("QiutMailList")="" Then
'邮件已经订阅AND没有确定过
'退订地址
Response.Cookies("Donggan")("mailtuiding")=tdmail
%>
<Form method="POST" action="tuiding.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: double; border-width: 3" bordercolor="#111111" width="550" height="81" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr>
<td width="100%" height="81"><p align="center"><%=Language_tuiding(1)%><%=webname%><%=Language_tuiding(2)%></p>
<p align="center">
<input type="Submit" value="<%=Language_tuiding(8)%>" name="QiutMailList" class="Tips_bo"></td>
</tr>
</table>
</Form>
<%ElseIf IsdyEmail(tdmail) AND Request.Form("QiutMailList")<>"" Then
'邮件订阅过AND已经确定要退订
'删除邮件地址
Set rs=conn.execute("delete from mail where mail='"&tdmail&"'")
'显示提示信息
Set rs=conn.execute("select td from Management")
%>
<FORM method="post" action="<%=weburl%>">
<table border="1" cellspacing="0" cellpadding="0" width="550" bordercolor="#7C96B8" bordercolordark="#FFFFFF" bordercolorlight="#7C96B8" height="132" >
<tr>
<td height="20" colspan="2" bgcolor="#7C96B8" background="images/mmTo.gIf" width="546"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center">
<font color="#336699"><%=Language_tuiding(4)%></font></div></td>
</tr>
<tr>
<td height="84" colspan="2" width="546"><%=rs("td")%></td>
</tr>
<tr>
<td colspan="2" align="center" bgcolor="#7C96B8" height="20" background="images/mmTo.gIf" width="546"> <input name="bank" type="Submit" class="Tips_bo" value="<%=Language_tuiding(8)%>" class="Tips_bo">
</td>
</tr>
</table>
</FORM>
<%Else
'输入邮件地址错误,提示重新输入
%>
<FORM method="post" action="tuiding.asp">
<table border="1" cellspacing="0" cellpadding="0" width="366" bordercolor="#7C96B8" bordercolordark="#FFFFFF" bordercolorlight="#7C96B8" height="132" >
<tr>
<td height="20" bgcolor="#7C96B8" background="images/mmTo.gIf" width="362"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center">
<font color="#336699"><%=Language_tuiding(5)%></font></div></td>
</tr>
<tr>
<td height="84" width="362"><div align="center">
<table width="328" border="0" height="60">
<tr>
<td width="320"><font color="#336699"><%=Language_tuiding(6)%></font> </td>
</tr>
<tr>
<td width="320"><font color="#336699"><%=Language_tuiding(7)%></font><font color="#7C96B8">
<input type="text" name="email" size="32" class="bk" maxlength="100">
</font></td>
</tr>
</table></div>
</td>
</tr>
<tr>
<td align="center" bgcolor="#7C96B8" height="20" background="images/mmTo.gIf" width="362"> <input name="retuiding" type="Submit" class="Tips_bo" value="<%=Language_tuiding(8)%>" class="Tips_bo">
</td>
</tr>
</table>
</FORM>
</div>
</body>
</html>
<%
'清除Cookies中退订地址
Response.Cookies("Donggan")("mailtuiding")=""
End If
'关闭销毁对象l
Set rs=nothing
conn.close
Set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -