高手请进

<%@ Import NameSpace="System.Web.Mail" %><script runat="SERVER">
Dim errorinfo As String
Dim title As String
Dim content As String
Dim email As MailMessage
</script><%
'----------------------------------------------|数据检查|
title = Server.HtmlEnCode(Trim(Request("sendtitles")))
content = Server.HtmlEnCode(Trim(Request("sendcontents")))If title="" Then errorinfo = "无效访问"
If content="" Then errorinfo = "无效访问"If Request.ServerVariables("REQUEST_METHOD") = "GET" Then errorinfo = "无效访问"If Len(Session("sendtime"))>0 Then
If DateDiff("m",Now(),Session("sendtime")) < 5 Then
Response.Write("<script>alert('您已刚发送完毕信件,请稍后再发!')</script>")
Response.End()
End If
End IfIf errorinfo<>"" Then 
Response.Write("<script>alert('" & errorinfo & "')</script>")
Response.End()
Else
'----------------------------------------------|发送信件|
email = New MailMessage()
email.From = "[email protected]" '网站Email
email.To = "[email protected]"  '客户Email
email.Subject = title
email.BodyFormat = MailFormat.Text
email.Body = content
SmtpMail.SmtpServer = "255.0.0.0" 'Serverip
'Try
SmtpMail.Send(email)
Session("sendtime") = Now()
'Response.Write("<script>alert('发送成功!')</script>")
'Catch e As Exception
'Response.Write("<script>alert('发送失败!')</script>")
'response.write(e.tostring)
'End Try
End If
%>