set fso=Server.Createobject("Scripting.FileSystemObject") path=Server.MapPath("session.txt")set file=fso.opentextfile(path,1,False)do until file.AtEndOfStream sss=file.ReadLine() loopfile.close set file = nothing set fso = nothing''''''''''''''''''''''''''''''''''''''''''''''''''''''dim name,sss if sss=Request.querystring("session_data") then name=sss else response.write "尚未通过身份验证。" response.end end if
是指自己用文本之类的实现SESSION功能?
如果不是特殊需求就不必了。$fp=fopen("test/session.txt","a+");
fputs($fp,trim($cn)."\r\n");
fclose($fp);
echo "OK!请稍等一秒钟";
echo "<meta http-equiv=Refresh content=1;URL=test/tpupload1.asp?session_data=".$cn.">";============
//
path=Server.MapPath("session.txt")set file=fso.opentextfile(path,1,False)do until file.AtEndOfStream
sss=file.ReadLine()
loopfile.close
set file = nothing
set fso = nothing''''''''''''''''''''''''''''''''''''''''''''''''''''''dim name,sss
if sss=Request.querystring("session_data") then
name=sss
else
response.write "尚未通过身份验证。"
response.end
end if