📄 qunfamail.asp

📁 英文版全站B2B仿阿里巴巴贸易平台网站,全英文
💻 ASP
字号:
<!--#include file="../../Inc/DBConn1.asp" -->
<!-- #include file="../../inc/jmail.asp" -->
<LINK href="../../CSS/style.css" rel="stylesheet" type="text/css"></LINK>
<%
	TID=request("TID")
	Set Rs=server.CreateObject("ADODB.Recordset")
	Rs.Open "select * from Trade where TID=" & TID,conn,1,1
	Set UCRs=server.CreateObject("ADODB.Recordset")
	UCRs.Open "select * from UserCompany where SortID=" & Rs("SortID"),conn,1,1
	while not UCRs.EOF
%>
<%
		topic=Rs("TradeTitle") & "(转自 企业网)"
		
		mailbody="<html>"
		mailbody=mailbody & "<title>" & UCRs("CompanyName") &"</title>"
		mailbody=mailbody & "<body leftmargin=0 topmargin=0>"
		mailbody=mailbody & "<table width=100%  border=0 cellspacing=0 cellpadding=0>"
		mailbody=mailbody & "<tr><td colspan=2 height=40>您好，<font color=#ff0000>"& UCRs("CompanyName") & "</font></td></tr>"
		mailbody=mailbody & "<tr><td colspan=2 height=40>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=http://www.china-public-security.cn target=_blank>企业网</a>有人发布供求信息<a href=http://www.china-public-security.cn/Trade/TradeDetail.asp?TID=" & Rs("TID") & " target=_blank>" & Rs("TradeTitle") & "</a></td></tr>"
		mailbody=mailbody & "<tr><td colspan=2 height=50 align=right>您在<a href=http://www.china-public-security.cn target=_blank>企业网</a>上的企业名片地址是：<br><a href=http://www.china-public-security.cn/Company/CompanyDetail.asp?UID=" & UCRs("UID") & " target=_blank><font color=red>http://www.china-public-security.cn/Company/CompanyDetail.asp?UID=" & UCRs("UID") & "</font></a></td></tr>"
		mailbody=mailbody & "<tr><td colspan=2 height=50 align=right><font color=red size=+1>欢迎访问<a href=http://www.china-public-security.cn target=_blank>企业网</a>！</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>"
		mailbody=mailbody & "</table>"
		mailbody=mailbody & "<br><hr width=95% size=1>"
		mailbody=mailbody & "<table width=768 height=1800 border=0 cellspacing=0 cellpadding=0 align=center><tr><td><iframe src=http://www.china-public-security.cn frameborder=0 width=100% height=100% marginwidth=0 marginheight=0 scrolling=no></iframe></td></tr></table>"
		mailbody=mailbody & "</body>"
		mailbody=mailbody & "</html>"
		
		call SendMail(UCRs("Email"),topic,mailbody)
		
		UCRs.MoveNext
	wend
	
	UCRs.Close
	set UCRs=nothing
	Rs.Close
	set Rs=nothing
%>
<table align=center width=100% height=100% border=0 cellpadding=0 cellspacing=0>
	<tr>
		<td width=100% valign=middle align=center>邮件发送成功！<br><a href="javascript:window.close();"><font color="#FF0000">关闭窗口</font></a></td>
	</tr>
</table>
⌨️ 快捷键说明

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