📄 welcometop.asp
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
username=Session("a_c_user_name")
count=Session("a_c_user_times")
online=Application("a_c_user_online")
if username="" then
Response.Redirect "login.asp"
else
Session("a_c_user_alreadylogin")=1
end if
ly_index=Application("a_c_ly_index")
ly_num=Application("a_c_ly_num")
ggly=0
srly=0
zzly=0
for i=1 to ly_num step 3
if ly_index(i)="0" and username<>ly_index(i+1) and username<>ly_index(i+2) then ggly=ggly+1
if username=ly_index(i+1) or username=ly_index(i+2) then zzly=zzly+1
if ly_index(i)="1" and username=ly_index(i+1) then srly=srly+1
next
s=Hour(Time())
Application.Lock
if Session("a_c_chat_count")<>"1" then
Application("a_c_chat_count"&s)=Application("a_c_chat_count"&s)+1
Session("a_c_chat_count")="1"
end if
Application.UnLock%><html>
<head>
<title>欢迎页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p12 {font-size: 12pt; line-height: 135%}
a:link {font-family: "宋体"; color: #0000FF; text-decoration: none; line-height: 135%}
a:hover {font-family: "宋体"; color: #FF0000; text-decoration: underline; line-height: 135%}
a:visited {font-family: "宋体"; color: #0000FF; text-decoration: none; line-height: 135%}
a:active {font-family: "宋体"; text-decoration: none; line-height: 135%}
.p9 {font-size: 9pt; line-height: 140%}
-->
</style>
<script language="javascript">
<!--
function openWin() {
hh_chat200=window.open('chitchat.asp','hh_chat200','Status=yes,scrollbars=yes,resizable=yes')
hh_chat200.moveTo(0,0)
hh_chat200.resizeTo(screen.availWidth,screen.availHeight)
hh_chat200.outerWidth=screen.availWidth
hh_chat200.outerHeight=screen.availHeight
}
function MM_openBrWindow(theURL,winName,features) {
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body bgcolor="#000066" topmargin="0" class="p12">
<table width="580" border="0" align="center" bgcolor="#FFCC99" cellspacing="0">
<form method="post" action="" name="">
<tr align="center">
<td width="1160" colspan="2"> <br>
<div>轻轻敲醒沉睡的心灵，慢慢张开你的眼睛，让那昨日的忧伤随聊而去</div>
<br>
<div><font color="#FFFFFF" style="font-size:40pt" face="幼圆"><b><font color="#00CC00"><img src="read/chat_1.gif" width="454" height="94"></font><font color="#FF0033" size="+4"><br>
欢迎您</font></b></font></div>
<p><%Response.write "<font color=#FF0000><b>" & username & "</b></font>"%>，访数
<%Response.write "<font color=#FF0000><b>" & count & "</b></font>"%> 次，经验值 <%Response.write "<font color=#FF0000><b>" & Session("a_c_user_value") & "</b></font>"%>
分，留言 <b><font color="#FF0000"><%=srly%></font></b>/<b><font color="#FF0000"><%=zzly%></font></b>/<b><font color="#FF0000"><%=ggly+zzly%></font></b></p>
</td>
</tr>
<tr align="center">
<td colspan="2">
<hr noshade size="1" color="#000000">
<table border="0" cellpadding="4" width="398">
<tr align="center">
<td class=p9><a href="javascript:MM_openBrWindow('counter.asp','counter','width=620,height=360')" onMouseOver="window.status='显示聊天室最近24小时，各时段的访问人数。';return true" onMouseOut="window.status='';return true">【24小时流量分析】</a> <a href="speak.asp?page=1" target="_blank" onMouseOver="window.status='聊天室的配套留言簿。';return true" onMouseOut="window.status='';return true">【留言簿】</a> <a href="restart.asp" target="_top" onMouseOver="window.status='重新回到登录页面，重新登录或换名登录。';return true" onMouseOut="window.status='';return true">【重回登录页面】</a></td>
</tr>
<tr align="center">
<td>
<select name="userlist" style="font-size:12pt">
<option selected>共 <%=Application("a_c_user_inthechat")%> 人在线</option>
<%for i=1 to Application("a_c_user_inthechat")*4 step 4%>
<option><%=online(i)%></option>
<%next%>
</select>
<input type="button" name="startchat2" value="以本窗口进入" style="font-size:9pt" onClick="javascript:top.location.href='chitchat.asp'">
<input type="button" name="startchat" value="以新窗口进入" style="font-size:9pt" onClick="openWin()">
</td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td width="47%"> </td>
<td width="17%"> </td>
<td width="36%"> </td>
</tr>
<tr>
<td width="47%" height="17">
<div align="right">
<select name="select" size="1">
<option selected>级 数 说 明</option>
<option>１级：入户</option>
<option>2 级：300</option>
<option>3 级：1000</option>
<option>4 级：5000</option>
<option>5 级：10000</option>
<option value="mailto:pgdcdb@263.net">6级以上:申请</option>
</select>
</div>
</td>
<td width="17%" height="17">
<div align="right">
<script language="JavaScript">
function Cdb() { window.open('phb.asp','','width=540,height=340,scrollbars=yes,resizable=yes')}
</script>
<input type="button" name="startchat222" value="聊神榜" style="font-size:9pt" onClick="Cdb()">
</div>
</td>
<td width="36%" height="17">
<script language="JavaScript">
function Hello() { window.open('poll.asp','','width=540,height=340,scrollbars=yes,resizable=yes')}
</script>
<input type="button" name="startchat22" value="投票系统" style="font-size:9pt" onClick="Hello()">
</td>
</tr>
</table>
<hr noshade size="1" color="#000000">
<table width="504" border="0">
<tr>
<td class="p12" width="502">
<p><b><font color="#FF0000">注意事项：</font></b><br>
<span class="p9"> 1.请遵守中华人民共和国有关法律法规，不要在聊天室、留言簿中散布违法的话语；请尊重他人，不要进行人身攻击；这对我们大家都有好处。<br>
2.如果你点击上面的“开始聊天”后，窗口一打开就被关闭，进不了聊天室，说明你的登录信息已经没有了（可能是超时断开了连接或被踢出了聊天室），此时请用“重回登录页面”重新登录，方可再次进入聊天室。<br>
3.在聊天室中，如果你要离开，最好使用“离开聊天室”功能，这样聊友们才知道你已经离开了。如果你直接关闭聊天室窗口，两分钟后，系统将显示“‘砰’的一声，XXX重重地摔了下去……”表示您已经掉线或超时断开连接了。<br>
4.如果在聊天室中掉线，重新拨号上来，登录时显示“该用户名正在使用”中，则请您关闭浏览器，并等两分钟后再登录。<br>
5.如果在聊天室中潜水（不发言）时间超过20分钟，系统将自动删除该用户，并显示：XXX由于潜水时间过长，不幸沉入海底……<br>
6.本聊天室使用经验值等级制，刚进来的聊友经验值为 0 分，等级为一级，一级聊友不能改变聊天室的标题。当您的经验值达到300分时系统将自动把你升为二级，达到1000分时升级三级，达到5000分时升为四级，达到10000分时升至五级（此时可清屏）。升级后，用户只需点“存点”，新级别即可生效，无需重新登录。对于严重违反聊天室规则的用户，版主将禁用直至删除该聊友的用户名，则此用户名的所有权限全部被取消。<br>
7.用户在聊天室中每停留 1 分钟，经验值将增加 1 分。可以随时用“存点”功能将经验值存起来。如果掉线或潜水超时而被清除，则新增长的经验值不会加入。<br>
8.本聊天室启用监督机制，即所有版主（或拥有高级权限的聊友）的操作，比如清屏、踢人、升级、降级等操作均会被系统自动记录下来，任何用户均可以查看这些记录，如果您发现某些版主有不公平、不合理的行为，请给站长留言或来信，站长将对这些版主的帐号进行降级或禁用。<br>
9.如果您在使用本聊天室时，发现任何问题或错误，请在聊天室留言簿中留言。当然，您也可以在留言簿里给聊友们留言。当您到达本页面时，会有留言提示，诸如：留言2/13/256，这表示你能看到的留言共有256条，其中13条是和你有关的，并且有2条是给你的私人留言（即只有你才能看到）。</span></p>
</td>
</tr>
</table>
<hr noshade size="1" color="#000000">
<span class="p9"><script src="use.asp"></script><br><script src="copyright.asp"></script></span></td>
</tr>
</form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -