📄 sendmail.asp

📁 英文版全站B2B仿阿里巴巴贸易平台网站,全英文
💻 ASP
字号:
<!-- #include file="../../inc/jmail.asp" -->
<!--#include file="../../Inc/DBConn1.asp" -->
<LINK href="../../CSS/style.css" rel="stylesheet" type="text/css"></LINK>
<%
	ID=request("ID")
	Set Rs=server.CreateObject("ADODB.Recordset")
	Rs.Open "select * from Inquire where ID=" & ID,conn,1,1
	Set UCRs=server.CreateObject("ADODB.Recordset")
	UCRs.Open "select * from UserCompany where UID in (" & Rs("TOUIDS") & ")",conn,1,1
%>
<%
	topic=Rs("Subject") & "(From china-public-security.cn)"
	
	if Rs("Sex")=true then
		Linkman="Mr.&nbsp;" & Rs("FirstName") & "&nbsp;" & Rs("LastName")
	else
		Linkman="Ms.&nbsp;" & Rs("FirstName") & "&nbsp;" & Rs("LastName")
	end if
	
	if Rs("IsPrice")=true then
		Information=Information & "Price<br>"
	end if
	if Rs("IsSpecifications")=true then
		Information=Information & "Specifications/International standards met<br>"
	end if
	if Rs("IsMinimumOrder")=true then
		Information=Information & "Minimum order quantity<br>"
	end if
	if Rs("IsDeliveryTime")=true then
		Information=Information & "Delivery time<br>"
	end if
	if Rs("IsSample")=true then
		Information=Information & "Sample availability/cost<br>"
	end if
	
	set CouRs=server.CreateObject("ADODB.Recordset")
	CouRs.Open "select * from Country where CountryID=" & Rs("CountryID"),conn,1,1
	if Not(CouRs.EOF and CouRs.BOF) then
		CountryName=CouRs("CountryName")
	end if

	mailbody="<html>"
	mailbody=mailbody & "<title>" & Rs("Subject") &"</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>china-public-security</a>有人向你留言，以下是留言内容：</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言人：&nbsp;</td><td width=70% >" & Linkman & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言标题：&nbsp;</td><td width=70% >" & Rs("Subject") & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言内容：&nbsp;</td><td width=70% >" & Rs("Message") & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>索取资料：&nbsp;</td><td width=70% >" & Information & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言人公司：&nbsp;</td><td width=70% >" & Rs("CompanyName") & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言人所在国家：&nbsp;</td><td width=70% >" & CountryName & "</td></tr>"	
	mailbody=mailbody & "<tr><td width=30% align=right>留言人电话：&nbsp;</td><td width=70% >" & Rs("Phone") & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言人传真：&nbsp;</td><td width=70% >" & Rs("Fax") & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言人EMAIL：&nbsp;</td><td width=70% >" & Rs("Email") & "</td></tr>"
	mailbody=mailbody & "<tr><td width=30% align=right>留言时间：&nbsp;</td><td width=70% >" & Rs("MDate") & "</td></tr>"
	mailbody=mailbody & "<tr><td colspan=2 height=50 align=right>您在<a href=http://www.china-public-security.cn target=_blank>china-public-security</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>china-public-security</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>"
	
	while not UCRs.EOF
		call SendMail(UCRs("Email"),topic,mailbody)
		UCRs.MoveNext
	wend
	
	UCRs.Close
	set UCRs=nothing
	CouRs.Close
	set CouRs=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>succeed！<br><a href="javascript:window.close();"><br><font color="#FF0000">close</font></a></td>
	</tr>
</table>
⌨️ 快捷键说明

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