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

📄 qq.asp

📁 本源代码采用asp编程,风格独特,欢迎大家下载,学习与交流!
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html"> 
<title>亿人在线聊天</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<%if session("qqyhm")="" then response.redirect "qq_dl.asp"
zl = request.querystring("zl")
cz = request.querystring("cz")
if zl = "" then zl = "全部"

sp = request.querystring("sp")
session("qqsp") = sp
if sp = "" then sp = "10"

if cz = "exit" then
	application.lock 
	xm = "<font color=#663333>" + session("qqnc") + "</font>"
	application(zl) = "<tr bgcolor=#E3E9F1 height=25 style='table-layout:fixed;word-break:break-all'><td align=left>" + xm + "(" + cstr(time) + "):" + ys + "大家继续聊!我先走一步!</font><br>" + application(zl) 
	application.unlock 
	if session("qqnc") = "临时" then application(session("qqyhm")) = ""
	session("qqyhm") = ""
	session("qqnc") = ""
	session("qqjb") = ""
	session("qqxb") = ""
	session("qqpass") = ""
	response.redirect "qq_dl.asp"
end if
exec = "update admin set zt = '0'"
conn.execute exec

exec = "delete from admin where nc = '临时' "
conn.execute exec%> 
<body> 
<!--#include file="qq_wjt.asp"-->
<table width="96%" height="80%" align="center" border="0" cellpadding="1" cellspacing="1" background="images/bg.gif">
<tr bgcolor="#E3E9F1"><td width="76%">
<iframe src="qq_list.asp?zl=<%=zl%>&flt=zlt" width="96%" height="65%"></iframe>
<br>
<iframe src="qq_list.asp?zl=<%=session("qqyhm")%>" width="96%" height="30%"></iframe>

</td>
<td valign="top" width="20%" rowspan="4">
在线人员列表:
<iframe MARGINWIDTH=0 MARGINHEIGHT=0  HSPACE=0 VSPACE=0  FRAMEBORDER=0 SCROLLING=no src="qq_zx.asp" width="100%" height="97%"></iframe>

</td></tr>

<tr bgcolor="#E3E9F1"><td height="25">
<iframe MARGINWIDTH=0 MARGINHEIGHT=0  HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no src="qq_send.asp?fzl=<%=zl%>" width="100%" height="25"></iframe>
</td></tr>

<tr height="25" bgcolor="#E3E9F1"><td>功能栏:</td></tr>

<tr height="25" bgcolor="#E3E9F1"><td>
<a href=# onclick="javascript:window.open('qq_clear.asp?zl=<%=session("qqyhm")%>','清屏','height=50,width=50')">私聊清屏</a>
&nbsp;
<%if session("qqyhm") <> "" and session("qqnc")<>"临时" then%>
<a href="qq_zc.asp?cz=xg" target=_blank>修改个人信息</a>
&nbsp;
<%end if%>
<%if session("qqjb") = "admin" then %>
<a href=# onclick="javascript:window.open('qq_clear.asp?zl=gl','清屏','height=50,width=50')">公聊清屏</a>
&nbsp;
<a href="qq_gl.asp" target=_blank>用户信息管理</a>
&nbsp;
<a href="qq_ltfl.asp" target=_blank>论坛分类管理</a>
&nbsp;
<a href="qq_bq.asp" target=_blank>表情管理</a>
<%end if%>
&nbsp;
<select name="sp" onchange="javascript:window.location='qq.asp?sp='+sp.value;">
<%for i = 3 to 20%>
<option value="<%=i%>" <%if sp = cstr(i) then response.write "selected"%>><% = i%></option>
<%next%>
</select>
秒刷屏
&nbsp;
<a href="qq.asp?cz=exit" onClick="javascript:return confirm('确定退出?');">退出</a>
&nbsp;
<script language="JavaScript" type="text/javascript" src="http://www.guochan.com/lltj/count.asp?id=90200647"></script>
</td></tr></table>
</body>
</htm>

⌨️ 快捷键说明

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