📄 chatlist.asp
字号:
<%Response.ContentType = "text/vnd.wap.wml"
Response.Buffer = TRUE
thecontent=Request("thecontent")'得到传来的留言
session("theword")=thecontent'写成session
username=Request("username")
if username<>"" then
session ("personname")=username
else
username=session ("personname")
end if
%>
<%
If not session("theword")="" THEN
APPLICATION.LOCK
Application("txt10") = Application("txt9")
Application("txt9") = Application("txt8")
Application("txt8") = Application("txt7")
Application("txt7") = Application("txt6")
Application("txt6") = Application("txt5")
Application("txt5") = Application("txt4")
Application("txt4") = Application("txt3")
Application("txt3") = Application("txt2")
Application("txt2") = Application("txt1")
if session("theword")="" then
Application("txt1") =session ("personname") & "对大家说：我进来了，请各位多多关照！" & time()
else
Application("txt1") = session ("personname") & "说：" & session("theword")
session("theword")=""'清空
end if
APPLICATION.UNLOCK
END IF
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-control" content="no-cache" />
</head>
<card id="index" title="<%=uni("天堂鸟论坛")%>" >
<p align="center">
<img src="" alt=""/><%=uni("在线聊天室")%>
</p>
<p>
<a title="确定" href="message.asp">我要发言</a><br/>
---------------<br/>
<%=Application("txt1")%><br/>
<%=Application("txt2")%><br/>
<%=Application("txt3")%><br/>
<%=Application("txt4")%><br/>
<%=Application("txt5")%><br/>
<%=Application("txt6")%><br/>
<%=Application("txt7")%><br/>
<%=Application("txt8")%><br/>
<%=Application("txt9")%><br/>
<%=Application("txt10")%><br/>
<a title="确定" href="message.asp">我要发言</a><br/>
<a title="确定" href="../index.asp">论坛首页</a><br/>
</p>
</card>
</wml>
<% Function uni(Chinese)
For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -