📄 index.asp
字号:
<%Response.ContentType = "text/vnd.wap.wml"
Response.Buffer = TRUE
%>
<?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>
<%
if session ("personname")<>"" 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")
Application("txt1") = session ("personname") & "进入聊天室"
APPLICATION.UNLOCK
Response.Redirect "http://61.240.131.134/skybird/wapchat/chatlist.asp"
%>
<%
else
%>
请先登陆<br/>
昵称：<br/>
<input type="text" maxlength="255" name="username"/><br/>
<anchor>登陆
<go method="post" href="chatlist.asp" accept-charset="utf-8">
<postfield name="username" value="$(username)"/>
</go>
</anchor>
<%
end if
%>
</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 + -