chatroom.asp

来自「asp+flash 文字聊天源码 asp+flash 文字聊天源码」· ASP 代码 · 共 30 行

ASP
30
字号
<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000
%>
<HTML>
<HEAD>
<TITLE>Flash Chat Room</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF">
<%If Session("ChatInitialised")=True Then%>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
 codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
 ID=chatroom WIDTH=100% HEIGHT=100%>
  <PARAM NAME=movie VALUE="chatroom.swf">
  <PARAM NAME=menu VALUE=false>
  <PARAM NAME=quality VALUE=high>
  <PARAM NAME=bgcolor VALUE=#FFFFFF>
  <EMBED src="chatroom.swf" menu=false quality=high bgcolor=#FFFFFF  WIDTH=100% HEIGHT=100% TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
  </EMBED> 
</OBJECT>
<%Else%>
The chat is not correctly installed. To install the chat correctly, you need to place it in a virtual directory on the webserver.<BR>
If you have access to the Microsoft Management Console on the server, you can create a virtual directory yourself (see the documentation for MMC).<BR>
If you are using the chat on a server provided by a web host, ask your web host's technical support personnel to do this for you. If necessary, you can direct them to this page so that they can read this message.
<%End If%>
</BODY>
</HTML>

⌨️ 快捷键说明

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