其他小程序

开发平台：

VBScript

dealinvite.asp：源码内容

							<% 
   'web-based info survey system
   'progarmmed for cabletron
   '      by Gary Tang,04 26,2001
%>
<!--#include file=dbconn.asp-->
<%
'dinfine variable
 dim name,email,company,address,zip,tel,vcontent
'accept variable value from cilent-side
 name=trim(request.form("name"))
 email=trim(request.form("email"))
 company=trim(request.form("company"))
 address=trim(request.form("address"))
 zip=trim(request.form("zip"))
 tel=trim(request.form("tel"))
 joininvite=trim(request.form("joininvite"))
 
'replace ' with '' 
 name=replace(name,"'","''")
 email=replace(email,"'","''")
 company=replace(company,"'","''")
 address=replace(address,"'","''")
 zip=replace(zip,"'","''")
 tel=replace(tel,"'","''")
 vcontent="这位先生/小姐有意参加此项活动，其资料如下："+chr(13)+chr(10)
 vcontent=vcontent+"姓名:"+name+chr(13)+chr(10)
 vcontent=vcontent+"公司:"+company+chr(13)+chr(10)
 vcontent=vcontent+"地址:"+address+chr(13)+chr(10)
 vcontent=vcontent+"邮编:"+zip+chr(13)+chr(10)
 vcontent=vcontent+"电话:"+tel+chr(13)+chr(10)
 vcontent=vcontent+"email:"+email+chr(13)+chr(10)
 vcontent=vcontent+"是否参加（1是0否):"+joininvite+chr(13)+chr(10)
'creste sql statement and insert into database 
 sql="insert into invitedperson(name,company,address,zip,tel,email,posttime,joininvite)" 
 sql=sql+" values('"&name&"','"&company&"','"&address&"','"&zip&"','"&tel&"','"&email&"',convert(datetime,getdate()),"&joininvite&")"
 'response.write sql
 conn.execute(sql)
 
 Set Mymail = CreateObject("CDONTS.NewMail")
 Mymail.From = "support@hermes.com.cn"
 Mymail.subject = "邀请函回复"
 Mymail.Body=vcontent
'设置优先级，0-不重要，1-一般，2-重要。
 Mymail.Importance = 2
 Mymail.To = "tsj@hermes.com.cn"
 Mymail.Send
 Set Mymail = Nothing
 conn.close
 set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<title>信息调查</title>
<script src="precheck.js"></script>
</head>
<body leftmargin=0 topmargin=3>
<br>
<br>
<br>
<br>
<center>
&nbsp;&nbsp;
<font color="#181873" size=3>非常感谢您的参与，您的信息已经提交成功了</font>
</center>
<br>
<br>
<p align=center><a href="javascript:self.close()"><font color="#181873" size=2>关闭窗口</font></a></p>
</body>
</html>

						