📄 welcome.asp
字号:
<%@ codepage ="936" %>
<%Response.Expires=0
if Application("wsaxhxf_c_chatroomname")="" then Response.Redirect "error.asp?id=000"
if Session("hxf_u_nickname")="" then Response.Redirect "login.asp"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
if Session("hxf_u_visitor")<>"1" then
nc=int(Hour(time()))
sql="SELECT value FROM counthour WHERE name='lc'"
rs.open sql,conn,1,3
lc=int(rs("value"))
rs("value")=nc
rs.Update
rs.close
if nc=lc then
sql="SELECT value FROM counthour WHERE name='" & nc & "'"
rs.open sql,conn,1,3
rs("value")=rs("value")+1
rs.Update
rs.close
end if
if nc>lc then
for i=lc+1 to nc
sql="SELECT value FROM counthour WHERE name='" & i & "'"
rs.open sql,conn,1,3
if i=nc then
rs("value")=1
else
rs("value")=0
end if
rs.Update
rs.close
next
end if
if nc<lc then
for i=lc+1 to 23
sql="SELECT value FROM counthour WHERE name='" & i & "'"
rs.open sql,conn,1,3
rs("value")=0
rs.Update
rs.close
next
for i=0 to nc
sql="SELECT value FROM counthour WHERE name='" & i & "'"
rs.open sql,conn,1,3
if i=nc then
rs("value")=1
else
rs("value")=0
end if
rs.Update
rs.close
next
end if
Session("hxf_u_visitor")="1"
end if
visitor=Application("wsaxhxf_c_visitor")
chatroomname=Application("wsaxhxf_c_chatroomname")
user=Application("wsaxhxf_c_user")
sn=Application("wsaxhxf_c_sn")
winsn=Replace(sn,"-","")
copyright=Application("wsaxhxf_c_copyright")
chatroombgimage=Application("wsaxhxf_c_chatroombgimage")
homepageurl=Application("wsaxhxf_c_homepageurl")
opendate=Application("wsaxhxf_c_opendate")
chatroombgcolor=Application("wsaxhxf_c_chatroombgcolor")
logo=Application("wsaxhxf_c_logo")
ver=Application("wsaxhxf_c_ver")
nickname=Session("hxf_u_nickname")
if nickname<>"聊天室管理员" then
sql="SELECT leave,shj FROM reginfo WHERE kill='0' and username='" & nickname & "'"
rs.open sql,conn,1,1
yj=rs("leave")
shj=rs("shj")
rs.close
end if
sql="SELECT mm FROM gbook WHERE mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "'"
rs.open sql,conn,1,1
totalcansee=rs.RecordCount
rs.close
sql="SELECT mm FROM gbook WHERE towho='" & nickname & "' or fromwho='" & nickname & "'"
rs.open sql,conn,1,1
totalaboutme=rs.RecordCount
rs.close
sql="SELECT mm FROM gbook WHERE mm='1' and (towho='" & nickname & "' or fromwho='" & nickname & "')"
rs.open sql,conn,1,1
totalmm=rs.RecordCount
rs.close
conn.close
set rs=nothing
set conn=nothing
If shj <> "1" Then zdsj = "<a title='禁止自动升级'><font color='blue' face='Webdings' style='font-size:12pt;cursor:hand'>x</font></a>"
useronlinename=Application("wsaxhxf_c_useronlinename")
onliners=Application("wsaxhxf_c_chatrs")
online=Split(Trim(useronlinename)," ",-1)
x=UBound(online)%><html>
<head>
<title><%=nickname&" 在 "&chatroomname&" 中"%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script language="javascript">
function openWin(fp){
if (fp==0){
<%=winsn%>=window.open('hqtchat.asp?win=0','<%=winsn%>','Status=no,scrollbars=no,resizable=yes');<%=winsn%>.moveTo(0,0);<%=winsn%>.resizeTo(screen.availWidth,screen.availHeight);<%=winsn%>.outerWidth=screen.availWidth;<%=winsn%>.outerHeight=screen.availHeight;}
else
{
<%=winsn%>=window.open('hqtchat.asp?win=1','<%=winsn%>','Status=no,scrollbars=no,resizable=yes');<%=winsn%>.moveTo(0,0);<%=winsn%>.resizeTo(screen.availWidth,screen.availHeight);<%=winsn%>.outerWidth=screen.availWidth;<%=winsn%>.outerHeight=screen.availHeight;}
}
</script>
</head>
<script language="javascript">
function rlg(){if(confirm("您真的要返回登录页面并更换姓名吗？")){top.location.href="relogin.asp";return true;}}
</script>
<body oncontextmenu=self.event.returnValue=false bgcolor=<%=chatroombgcolor%> background=j09.jpg>
<table width=100% border=0 height=100%>
<tr>
<td>
<table width=500 border=1 align=center cellspacing=0 bordercolorlight=000000 bordercolordark=FFFFFF bgcolor="#FFFFFF">
<form>
<tr>
<td>
<table border=0 background="readonly/top2.jpg" cellspacing=0 cellpadding=2 width=497 bgcolor=#009900>
<tr>
<td width=482><font color=FFFFFF face=Wingdings>1</font><font color=FFFFFF>欢迎页面 - <%=chatroomname&" "&ver%></font></td>
<td width=18>
<table border=1 bordercolorlight=666666 bordercolordark=FFFFFF cellpadding=0 bgcolor="#EOEOEO" cellspacing=0 width=18>
<tr>
<td width=16><b><a href="relogin.asp" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="退出"><font color="000000">×</font></a></b></td>
</tr>
</table>
</td>
</tr>
</table>
<table width=497 height=330 border=1 cellspacing=0 bgcolor="#FFFFFF">
<tr valign="top">
<td>
<table width="100%" border="0" cellpadding="3">
<tr>
<td align="center" bgcolor="#000000" width="100"><font color=white>欢迎页面</font></td>
<td width="100" align="center" bgcolor="DCD8D0"><a href=welcomemy.asp><font color=black>个人信息</font></a></td>
<td width="100" align="center" bgcolor="DCD8D0"><a href=welcomefq.asp><font color=black>聊友查询</font></a></td>
<td width="100" align="center" bgcolor="DCD8D0"><a href=welcomegb.asp><font color=black>查看留言</font></a></td>
<td width="100" bgcolor="DCD8D0" align="center"><a href=welcomeph.asp><font color=black>聊神排行</font></a></td>
<td width="100" bgcolor="DCD8D0" align="center"> <a href="<%=Application("wsaxhxf_c_bbsurl")%>" target="_blank"><font color="#FF0000">配套论坛</font></a></td>
</tr>
</table>
<table width="100%" border="1" height="312" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="DCD8D0" cellpadding="5">
<tr valign="middle" align="center">
<td>
<table border="0" cellpadding="5">
<tr>
<td align="center">欢迎您来到 <font color=red><%=chatroomname%></font> ，祝您聊得开心！<br>您目前的IP地址是<font color=red><%=Request.ServerVariables("REMOTE_ADDR")%></font></td>
</tr>
</table>
<table border="0" cellpadding="6">
<tr>
<td>
<table border="1" cellspacing="0" bordercolorlight="#3399FF" bordercolordark="#FFFFFF" cellpadding="5">
<tr>
<td>
<table width="100%" border="0">
<tr>
<td>用 户 名：</td>
<td><%if yj=1 then Response.Write "<a title='永久保留'><font color='blue' face='Wingdings' style='font-size:12pt;cursor:hand'><</font></a>"%> <font color=red><%=nickname & zdsj%></font></td>
</tr>
<tr>
<td>称 谓：</td>
<td><font color=red><%=Session("hxf_u_gender")%></font></td>
</tr>
<tr>
<td>当前级别：</td>
<td><font color=red><%=Session("hxf_u_grade")%> 级</font></td>
</tr>
<tr>
<td>来访次数：</td>
<td><font color=red><%=Session("hxf_u_times")%> 次</font></td>
</tr>
<tr>
<td>累积经验：</td>
<td><font color=red><%=Session("hxf_u_value")%> 分</font></td>
</tr>
<tr>
<td>本月积分：</td>
<td><font color=red><%=Session("hxf_u_mvalue")%> 分</font></td>
</tr>
<tr>
<td>累计货币：</td>
<td><font color=red><%=Session("hxf_u_hb")%> ￥</font></td>
</tr>
<tr>
<td>留言提示：</td>
<td><font color=red><%=totalmm%>/<%=totalaboutme%>/<%=totalcansee%></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td align="center">
<p>
<select name="onlinelist" style="background-color:3399FF;color:FFFFFF">
<option selected>共 <%=onliners%>/<%=Application("wsaxhxf_c_active")%> 人在线</option>
<%if onliners>0 then
for i=0 to x%><option><%=online(i)%></option><%next
end if%>
</select>
</p>
<p>
<font color=red>一屏</font> <input type="button" value="本窗" style="background-color:DCD8D0;color:000000;border: 1 double" onmouseover="this.style.color='FF0000'" onmouseout="this.style.color='000000'" onClick=javascript:top.location.href="hqtchat.asp?win=1"> <input type="button" value="新窗" name="beginchat" style="background-color:DCD8D0;color:000000;border: 1 double" onmouseover="this.style.color='FF0000'" onmouseout="this.style.color='000000'" onClick="javascript:openWin(1)">
</p>
<p>
<font color=red>分屏</font> <input type="button" value="本窗" style="background-color:DCD8D0;color:000000;border: 1 double" onmouseover="this.style.color='FF0000'" onmouseout="this.style.color='000000'" onClick=javascript:top.location.href="hqtchat.asp?win=0"> <input type="button" value="新窗" name="beginchat" style="background-color:DCD8D0;color:000000;border: 1 double" onmouseover="this.style.color='FF0000'" onmouseout="this.style.color='000000'" onClick="javascript:openWin(0)">
</p>
<p>
<input type="button" name="relogin" value=" 换 名 登 录 " onclick="javascript:rlg()" style="background-color:DCD8D0;color:0000FF;border: 1 double" onmouseover="this.style.color='FF00FF'" onmouseout="this.style.color='0000FF'">
</p>
<p>
<input type="button" name="visitor" value=" 流 量 分 析 " onclick="javascript:window.open('counter.asp','counter','width=540,height=310')" style="background-color:DCD8D0;color:009900;border: 1 double" onmouseover="this.style.color='FF0000'" onmouseout="this.style.color='009900'">
</p>
</td>
</tr>
</table>
<table border="0" cellpadding="5">
<tr>
<td align="center"><font color=red>注意：新窗口无法登陆请从本窗口登陆</font><br>请在 3 分钟内进入聊天室，否则系统将超时断开与您的连接。</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 bgcolor="DCD8D0">
<tr>
<td>
<input type="text" name="user" readonly value="<%=user%>" size="35" style="background-color:DCD8D0">
</td>
<td>
<input type="text" name="sn" readonly value="SN:<%=sn%>" size="19" style="background-color:DCD8D0">
</td>
<td align="right">
<input type="text" name="copyright" readonly value="<%=copyright%>" size="22" style="background-color:DCD8D0">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -