📄 usr.asp

📁 《java网络编程实例》配书光盘.rar

💻 ASP

字号:

<% @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'>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -