admin.asp

flash天气预报

<%
sid="admin"
spw="admin"
cid=trim(request("ID"))
cpw=trim (request("PW"))
if cid<>sid or cpw<>spw then
Response.Write "&ck=2&"
end if
if cid=sid and cpw=spw then 
Response.write "&ck=1&"
sWeather1=trim(request("Weather1"))
sWeather2=trim(request("Weather2"))
sWeatherChoose=trim(request("WeatherChoose"))
sat1=trim(request("at1"))
sat2=trim(request("at2"))
scolor1=trim(request("color1"))
scolor2=trim(request("color2"))
scolor3=trim(request("color3"))
scolor4=trim(request("color4"))
sday1=trim(request("day1"))
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\main.asp"
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
	OutStream.WriteLine("&color1="&scolor1&"&color2="&scolor2&"&color3="&scolor3&"&color4="&scolor4&"&WeatherChoose="&sWeatherChoose&"&Weather1="&sWeather1&"&Weather2="&sWeather2&"&at1="&sat1&"&at2="&sat2&"&day1="&sday1&"&landing=1&")

end if
%>