?? yanxianni.asp
字號:
<% @language="vbscript" %><!--#include file="conn.asp"-->
<!--#include file=fuction.asp -->
<%
response.buffer=true
Response.Expires=0
radiobutton=nosql(Request("radiobutton"))
mail=nosql(Request("mail"))
'submit=requst("submit")
If mail="" Then
response.write "SORRY <br>"
response.write "你的信箱沒有填寫"
response.end
end if
if Instr(mail,"@")=0 Then
response.write "SORRY <br>"
response.write "你的箱地址難道是這個?<br>一看就是假的!"
response.end
end if
if Instr(mail,".")=0 Then
response.write "SORRY <br>"
response.write "你地址難道是這個?<br>一看就是假的!"
response.end
end if
if radiobutton="ding" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mail"
rs.open sql,conn,1,3
rs.addnew
rs("mail")=mail
rs("date")=now()
rs("ip")=Request.ServerVariables("REMOTE_HOST")
rs.update
rs.close
response.write "謝謝您的訂閱 <br>"
%>
<%=mail%>
<%
response.write "<script language=javascript>alert('您的郵箱地址已經成功加入我們的郵件列表中,感謝您的支持!');history.go(-1);</script>"
'response.write " 您的郵箱地址已經成功加入我們的郵件列表中,感謝您的支持<br>"
'response.write "<a href=javascript:window.close()>關閉本窗口 </a>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from mail where mail='"&mail&"' "
conn.Execute sql
conn.Close
set conn=Nothing
%><%=mail%><%
response.write "<script language=javascript>alert('已經刪除,謝謝您的退訂閱!');history.go(-1);</script>"
response.End
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -