<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Mozilla=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Mozilla
Agent=Split(Agent,";")
BcType=0
If Instr(Agent(1),"U") Or Instr(Agent(1),"I") Then
BcType=1
end if
If InStr(Agent(1),"MSIE") Then
BcType=2
end if
Select Case BcType
Case 0:
Browser="其它"
System="其它"
Case 1:
Ver=Mid(Agent(0),InStr(Agent(0),"/")+1)
Ver=Mid(Ver,1,InStr(Ver," ")-1)
Browser="Netscape"&Ver
case 2:
Browser=replace(Agent(1),"MSIE","IE")
End Select
Browser=trim(browser)
huanhang=chr(13) & chr(10)
suojin=chr(9)
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody)
FromName="yimeick网站邮件"
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
on error resume next
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.126.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName ="h5252cn" '登录用户名
JMail.MailServerPassWord ="89812736" '登录密码
JMail.MailDomain = "smtp.126.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = "一美网站"'发信人姓名
JMail.From ="h5252cn@126.com" '发信人Email
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
JMail.DeferredDelivery=now()+0.001
JMail.UsePipelining=True
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
if request.Form("name")<>"" then
a1=request("name")
a2=request("email")
a3=request("tel")
a4=request("words")
neirong="你好以下是 一美网站用户 "+a1+" 发送信息 不要直接回复邮件
姓名
"+a1+"
邮箱
"+ a2+"
电话
"+a3+"
留言
"+a4+"
ip："+ip
SendMail "yimeick@hotmail.com","一美网站","一美网站留言",neirong
function ip()
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
mmip1 = Trim(Mid(strIPAddr, 1, 30))
ip=cstr(mmip1)
end function
%> <%
end if
%>
contants us