<%@ 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("settitle.js")
b = server.mappath("settitle.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 = "document.writeln('" & request("add1")
newad = 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
%>
<% end if %>