📄 msg.asp
字号:
<% @EnableSessionState=False %>
<% Option Explicit %>
<% Response.Expires=0 %>
<% Response.Buffer=True %>
<% Response.Cachecontrol="Public" %>
<!--#INCLUDE file="pwd.asp"-->
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Dim strUpd, strMsg, strRom, strGod, strMda
Dim intNr1
strUpd = Application("strUpd" & Pwd(2))
strMsg = Application("strMsg" & Pwd(2))
strRom = Trim(Request.Querystring("fldRom"))
strGod = Trim(Request.Querystring("fldGod"))
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='../images/space" & strRom & ".jpg' BGCOLOR='#000000'>")
Else
Response.Write("<BODY BACKGROUND='' BGCOLOR='" & strUpd(CInt(strRom), 9) & "'>")
End If
Response.Write("<FORM Name='msg'>")
Response.Write("<TABLE WIDTH='100%' BORDER='0'>")
Response.Write("<TR>")
Response.Write("<TD ALIGN='Center'>")
Response.Write("<B><FONT SIZE='+1' COLOR='#D9D9F3'>" & strUpd(CInt(strRom), 1) & "</FONT></B>")
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR><TD COLSPAN='2' ALIGN='Center'>")
Response.Write("<B><FONT SIZE='-2' COLOR='#0000FF'> - " & strUpd(CInt(strRom), 3) & " -</FONT></B>")
Response.Write("</TD></TR>")
Response.Write("</TABLE>")
Response.Write("<TABLE BORDER='0'>")
For intNr1 = 179 To 0 Step -1
If ((strMsg(intNr1, 2) = strRom Or strGod = "God") And Len(strMsg(intNr1, 1)) > 0) Then
Response.Write("<TR>")
Response.Write("<TD>")
Response.Write("<FONT SIZE='-1' FACE='Arial' COLOR='#FF0000'>")
Response.Write("<B>" & strMsg(intNr1, 0) & "</B>")
If strGod = "God" Then Response.Write("<B>: Space " & strMsg(intNr1, 2) & "</B>")
Response.Write("</FONT>")
Response.Write("</TD>")
If strMda <> "off" Then
Response.Write("<TD> <IMG SRC='../images/arrow.gif' BORDER='0'></TD>")
Else
Response.Write("<TD><FONT SIZE='+1' FACE='Arial' COLOR='#D9D9F3'><B> - <B></FONT></TD>")
End If
Response.Write("<TD>")
Response.Write("<FONT SIZE='-1' COLOR='#FFFF00'>")
Response.Write(strMsg(intNr1, 1))
Response.Write("</FONT>")
Response.Write("</TD>")
Response.Write("</TR>")
End If
Next
Response.Write("</TABLE>")
Response.Write("</FORM>")
Response.Write("</BODY>")
Response.Write("</HTML>")
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -