📄 readme.txt
字号:
<% @EnableSessionState=False %>
<% Option Explicit %>
<% Response.Expires=0 %>
<% Response.Buffer=True %>
<% Response.Cachecontrol="Public" %>
<!--#INCLUDE file="pwd.asp"-->
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Dim strApp, strUsr, strUpd, strRom, strTon, strMda
Dim intNr1
strUpd = Application("strUpd" & Pwd(2))
strApp = Application("strApp" & Pwd(2))
strUsr = Application("strUsr" & Pwd(2))
strRom = Trim(Request.Querystring("fldRom"))
strTon = Trim(Request.Querystring("fldTon"))
strMda = Trim(Request.Querystring("fldMda"))
If Not IsNumeric(strRom) Then strRom = "1"
Response.Write("<HTML><HEAD><TITLE>ASP Chat</TITLE></HEAD>")
If strMda <> "off" Then
Response.Write("<BODY BACKGROUND='/chat/images/space" & strRom & ".jpg' BGCOLOR='#000000'>")
Else
Response.Write("<BODY BACKGROUND='' BGCOLOR='" & strUpd(CInt(strRom), 9) & "'>")
End If
Response.Write("<FORM NAME='usr'>")
Response.Write("<TABLE WIDTH='100%' BORDER= '0'>")
Response.Write("<TR><TD ALIGN='Center'>")
If strMda <> "off" Then
Response.Write("<A><IMG SRC='/chat/images/chat1.gif'><BR>")
Response.Write("<FONT SIZE='-2' FACE='MS Serif' COLOR='#C0C0C0'>?B>VISITORS</B>?/FONT><BR>")
For intNr1 = 1 TO 5
Response.Write("<IMG SRC='/chat/images/" & Mid(Right(String(5, "0") & strApp(0), 5), intNr1, 1) & "dig.gif' BORDER='0'>")
Next
Response.Write("</A>")
Else
Response.Write("<BR><FONT SIZE='+1' FACE='MS Serif' COLOR='#C0C0C0'><B>CHAT</B></FONT><BR>")
End If
Response.Write("</TD></TR>")
Response.Write("<TR><TD ALIGN='Center'><BR>")
Response.Write("<FONT SIZE='-1' COLOR='#00FFFF'>Space:</FONT>")
Response.Write("</TD></TR>")
Response.Write("<TR><TD ALIGN='Center'>")
Response.Write("<FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#D9D919'>")
Response.Write("<B>- " & strRom & " -</B>")
Response.Write("</FONT>")
Response.Write("</TD></TR>")
Response.Write("<TR><TD ALIGN='Center'><BR>")
Response.Write("<FONT SIZE='-1' COLOR='#00FFFF'>Input:</FONT>")
Response.Write("</TD></TR>")
Response.Write("<TR><TD ALIGN='Center'>")
Response.Write("<FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#D9D919'>")
Response.Write("<B>" & strUpd(CInt(strRom),7) & "</B>")
Response.Write("</FONT>")
Response.Write("</TD></TR>")
Response.Write("<TR><TD ALIGN='Center'>")
Response.Write("<FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#D9D919'>")
Response.Write("<B>" & strUpd(CInt(strRom),5) & "</B>")
Response.Write("</FONT>")
Response.Write("</TD></TR>")
Response.Write("<TR><TD ALIGN='Center'>")
Response.Write("<FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#FFFF00'>")
Response.Write("<B>" & strUpd(CInt(strRom),6) & "</B>")
Response.Write("</FONT>")
Response.Write("</TD></TR>")
Response.Write("<TR><TD ALIGN='Center'><BR>")
Response.Write("<FONT SIZE='-1' COLOR='#00FFFF'>Inside:</FONT>")
Response.Write("</TD></TR>")
For intNr1 = 59 To 0 Step -1
If strUsr(intNr1, 2) = strRom And Len(strUsr(intNr1, 0)) > 0 Then
Response.Write("<TR><TD ALIGN='Center'>")
Response.Write("<FONT SIZE='-1' FACE='Arial' COLOR='#FF0000'>")
Response.Write("<B>" & strUsr(intNr1,0) & "</B>")
Response.Write("</FONT>")
Response.Write("</TD></TR>")
End If
Next
Response.Write("<TR><TD ALIGN='Center'>")
Response.Write("<A><FONT SIZE='-2' COLOR='#0000FF'><B>- " & strUpd(CInt(strRom),4) & " -</B></FONT></A>")
Response.Write("</TD></TR>")
Response.Write("</TABLE>")
Response.Write("</FORM>")
Response.Write("</BODY>")
Response.Write("</HTML>")
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -