⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sendmail.asp

📁 网站 QCNEWS后台管理程序,风格流行功能强大
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<HTML><HEAD><TITLE><%=NetName%> (<%=NetUrl%>)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="青创,asp,qcsky,qcdn,QCDN_NEWS">
<link href="<%=CssDir%>style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#ff0000 link=#0000ff leftMargin=0 
topMargin=0 marginwidth="0" marginheight="0">
<br><br>
<%
if EmailFlag = 0 then
	Errmsg = "目前系统不支持发送邮件功能。"
	call Qcdn.Err_List(errmsg,3)
	Response.end
end if
If Request("method") = 1 then
	if Request("Unid") = "" then
		Errmsg = "<li>发现异常错误。<li>错误编号为: error 110。<li>请和青创网络联系解决问题。"
		FoundErr = true
	else
		Unid = Request("Unid")
	end if

	if Trim(Request.Form("YouName")) = "" then
		Errmsg = Errmsg +"<li>请输入您的姓名。"
		FoundErr = true
	else
		YouName = Trim(Request.Form("YouName"))
	end if

	if Trim(Request.Form("YouMail")) = "" then
		Errmsg = Errmsg +"<li>请输入您的信箱。"
		FoundErr = true
	elseif Qcdn.IsValidEmail(Trim(Request.Form("YouMail"))) = false then
		Errmsg = Errmsg +"<li>请输入您的正确信箱地址。"
		FoundErr = true
	else
		YouMail = Trim(Request.Form("YouMail"))
	end if

	if Trim(Request.Form("SendEmail")) = "" then
		Errmsg = Errmsg + "<li>请输入要发送的信箱。"
		FoundErr = true
	elseif Qcdn.IsValidEmail(Trim(Request.Form("SendEmail"))) = false then
		Errmsg = Errmsg + "<li>请输入要发送的正确信箱地址。"
		FoundErr = true
	else
		SendEmail = Trim(Request.Form("SendEmail"))
	end if

	if FoundErr then
		call Qcdn.Err_List(errmsg,1)
		Response.end
	end if

	Sql = "Select title,Content from article_info where Unid = " & Unid
	Set Rs = Conn.Execute(Sql)
	if Rs.eof and Rs.bof then
		Errmsg = "<li>发生异常错误。<li>错误编码为：error 111。<li>请和青创网络联系解决问题。"
		call Qcdn.Err_List(errmsg,1)
		Response.end
	else
		title = YouName & "从青创网络给您发来的“" & Rs(0) & "”信息。"
		Content = Rs(1)
	end if
	rs.close : set rs = nothing
	Dim MailStr
		Emailbody=Emailbody &"<style type=text/css>"
		Emailbody=Emailbody &"<!--"
		Emailbody=Emailbody &"TD{FONT-SIZE:9PT;}"
		Emailbody=Emailbody &"-->"
		Emailbody=Emailbody &"</style>"
		Emailbody=Emailbody &"<body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>"
		Emailbody=Emailbody & "<p><br>"
		Emailbody=Emailbody &"<table width=100% border=1 cellspacing=0 cellpadding=3 align=center bordercolorlight=#cccccc bordercolordark=#FFFFFF>"
		Emailbody=Emailbody &"  <tr>"
		Emailbody=Emailbody &"    <td align=center bgcolor=#FFCC00 height=30>"& title &"</td>"
		Emailbody=Emailbody &"  </tr>"
		Emailbody=Emailbody &"  <tr>"
		Emailbody=Emailbody &"    <td>"&Qcdn.UBBCode(content)&"</td>"
		Emailbody=Emailbody &"  </tr>"
		Emailbody=Emailbody &"  <tr align=center>"
		Emailbody=Emailbody &"<td align=center>"& copyright &"</td>"
		Emailbody=Emailbody &"    </tr>"
		Emailbody=Emailbody &"  <tr align=center>"
		Emailbody=Emailbody &"<td align=center>"& Version &"</td>"
		Emailbody=Emailbody &"    </tr>"
		Emailbody=Emailbody &"</table>"

	Select Case EmailFlag
			Case 0
				Response.write "<script>alert(""不支持发送邮件"");window.close();</script>"
				Response.End
			Case 1
				Call Qcdn.Jmail(YouMail,SendEmail,title,Emailbody)
			Case 2
				Call Qcdn.Cdonts(YouMail,SendEmail,title,Emailbody)
			Case 3
				Call Qcdn.aspemail(YouMail,SendEmail,title,Emailbody)
		End Select 

		if MailStr <> "OK" then
			Response.Write "<script>alert(""发送失败"");window.close();</script>"
		else
			Response.Write "<script>alert(""发送成功"");window.close();</script>"
		end if
		Response.End
	
end if
if Request("Unid") = "" then
	Errmsg = "<li>发现异常错误。<li>错误编号为: error 110。<li>请和青创网络联系解决问题。"
	call Qcdn.Err_List(errmsg,1)
	Response.end
else
	Unid = Request("Unid")
end if
%>



	<table width="400" align="center" cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-t-left"></td>
	<td class="mframe-t-mid">
		<span class="mframe-t-text">推荐文章给好友</span>
	</td>
	<td class="mframe-t-right"></td>
	</tr>
	</table>
	<table width="400" align="center" cellspacing=0 cellpadding=0>
	<tr>
	<td class="mframe-m-left"></td>
	<td class="mframe-m-mid" align=left style="padding-left:30px">
		<span id="myLabel" style="width:100%;"></span>
		<form name="form1" method="post" action="">
  <input type="hidden" value="<%=Unid%>" name="Unid">
您的姓名：&nbsp;<input type="text" name="YouName" size="30" maxlength="30">
<br><br>
您的信箱：&nbsp;<input type="text" name="YouMail" size="30" maxlength="30">
<br><br>
发送信箱：&nbsp;<input type="text" name="SendEmail" size="30" maxlength="30">
<br><br>
    <input type="submit" name="submit" value=" 发 送 ">
    <input type="hidden" name="method" value="1">
	</form>
	</td>
	<td class="mframe-m-right"></td>
	</tr>
	</table>
	<table width="400" align="center" cellspacing=0 cellpadding=0 >
	<tr>
	<td class="mframe-b-left"></td>
	<td class="mframe-b-mid">&nbsp;</td>
	<td class="mframe-b-right"></td>
	</tr>
	</table>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -