?? disp.asp
字號(hào):
<%
id=cstr(session.SessionID)
Response.Write(session(id))
'if session(id)<>"" then
'set fileobject=createobject("scripting.filesystemobject")
'if fileobject.FileExists(server.mappath("\")&"\userinfo\"&session.SessionID&".txt") then
Response.Write("<script language='javascript'>")
infodim=split(session(id),"※",2)
for i=0 to ubound(infodim)
'set fs=fileobject.OpenTextFile(server.mappath("\")&"\userinfo\"&session.SessionID&".txt",ForWriting,false)
'while not fs.atendofline
' msgstr=fs.readline
msg=split(infodim(i),"$")
Response.write("window.open('send_get_info.asp?id="&msg(0)&"&name="&server.htmlencode(msg(1))&"&sendflag=0&info="&server.htmlencode(msg(2))&"','','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=356,height=193');")
'Response.write("window.open('send_get_info.asp?id="&msg(0)&"&name="&server.htmlencode(msg(1))&"&sendflag=0&info="&server.htmlencode(msg(2))&"','','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=356,height=193');")
'fs.writeline()
'wend
'fs.close
next
Response.Write("</script>")
'session(id)=""
'fileobject.DeleteFile(server.mappath("\")&"\userinfo\"&session.SessionID&".txt")
'end if
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -