⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cmd.asp

📁 趣味性聊天源码
💻 ASP
字号:
🔍 
<% @EnableSessionState=False %>
<% Option Explicit %>
<% Response.Expires=0 %>
<% Response.Buffer=True %>
<% Response.Cachecontrol="Public" %>
<!--#INCLUDE file="pwd.asp"-->
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Dim strRom, strUsr, strGod, strMsg, strUpd, strMda, arrSel(5)
strUpd = Application("strUpd" & Pwd(2))
strRom = Trim(Request.Querystring("fldRom"))
strUsr = Trim(Request.Querystring("fldUsr"))
strGod = Trim(Request.Querystring("fldGod"))
strMsg = Trim(Request.Querystring("fldMsg"))
strMda = Trim(Request.Querystring("fldMda"))
If Not IsNumeric(strRom) Then strRom = "1"
arrSel(CInt(strRom)) = " SELECTED"
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='cmd'>")
Response.Write("<TABLE BORDER='0'>")
	If (Len(strUsr) = 0 Or IsNull(strUsr) Or InStr(strUsr, "!>") <> 0) Then
		Response.Write("<TR>")
			Response.Write("<TD WIDTH='20' ALIGN='Center'>")
				Response.Write("<INPUT TYPE='TEXT' NAME='fldUsr' VALUE='" & strMsg & "' SIZE='15' MAXLENGTH='15' " _
					& "ONFOCUS='fktFldNul(this);' ONCHANGE=''>")
			Response.Write("</TD>")
			Response.Write("<TD WIDTH='10' ALIGN='Center'>")
				Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='enter' SIZE='6' ONCLICK='fktActEnt(this.form.fldUsr);'>")
			Response.Write("</TD>")
		Response.Write("</TR>")
	Else
		Response.Write("<TR>")
			If strGod = "God" Then
				Response.Write("<TD WIDTH='70' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='TEXT' NAME='fldMsg' VALUE='" & strMsg & "' SiZE='66' MAXLENGTH='255' " _
						& "ONFOCUS='fktFldNul(this);' ONCHANGE=''>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='8' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='ins' SIZE='3' ONCLICK='fktActIns(this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='12' ALIGN='Center'>")
					Response.Write("<B><SELECT NAME='fldRom' SIZE='1' ONCHANGE='fktActRom(this.form.fldRom.options.selectedIndex,this.form.fldMsg);'>")
						Response.Write("<OPTION VALUE='0'" & arrSel(0) & ">Space 0")
	  					Response.Write("<OPTION VALUE='1'" & arrSel(1) & ">Space 1")
	  					Response.Write("<OPTION VALUE='2'" & arrSel(2) & ">Space 2")
    	  				Response.Write("<OPTION VALUE='3'" & arrSel(3) & ">Space 3")
						Response.Write("<OPTION VALUE='4'" & arrSel(4) & ">Space 4")
    	  				Response.Write("<OPTION VALUE='5'" & arrSel(5) & ">Space 5")
					Response.Write("</SELECT></B>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='8' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='out' SIZE='3' ONCLICK='fktActOut(this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='8' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='upl' SIZE='3' ONCLICK='fktActUpl(this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='8' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='del' SIZE='3' ONCLICK='fktActDel(this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='8' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='res' SIZE='3' ONCLICK='fktActRes(this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='8' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='radio' NAME='boxLck' VALUE='lck' SIZE='3'")
						If strUpd(CInt(strRom), 10) = "lck" Then Response.Write(" CHECKED")
					Response.Write(" ONCLICK='fktActLck(this.form.fldRom.options.selectedIndex,this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='9' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='radio' NAME='boxMda' VALUE='mda' SIZE='3'")
						If strMda = "on" Then Response.Write(" CHECKED") 
					Response.Write(" ONCLICK='fktActMda(this.form.fldMsg);'>")
				Response.Write("</TD>")
			Else
				Response.Write("<TD WIDTH='75' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='TEXT' NAME='fldMsg' VALUE='" & strMsg & "' SIZE='77' MAXLENGTH='255' " _
						& "ONFOCUS='fktFldNul(this);' ONCHANGE=''>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='9' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='send' SIZE='4' ONCLICK='fktActIns(this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='12' ALIGN='Center'>")
					If strGod = "Zero" Then
						Response.Write("<B><SELECT NAME='fldRom' SIZE='1' ONCHANGE='fktActRom(this.form.fldRom.options.selectedIndex,this.form.fldMsg);'>")					
						Response.Write("<OPTION VALUE='0'" & arrSel(0) & ">Space 0")
					Else
						Response.Write("<B><SELECT NAME='fldRom' SIZE='1' ONCHANGE='fktActRom(this.form.fldRom.options.selectedIndex+1,this.form.fldMsg);'>")					
					End If
	  					Response.Write("<OPTION VALUE='1'" & arrSel(1) & ">Space 1")
	  					Response.Write("<OPTION VALUE='2'" & arrSel(2) & ">Space 2")
    	  				Response.Write("<OPTION VALUE='3'" & arrSel(3) & ">Space 3")
						Response.Write("<OPTION VALUE='4'" & arrSel(4) & ">Space 4")
    	  				Response.Write("<OPTION VALUE='5'" & arrSel(5) & ">Space 5")
					Response.Write("</SELECT></B>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='9' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='BUTTON' NAME='btnAct' VALUE='exit' SIZE='4' ONCLICK='fktActOut(this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='9' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='radio' NAME='boxLck' VALUE='lck' SIZE='4'")
						If strUpd(CInt(strRom), 10) = "lck" Then Response.Write(" CHECKED") 
					Response.Write(" ONCLICK='fktActLck(this.form.fldRom.options.selectedIndex+1,this.form.fldMsg);'>")
				Response.Write("</TD>")
				Response.Write("<TD WIDTH='9' ALIGN='Center'>")
					Response.Write("<INPUT TYPE='radio' NAME='boxMda' VALUE='mda' SIZE='4'")
						If strMda = "on" Then Response.Write(" CHECKED") 
					Response.Write(" ONCLICK='fktActMda(this.form.fldMsg);'>")
				Response.Write("</TD>")
			End If
		Response.Write("</TR>")
	End If
	Response.Write("</TABLE>")
