Other windows programs

Development Platform:

VBScript

dealcontact.asp：Code Content

							<%@ LANGUAGE = "VBScript" %>
<%
dim str
Set Mymail = CreateObject("CDONTS.NewMail")
Mymail.From = "user@hermes.com.cn"
Mymail.To = "huanghao@hermes.com.cn"
str="关于对"+request.form("title")+"的用户反馈"
Mymail.subject = "关于用户对"+request.form("title")+"的反馈信息"
Mymail.Body=request.form("content")+CHR(13)+CHR(10)+CHR(13)+CHR(10)+"发信人姓名:"+request.form("username")+CHR(13)+CHR(10)+"发信人email:"+request.form("useremail")+CHR(13)+CHR(10)+"发信人tel:"+request.form("usertel")+CHR(13)+CHR(10)+"发信人单位名称:"+request.form("companyname")+CHR(13)+CHR(10)+"发信人单位地址:"+request.form("companyaddress")
'设置优先级，0-不重要，1-一般，2-重要。
Mymail.Importance = 2
Mymail.Send
Set Mymail = Nothing
%>
<html>
<head>
<title>易问网欢迎您</title>
<link rel="stylesheet" href="main.css">
<META HTTP-EQUIV=Content-Type CONTENT="text/html; charset=gb2312">
<META NAME="KEYWORDS" CONTENT="电子; IT产业; 智能; 金融; 投资; 集成; 经营; 技术; 网络; 软件开发; 安全技术; 站点制作; 免费; free; internet; wwwboard; b2b;企业；企业上网；headlines; downloads; news; Web site; what's new; solutions; services; software; contests; corporate news;">
<META NAME="description" CONTENT="易问网">
</head>
<body leftMargin=2  rightMargin=2 topMargin=3  MARGINHEIGHT="2" MARGINWIDTH="2" link="#FFFF00" vlink="#FFFF00" alink="#FFFF00">
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr><td>
　　您的消息已经发出，非常感谢您对易问网的关心，您的支持是我们的网站得以发展的动力，真诚希望您能给我们提出宝贵的意见和建议。<br><br><br><br>
<p align=right>______  易问网    2000.8&nbsp;&nbsp;&nbsp;&nbsp;</p><br><br>
<center><a href="javascript:self.close()">关闭窗口</a></center>
  </td></tr>
</table>
</body>
</html>

						