📄 mydns_form.asp
字号:
<%
sbj=request.form("sbj") '表单标题
radiobutton=request.form("radiobutton") '英文国际域名后
domain =request.form("domain") '您要注册的英文国际域名
chicomp=request.form("chicomp") '注册人或公司全名(中文)
engcomp=request.form("engcomp") '英文全名
chiorga=request.form("chiorga") '组织名称(中文)
engorga=request.form("engorga") '组织名称(英文)
chicoun=request.form("chicoun") '所在国家、地区(中文)
engcoun=request.form("engcoun") '所在国家、地区(英文)
chiprov=request.form("chiprov") '所在省份(中文)
engprov=request.form("engprov") '所在省份(英文)
chicity=request.form("chicity") '所在城市(中文)
engcity=request.form("engcity") '所在城市(英文)
chiaddr=request.form("chiaddr") '联系地址(中文)
engaddr=request.form("engaddr") '联系地址(英文)
zip=request.form("zip") '邮政编码
tel=request.form("tel") '联系电话
email=request.form("email") '联系E-mail
fax=request.form("fax") '传真(或手机)
chimana=request.form("chimana") '管理联系人全名(中文)
engmana=request.form("engmana") '管理联系人全名(英文)
member=request.form("member") '网上商店名称
on error resume next '忽略邮址错误
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ServerAddress =""
JMail.Priority = 1 '高优先级
JMail.contenttype ="text/html" '格式 默认为text/txt
JMail.Sender = "webmaster@0754b2c.com" '指定发件人的邮件地址
JMail.Subject ="汕头商城服务申请" ' 邮件标题
JMail.SenderName = "web" '指定发件人的姓名
JMail.ReplyTo = "webmaster@0754b2c.com" '可选的回信地址
JMail.AddRecipientBCC( "webmaster@0754b2c.com" ) '增加密件收件人
JMail.AddRecipient( email ) '收件人
mess = "<body bgcolor=""#FFFFE8"">"
mess = mess &"尊敬的用户[<font color=""#FF0000"">"&chicomp&"</font>]您好!" & "<br>"
mess = mess & "<br>"
mess = mess &" 首先感谢您使用我们的服务。我们已收到你提交的[<font color=""#FF0000"">"&sbj&"</font>]记录" & "<br>"
mess = mess & "<br>"
mess = mess &" 为了让您的相关服务更快的正式生效，请您尽快交纳费用，如您想立即开通服务，推荐你使用招行一卡通来汇款，同时请在汇款后致电(800-830-9740) 或E-MAIL: webmaster@0754b2c.com告知你所注册的域名，申请网店级别、时间或其他服务。我们在确认款项后将立即为您开通服务。" & "<br>"
mess = mess & "<br>"
mess = mess &"以下为您的申请资料：（如有错误请立即跟我们联系)" & "<br>"
mess = mess &"您要注册的英文国际域名: http://www."&domain &radiobutton &"<br>"
mess = mess &"注册人或公司全名(中文): "&chicomp &"<br>"
mess = mess &"英文全名: "&engcomp &"<br>"
mess = mess &"组织名称(中文): "&chiorga &"<br>"
mess = mess &"组织名称(英文): "&engorga &"<br>"
mess = mess &"所在国家、地区(中文): "&chicoun &"<br>"
mess = mess &"所在国家、地区(英文): "&engcoun &"<br>"
mess = mess &"所在省份(中文): "&chiprov &"<br>"
mess = mess &"所在省份(英文): "&engprov &"<br>"
mess = mess &"所在城市(中文): "&chicity &"<br>"
mess = mess &"所在城市(英文): "&engcity &"<br>"
mess = mess &"联系地址(中文): "&chiaddr &"<br>"
mess = mess &"联系地址(英文): "&engaddr &"<br>"
mess = mess &"邮政编码: "&zip &"<br>"
mess = mess &"联系电话: "&tel &"<br>"
mess = mess &"联系E-mail: "&email &"<br>"
mess = mess &"传真(或手机): "&fax &"<br>"
mess = mess &"管理联系人全名(中文): "&chimana &"<br>"
mess = mess &"管理联系人全名(英文): "&engmana &"<br>"
mess = mess &"网上商店名称: "&member &"<br>"
mess = mess & "<br>"
mess = mess &"<font color=""#0000FF"">交费方式：</font>" & "<br>"
mess = mess & "<br>"
mess = mess &"<font color=""#FF0000"">招商银行</font>(推荐使用）" & "<br>"
mess = mess &"开户行：汕头市招商银行红岗支行" & "<br>"
mess = mess &"户 名：许展鸿" & "<br>"
mess = mess &"帐 号：0595 53465202" & "<br>"
mess = mess & "<br>"
mess = mess &"<font color=""#FF0000"">商业银行</font>" & "<br>"
mess = mess &"开户行：汕头市商业银行滨河支行" & "<br>"
mess = mess &"户 名：许展鸿" & "<br>"
mess = mess &"帐 号：6029 0710 1597 8989" & "<br>"
mess = mess & "<br>"
mess = mess &"<font color=""#FF0000"">汕头商城</font>" & "<br>"
mess = mess &"http://www.0754b2c.com" & "<br>"
mess = mess &"电话：800-830-9740" & "<br>"
mess = mess &"E-MAIL：webmaster@0754b2c.com" & "<br>"
mess = mess &"</body>"
JMail.Body = mess '信件体正文为变量mess
if err then '判断是否错误
err.clear
end if
JMail.Execute()
JMail.Close()
set jMail=nothing
Response.Write ("<script>alert('你已成功提交了服务申请表单！请返回并查看你的信箱！')</script>")
%>
<html>
<head>
<meta http-equiv=refresh content="0; url=<%=request.servervariables("http_referer")%>">
</head>
</html>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -