【免费】ASP简单快捷聊天室资源-CSDN文库

共50个文件

gif：15个

jpg：12个

au：12个

ASP

聊天室

需积分: 0 98 浏览量 2009-01-01 15:13:06 上传评论收藏 190KB RAR 举报

资源详情

资源评论

资源推荐

收起资源包目录

.rar （50个子文件）

简单快捷聊天室

ttxx-aspchat

aspchat

asp

cmd.asp 8KB

top.asp 2KB

rom.asp 1KB

usr.asp 4KB

pwd.asp 137B

msg.asp 2KB

ctr.asp 21KB

aspchat.txt 1KB

images

6dig.gif 898B

space6.jpg 20KB

space1.jpg 13KB

9dig.gif 894B

space9.jpg 9KB

space0.jpg 7KB

chat0.gif 664B

3dig.gif 891B

webnol.gif 6KB

arrow.gif 57B

ram.jpg 756B

space4.jpg 6KB

space3.jpg 12KB

space8.jpg 4KB

7dig.gif 874B

8dig.gif 902B

Thumbs.db 45KB

5dig.gif 894B

space6.gif 3KB

0dig.gif 305B

4dig.gif 888B

space7.jpg 4KB

space.jpg 17KB

1dig.gif 266B

2dig.gif 498B

space2.jpg 14KB

space5.jpg 4KB

chat1.gif 430B

readme.txt 4KB

sounds

res.au 3KB

rom.au 5KB

hlp.au 1KB

ent.au 11KB

opn.au 3KB

ton.au 4KB

ins.au 7KB

lck.au 4KB

del.au 3KB

out.au 5KB

brk.au 2KB

upl.au 3KB

index.asp 2KB

<% @EnableSessionState=False %> <% Option Explicit %> <% Response.Expires=0 %> <% Response.Buffer=True %> <% Response.Cachecontrol="Public" %>  <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'> ") Response.Write("?B>VISITORS?/FONT> ") For intNr1 = 1 TO 5 Response.Write("<IMG SRC='/chat/images/" & Mid(Right(String(5, "0") & strApp(0), 5), intNr1, 1) & "dig.gif' BORDER='0'>") Next Response.Write("</A>") Else Response.Write(" CHAT ") End If Response.Write("</TD></TR>") Response.Write("<TR><TD ALIGN='Center'> ") Response.Write("Space:") Response.Write("</TD></TR>") Response.Write("<TR><TD ALIGN='Center'>") Response.Write("") Response.Write("- " & strRom & " -") Response.Write("") Response.Write("</TD></TR>") Response.Write("<TR><TD ALIGN='Center'> ") Response.Write("Input:") Response.Write("</TD></TR>") Response.Write("<TR><TD ALIGN='Center'>") Response.Write("") Response.Write("" & strUpd(CInt(strRom),7) & "") Response.Write("") Response.Write("</TD></TR>") Response.Write("<TR><TD ALIGN='Center'>") Response.Write("") Response.Write("" & strUpd(CInt(strRom),5) & "") Response.Write("") Response.Write("</TD></TR>") Response.Write("<TR><TD ALIGN='Center'>") Response.Write("") Response.Write("" & strUpd(CInt(strRom),6) & "") Response.Write("") Response.Write("</TD></TR>") Response.Write("<TR><TD ALIGN='Center'> ") Response.Write("Inside:") Response.Write("</TD></TR>") For intNr1 = 59 To 0 Step -1 If strUsr(intNr1, 2) = strRom And Len(strUsr(intNr1, 0)) > 0 Then Response.Write("<TR><TD ALIGN='Center'>") Response.Write("") Response.Write("" & strUsr(intNr1,0) & "") Response.Write("") Response.Write("</TD></TR>") End If Next Response.Write("<TR><TD ALIGN='Center'>") Response.Write("<A>- " & strUpd(CInt(strRom),4) & " -</A>") Response.Write("</TD></TR>") Response.Write("</TABLE>") Response.Write("</FORM>") Response.Write("</BODY>") Response.Write("</HTML>") </SCRIPT>