📄 default.asp

📁 基于ASP开发的聊天室源码
💻 ASP
字号:
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
If Not (IsArray(Application("roominfo")) And IsArray(Application("gradeinfo"))) Then Response.Redirect "err.asp?kind=100"
If InStr(Request.servervariables("http_user_agent"), "MSIE") = 0 Then Response.Redirect "err.asp?kind=17"
%>
<!--#INCLUDE FILE="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=zzbird_chatroomname%></title>
<style>
<!--
table        { font-size: 10pt }
body         { font-size: 10pt;color:<%=zzbird_chattext%>;}
a:active     { font-size: 10pt; color}
a:link       { font-size: 10pt; color: #000000 ;text-decoration: none}
a:visited    { color: #000000; font-size: 10pt ;text-decoration: none}
a            { color: #000000; font-size: 10pt ;text-decoration: none}
-->
</style>
<Script Language="JavaScript">
function ico_down()
{
	document.login.selectico.src = "images/ico2.gif";
}
function ico_up()
{
	document.login.selectico.src = "images/ico1.gif";
}
function ico_select()
{
	if (icopage.style.visibility == "hidden")
	{
		icopage.style.visibility = "visible";
	}
	else
	{
		icopage.style.visibility = "hidden";
	}
}
function ico_start()
{
	icopage.style.visibility = "hidden";
}
var v;
var t;
function logi()
{if(login.user.value==""){alert("用户名不能为空!");return false;}
if(login.pass.value==""){alert("密码不能为空!");return false;}
if(login.newwindow.checked){
window.open("","chatxp001","height=200,width=400,left=0,top=0;status=no,scrollbars=yes,resizable=yes,fullscreen=no");
login.target="chatxp001"}
else{login.target="_self"}
}
function manlog()
{window.open("manlog.asp","manlog","height=410,width=700,left=50,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no")}
function chatbest(){
window.open("chatbest.asp?del=yes","newwindow3","height=370,width=460,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no");
}
</Script>
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0">
<form method="post" action="log.asp" name="login" onsubmit='return(logi());'>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="400">
  <tr>
    <td width="100%" height="13"></td>
  </tr>
  <tr>
    <td width="100%" height="1" bgcolor="#FFFFFF"></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="<%=zzbird_chatbg%>" <%If zzbird_chatbgpic <> "" Then%>background="<%=zzbird_chatbgpic%>" <%End If%> height="470" valign="top">
    <div align="center">
      <center>
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="769" id="AutoNumber2" height="442">
      <tr>
        <td width="769" height="37" colspan="4" style="font-size: 12pt">&nbsp;&nbsp;&nbsp; 
        <%=zzbird_chatroomname%></td>
      </tr>
      <tr>
        <td width="769" height="1" colspan="4" bgcolor="#D2D2D2" align="right" style="border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF">
        <a href="gbook.asp">留言本</a> <a href="javascript:chatbest()">聊神排名</a>
        <a href="javascript:manlog()">管理日志</a></td>
      </tr>
      <tr>
        <td width="180" height="442" align="center" valign="top"><br /><br />
		昵称：<input name="user" size="12" maxlength="13" style="width: 90; height: 20; border-style: inset; border-width: 1" value="<%=Request.QueryString("user")%>" /><br />
		密码：<input type="password" name="pass" size="12" style="width: 90; height: 20; border-style: inset; border-width: 1" /><br />
			<%
			rndico = Second(time) * 2
			If minute(time) Mod 2=0 Then rndico = rndico + 1
			If rndico > 84 Then rndico = rndico - 40
			%>
            <br />头像：
			<img name="selectico" border="0" src="images/ico1.gif" width="39" height="21" onclick="javascript:ico_down();ico_select()" onmouseup="javascript:ico_up()" onmouseout="javascript:ico_up()" />
			<img name="icono" border="0" src="images/ICO/<%=rndico%>-2.gif" style="LEFT: -42px; POSITION: relative; TOP: -3px" width="16" height="16" />
			<div id="icopage" style="position: absolute; left: 86; top: 178 ;visibility:hidden">
				<iframe width="40" height="150" src="html/defaultin.htm">浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe>
			</div><br /><br />
              <input type="radio" value="1" name="sex" id="sex1"><label for="sex1">帅哥</label>
              <input type="radio" value="2" name="sex" id="sex2"><label for="sex2">美女</label><br />
              <input type="radio" value="0" checked name="sex" id="sex3"><label for="sex3">不告诉大家</label><br /><br />
              <input type="checkbox" name="fp" id="fp" value="ON" checked><label for="fp">分两栏显示发言</label><br />
              <input type="checkbox" name="newwindow" id="newwindow" value="ON" checked><label for="newwindow">在新窗口中打开</label>
              <%If IsArray(Session("info")) Then%><INPUT type=button size=73 value="以旧名直接进入" name=button1 style="border-style:outset; border-width:1; WIDTH: 127; HEIGHT: 20" onclick="javascript:window.open('chat.asp?fp=1','_self');"><%end if%>
              <br><input type="hidden" name="ico" value="<%=rndico%>" /><br />
              <input type="submit" value=" 进 入 " name="intochat" style="width: 60; height: 20; border-style: outset; border-width: 1" />
              <input type="reset" value=" 重 填 " name="B2" style="width: 60; height: 20; border-style: outset; border-width: 1" /><br /><br /><br />
              首次登陆 自动确认
            </td>
        <td width="1" height="335" align="center" bgcolor="#D2D2D2"></td>
        <td width="26" height="335" bgcolor="<%=zzbird_saybg%>" <%if zzbird_saybgpic<>"" then%> background="<%=zzbird_saybgpic%>"<%end if%>></td>
        <td height="335" valign="top" bgcolor="<%=zzbird_saybg%>" <%if zzbird_saybgpic<>"" then%> background="<%=zzbird_saybgpic%>"<%end if%>><br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse;color:<%=zzbird_saytext%>" width="95%" id="AutoNumber4">
<%
roominfo=Application("roominfo")
For j = 0 To UBound(roominfo,1)
%>
<tr>
<td><input type="radio" value="<%=roominfo(j,0)%>" name="rooms" id="room<%=roominfo(j,0)%>"> <label for="room<%=roominfo(j,0)%>"><%=roominfo(j,1)%>&nbsp;&nbsp; 
<select size="1" name="D1" style="width: 108; height:108">
<Script Language="JavaScript">
v = "<%=Application("zzbird_name_" & roominfo(j,0))%>";
if(v!="")
{
v = v.substring(1,v.length-1);
lis = v.split(",,")
document.write("<option selected>" + (lis.length) + "人在线</option>");
for(t=0;t<lis.length;t++)
{document.write("<option>" + lis[t] + "</option>");}
}
else
{document.write("<option>0人在线</option>");}
</Script>
</select><font color="#0066CC">
<span style="font-size: 9pt">限制: <%=roominfo(j,2)%> 人,<%=roominfo(j,4)%> 级</span></font></label><br /><br />
&nbsp;&nbsp;&nbsp; <%=roominfo(j,5)%><hr color="<%=zzbird_chatbg%>"></td>
</tr>
<%
Next
%>
</table>
        </td>
      </tr>
      <tr>
        <td width="769" height="13" colspan="4" align="right" style="font-size: 9pt; border-top: 1px solid #C0C0C0" bgcolor="#999999">
        <a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank">NowChat 2.2 - 喳喳鸟版权所有 非法传播、修改版权均属侵权行为</a> </td>
      </tr>
    </table>
      </center>
    </div>
    </td>
  </tr>
</table>
</form>
</body>
</html>
💿 文件大小 664 K
👤 上传用户 gggic
📂 所属分类源码/资料
🏷️ 相关标签

#ASP #源码
⌨️ 快捷键说明

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