在线反溃邮件问题

yghanzi2000 2004-04-02 11:57:11

----------RegiForm.asp-----------
<table border="0" width="468" height="281" bgcolor="#E7E7E7" ID="Table1">
<tr>
<td height="277" bgcolor="#ECECEC" width="460"> <form method="POST" action="sendmail.asp" ID="Form1">
<table border="0" width="99%" ID="Table2">
<tr>
<td width="100%" bgcolor="#ECECEC"> <p align="center"><font size="2" color="#0000FF"><b>在线报名登记表（Registration
Form）</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#ECECEC"><font size="2">姓名:
<input type="text" name="name" size="13" ID="Text1">

<input type="radio" value="先生" name="sex" checked ID="Radio1">
先生
<input type="radio" value="女士" name="sex" ID="Radio2">
女士 <br>
部门:
<input type="text" name="duty" size="13" ID="Text2">
职务:
<input type="text" name="dept" size="14" ID="Text3">
<br>
单位:
<input type="text" name="company" size="37" ID="Text4">
<br>
邮编:
<input type="text" name="post" size="13" ID="Text5">
<br>
地址:
<input type="text" name="address" size="38" ID="Text6">
<br>
电话：<input type="text" name="tel" size="13" ID="Text7">
传真：<input type="text" name="fax" size="15" ID="Text8">
<br>
Email：
<input type="text" name="email" size="36" ID="Text9">
<br>
主营:
<input type="text" name="master" size="38" ID="Text10">
</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#ECECEC"><font size="2"> 问题/意见/特别需求：<br>
<textarea rows="1" name="S1" cols="55" ID="Textarea1"></textarea>
<br>
如有同行人员，请填写如下表格：<br>
姓名：
<input type="text" name="name3" size="6" ID="Text11">
部门：
<input type="text" name="dpt" size="6" ID="Text12">
职务：
<input type="text" name="duty3" size="6" ID="Text13">
电话：
<input type="text" name="cell" size="8" ID="Text14">
<br>
姓名：
<input type="text" name="name1" size="6" ID="Text15">
部门：
<input type="text" name="dpt1" size="6" ID="Text16">
职务：
<input type="text" name="duty1" size="6" ID="Text17">
电话：
<input type="text" name="cell1" size="8" ID="Text18">
<br>
姓名：
<input type="text" name="name2" size="6" ID="Text19">
部门：
<input type="text" name="dpt2" size="6" ID="Text20">
职务：
<input type="text" name="duty2" size="6" ID="Text21">
电话：
<input type="text" name="cell2" size="8" ID="Text22">
<br>
</font></td>
</tr>
</table>
<div align="center"></div>
<p align="center"><font size="2">
<input type="submit" value="提交" name="B1" ID="Submit1"> <input type="reset" value="全部重写" name="B2" ID="Reset1">
</font></p>
</form></td>
</tr>
</table>
</div></td>
</tr>
</table> </td>
</tr>
</table>
------------------------------sendmail.asp----------------------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<%

function changechr(str)
changechr=trim(replace(replace(replace(str,"'","''"),"""",""""""),",","、"))
end function

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(application("conn_string"))
Set rs = Server.CreateObject("ADODB.Recordset")

s_subject = changechr(request("subject"))
s_content = changechr(request("content"))
s_sendtime = now()
s_membertype = changechr(request("membertype"))
senderip = Request.ServerVariables("REMOTE_HOST")

' 创建jmail对象:
Set JMail = Server.CreateObject("jmail.message")

' 设置发送邮件服务器(SMTP):
JMail.MailServerPassWord = "service" '发信授权邮件密码
JMail.MailServerUserName = "service" '发信授权邮件名称
JMail.ContentType = "text"

' 发件人的信箱:
JMail.From = "ygh@163.com"
' 邮件标题:
JMail.Subject = s_subject
JMail.Body = s_content
JMail.Priority = 1

' 设置邮件的收件人信箱(请使用在我司申请的邮箱):
JMail.AddRecipient "ygh@163.com"
JMail.Send "202.96.31.170",false

sql = "insert into sendmail (sendtime,subject,sendcount,content,receiver,senderip)"
sql = sql & " values('"& s_sendtime &"','"& s_subject &"',"& sendcount &",'"& s_content &"',"
sql = sql & "'"& s_membertype &"','"& senderip &"')"
'response.write sql
conn.execute sql

conn.close
set conn = nothing
str = "<body bgcolor='#3070C0'><center><p><br><br><br><br><font style='font-size:9pt;color:white'><b>"
str = str & "成功发送" & sendcount & "封邮件！请稍候，本页面5秒后自动返回。<b></font>"
str = str & "</p></center>"
str = str & "'>"
response.write str

%>

</BODY>
</HTML>
=====================================================================
新手请教多谢哪位GG帮我改一下

...全文