📄 td.asp
字号:
<!--本邮件列表系统由雷の龙独立制作，版权所有。http://gamewu.126.com-->
<!--#include file="conn.asp"-->
<%set rs=server.createobject("adodb.recordset")%>
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
<%If Request.ServerVariables("Request_Method")="GET" then%>
<body background="INDTEXTB.JPG">
<p> </p>
<p> </p>
<p> </p>
<form method="POST" action="td.asp">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: double; border-width: 3" bordercolor="#111111" width="550" height="81">
<tr>
<td width="100%" height="81"><%set rs=conn.execute("select yjlb from admin")%>
<p align="center"><b><font size="3">你真的要<font color="#FF0000">退订</font><%=rs("yjlb")%>邮件列表吗？</font></b></p>
<p align="center">
<input type="submit" value="确 定" name="B1" style="border-style: solid; border-width: 1"> </td>
</tr>
</table>
</center>
</div>
</form>
<%else
set rs=conn.execute("delete from email where email='"&session("td")&"'")
set rs=conn.execute("select td from admin")
response.write rs("td")
end if
set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -