📄 top.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, strRom, strMda
strUpd = Application("strUpd" & Pwd(2))
strRom = Trim(Request.Querystring("fldRom"))
strMda = Trim(Request.Querystring("fldMda"))
If Not IsNumeric(strRom) Then strRom = "1"
Response.Write("<HTML>")
Response.Write("<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='top'>")
Response.Write("<DIV ALIGN='Center'>")
Response.Write("<TABLE WIDTH='100%' BORDER='0'>")
Response.Write("<TR>")
If strMda <> "off" Then
Response.Write("<TD ALIGN='Left' VALIGN='Top'>")
Response.Write("<A href='mailto:ram@swissmail.com'><IMG SRC='../images/ram.jpg' BORDER='0' ALT='ram@swissmail.com'></a>")
Response.Write("</TD>")
Response.Write("<TD ALIGN='Center' VALIGN='Bottom'>")
Response.Write("<A HREF='Javascript:fktActCls();'>" _
& "<IMG SRC='../images/webnol.gif' BORDER=0 ALT=' EXIT '></A>")
Response.Write(" ")
Response.Write("</TD>")
Else
Response.Write("<TD ALIGN='Left' VALIGN='Bottom'>")
Response.Write("<STRONG><FONT SIZE='-1' FACE='Arial' COLOR='#D9D919'>Password: me ra807</FONT></STRONG>")
Response.Write("</TD>")
Response.Write("<TD ALIGN='Left' VALIGN='Center'>")
Response.Write("<B><STRONG><FONT SIZE='+3' FACE='MS Serif' COLOR='#D9D919'>A S P F U N </FONT></STRONG></B>")
Response.Write("</TD>")
End If
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</DIV>")
Response.Write("</FORM>")
Response.Write("</BODY>")
Response.Write("</HTML>")
</SCRIPT><SCRIPT LANGUAGE="JavaScript">function fktActCls() { parent.parent.frames[0].location.replace("ctr.asp?fldAct=Cls"); }</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -