跆拳道精神10个字:急..ASP问题,是高手的就进来一起讨论讨论.

<% Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
Sstr=request.Form("fmail")
a=instr(Sstr,"@")

firstname=left(Sstr,a-1)

response.write firstname
lastname=right(Sstr,len(Sstr)-a)

Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312"
JMail.silent=True
JMail.ContentType = "text/html"
MailServer = "smtp.163.com"
JMail.MailServerUserName = "user"
JMail.MailServerPassWord = "********"
JMail.MailDomain = lastname
JMail.AddRecipient MailtoAddress,MailtoName
JMail.Subject = Subject
JMail.AppendHTML(MailBody)
JMail.FromName = FromName
JMail.From = MailFrom
JMail.Priority = 3
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
dim str
str=" <p>近来好吗？ 我正在浏览XXX</p> <p>看到以下的信息，感到对你很合适，因此推荐给你，希望能对你有所帮助。</p>"
select case request.Form("submit")
case "发送给朋友"
if request.form("fmail")="" or request.form("ymail")="" or request.form("yname")="" or request.form("fname")="" then
if instr(request.form("fmail"),"@")=0 or instr(request.form("ymail"),"@")=0 then
response.write("<script language=javascript >alert('请填写正确信息!')</script>")
else
Call SendMail(request.form("fmail"),request.form("fname"),"XXX",str,request.form("yname"),request.form("yname"))
end if
end if
end select
%>请问各位这代码要怎样改??
其中数据是从表单上获得.
fname,fmail是要发送给用户的姓名和E-MAIL地址,
yname,ymail是该用户姓名和E-mail地址.