Response.Write("</FORM>")
Response.Write("</BODY>")
Response.Write("</HTML>")
</SCRIPT><SCRIPT LANGUAGE="JavaScript">
function fktFldNul(fld1) { if (navigator.appName.indexOf("Microsoft") != -1) { fld1.value = ""; } } 
function fktActEnt(fld1) { var fld2 = fktConvStr(fld1.value); parent.parent.frames[0].location.replace("ctr.asp?fldAct=Ent&fldUsr="+fld2); fld1.value ="!> going-in..."; } 
function fktActIns(fld1) { var fld2 = fktConvStr(fld1.value); parent.parent.frames[0].location.replace("ctr.asp?fldAct=Ins&fldMsg="+fld2); fld1.value ="!> sending..."; } 
function fktActUpl(fld1) { var fld2 = fktConvStr(fld1.value); parent.parent.frames[0].location.replace("ctr.asp?fldAct=Upl&fldUpl="+fld2); fld1.value ="!> uploading..."; } 
function fktActDel(fld1) { var fld2 = fktConvStr(fld1.value); parent.parent.frames[0].location.replace("ctr.asp?fldAct=Del&fldDel="+fld2); fld1.value ="!> deleting..."; } 
function fktActRes(fld1) { parent.parent.frames[0].location.replace("ctr.asp?fldAct=Res"); fld1.value ="!> reseting..."; } 
function fktActOut(fld1) { parent.parent.frames[0].location.replace("ctr.asp?fldAct=Out"); fld1.value ="!> going-out..."; }
function fktActMda(fld1) { parent.parent.frames[0].location.replace("ctr.asp?fldAct=Mda"); fld1.value ="!> altering Multimedia settings..."; } 
function fktActLck(fld1,fld2) {var fld3 = fld1; parent.parent.frames[0].location.replace("ctr.asp?fldAct=Lck"); fld2.value ="!> altering Space "+fld3+" lockings..."; } 
function fktActRom(fld1,fld2) {var fld3 = fld1; parent.parent.frames[0].location.replace("ctr.asp?fldAct=Rom&fldRom="+fld3); fld2.value ="!> going to Space "+fld3+"..."; }
function fktConvStr(str1) { var str2 = ""; var ch = "";	for (var i = 0; i < str1.length; i++) { ch = str1.substring(i, i+1); if (ch != " ") { str2 += ch; } else { str2 += "+"; } } return escape(str2); } 
</SCRIPT>

⌨️ 快捷键说明

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