📄 goemaillist.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT * FROM emaillist"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
%>
<%
if request("Submit") <> "" then
set objMail=CreateObject("CDONTS.NewMail")
email=""
while not rs.eof
email=email & rs("Email") & ","
rs.movenext
wend
email=left(email,len(email)-1)
call objMail.Send(Request("title"),email,"Mailing List",Request("neirong"))
set objMail=Nothing
response.redirect "default.asp"
end if
%>
<html>
<head>
<title>邮件订阅</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="ddd.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp" -->
<table width="771" border="0" cellspacing="0" cellpadding="0" align="center" height="76" class="bk1">
<tr>
<td height="80">
<div align="center">
<p> </p>
<form name="form1" method="post" action="">
<table width="56%" border="0">
<tr>
<td colspan="2">
<div align="center"><b>群发邮件</b></div>
</td>
</tr>
<tr>
<td width="25%" class="dfont">邮件主题：</td>
<td width="75%" class="dfont">
<input type="text" name="title" class="textk">
</td>
</tr>
<tr>
<td width="25%" class="dfont">邮件内容：</td>
<td width="75%" class="dfont">
<textarea name="neirong" cols="60" rows="7" class="textk"></textarea>
</td>
</tr>
<tr>
<td colspan="2" class="dfont">
<div align="center">
<input type="submit" name="Submit" value="发送">
</div>
</td>
</tr>
</table>
</form>
<p> </p>
</div>
</td>
</tr>
</table>
<br>
<!--#include file="bottom.asp" -->
</body>
</html>
<%
rs.Close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -