<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta content="text/html; charset=gb2312" http-equiv="content-type">
<Meta http-equiv="Refresh" Content="3600;">
</head>
<body>
<%
'邮件的标题
title="【ip】查询的IP为"
'邮件的内容
ip_string=Reg_tager(GetHttpPage("http://iframe.ip138.com/city.asp"),"<center>([^<]*)</center>")
'邮件发送给谁
SendTo=""
'发送人的登陆邮件用户名
Email_user=""
'发送人的登陆邮箱密码
Email_password=""
'邮件服务器SMTP地址
smtp="smtp.qq.com"
response.Write("这一次发送Email的时间是:"now()&"<br>"ip_string)
email_send(title,ip_string,SendTo,Email_user,Email_password,smtp)
%>
</body>
</html>
<%
'===============================================&
<html>
<head>
<meta content="text/html; charset=gb2312" http-equiv="content-type">
<Meta http-equiv="Refresh" Content="3600;">
</head>
<body>
<%
'邮件的标题
title="【ip】查询的IP为"
'邮件的内容
ip_string=Reg_tager(GetHttpPage("http://iframe.ip138.com/city.asp"),"<center>([^<]*)</center>")
'邮件发送给谁
SendTo=""
'发送人的登陆邮件用户名
Email_user=""
'发送人的登陆邮箱密码
Email_password=""
'邮件服务器SMTP地址
smtp="smtp.qq.com"
response.Write("这一次发送Email的时间是:"now()&"<br>"ip_string)
email_send(title,ip_string,SendTo,Email_user,Email_password,smtp)
%>
</body>
</html>
<%
'===============================================&