usr.asp

来自「《java网络编程实例》配书光盘.rar」· ASP 代码 · 共 28 行

ASP
28 行
字号 
<% @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'>

usr.asp - 源码说明

本页面展示了「《java网络编程实例》配书光盘.rar」中的 usr.asp 源码文件，采用 ASP 编程语言编写，共 28 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与java相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?