<%@ LANGUAGE="VBSCRIPT" %>
<%
result=Instr(1,request.ServerVariables("http_referer"),request.servervariables("http_host"),1)
if result = 0 or result = null then
response.redirect "manager-login.asp"
end if
if session("sid") <> "top" then
response.redirect "manager-login.asp"
end if
%>
<%
a = server.mappath("sendmail.js")
b = server.mappath("sendmail.txt")
const forreading=1, forwriting=2, forappending=8
const tristateusedefault=-2, tristateture=-1, tristatefalse=0
set fs = createobject("scripting.filesystemobject")
if request("hf") = "y" then
newad = request("newad")
set ts = fs.createtextfile(b, true)
ts.write newad
fs.copyfile b, a, true
ts.close
Response.write"
"
Response.write "电子邮件地址已经成功设置 >>>"
Response.write "*请按此返回..."
Response.end
else
fs.copyfile a, b, true
set f = fs.getfile(b)
set ts = f.openastextstream(forreading, tristateusedefault)
s = ts.readline
ts.close
%>
现在的电子邮件地址：