📄 index.asp
字号:
<!--#include file=INC/skin.asp-->
<%
'on error resume next
dim const_txl_HomeUrl
const_txl_HomeUrl=""
OpenDatabase
txl_SiteHead const_txlname&"-首页"
Response.Flush
call online
Response.Flush
call main
Response.Flush
CloseDatabase
Response.Flush
web_end
Response.Flush
sub main
Response.Write "<table width=""779"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&Vbcrlf
%>
<tr>
<td width="181" rowspan="3" valign="top" style="border-right:#CCCCCC 1px solid;padding-top:8px;padding-right:8px;">
<table width="173" border="0" cellspacing="0" cellpadding="0" style="border:#CCCCCC 1px solid;">
<tr>
<td><img src="images/control.jpg" width="171" height="34"></td>
</tr>
<tr>
<td style="padding:8px;text-align:center;">
<%
if session("username")<>"" Then
call showuserinfomation
Else
%>
<table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolor="#cccccc" class="user">
<tr>
<td width="50%"><img src="images/26.bmp"></td>
<td>游客</td>
</tr>
<tr>
<td>登录次数</td>
<td>0</td>
</tr>
<tr>
<td>留言次数</td>
<td>0</td>
</tr>
<tr>
<td>现在时间</td>
<td><span style="font-size:10px;"><%=dealtimestr(month(now()))&"-"&dealtimestr(day(now()))&" "&dealtimestr(hour(now()))&":"&dealtimestr(minute(now()))%></span></td>
</tr>
</table>
<%
End If
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" class="abi"><a href="user_edituserinfo.asp" title="修改资料">修改资料</a></td>
<td class="abi"><a href="user_edituserinfo.asp" title="更改密码">更改密码</a></td>
</tr>
<tr>
<td class="abi"><a href=javacript:; onClick="javascript:winsteps_open_window('user_showpermsg.asp',520,300,'msg');return false" title="查看我的信箱">我的信箱</a></td>
<td class="abi"><a href="logout.asp" title="安全退出">安全退出</a></td>
</tr>
</table></td>
</tr>
<%="</table><br>"%>
<!--</table>-->
<%Response.Write("<table width='173' border='0' cellspacing='0' cellpadding='0' style='border:#CCCCCC 1px solid;'>"&Vbcrlf)
Response.Flush()
%>
<tr>
<td><img src="images/lastvi.jpg" width="171" height="33"></td>
</tr>
<tr>
<td style="padding:8px;line-height:1.6;" valign="top">
<%call showrcentInterview %>
</td>
</tr>
</table><br>
<!--#include file="voteindex.asp"-->
<%Response.Write("<table width=""173"" border=""0"" cellspacing=""8"" cellpadding=""0"">"&Vbcrlf)
Response.Flush()
%>
<tr>
<td align=center>MyLOGOs：(欢迎加链)</td>
</tr>
<tr>
<td align="center">
<%'Call winsteps %>
</td>
</tr>
</table>
</td>
<td valign="top" bgcolor="#FFFFFF" style="padding:8px;text-align:center;">
<% Response.Write "<table width=""399"" border=""0"" cellspacing=""0"" cellpadding=""0"" style=""border:#CCCCCC 1px solid;"">"&Vbcrlf%>
<tr>
<td width="140" rowspan="2"></td>
<td style="line-height:1.7;padding:5px;font-family:Verdana, Arial, Helvetica, sans-serif;"><% call showindexnews %>
</td>
</tr>
<tr>
<td height="23" style="text-align:right;padding-right:8px;"><a href=javascript:; onclick="javascript:winsteps_open_window('new.asp',520,300,'news');return false">更多>></a></td>
</tr>
<% Response.Write "</table><br>"&Vbcrlf%>
<table width="399" border="0" cellspacing="0" cellpadding="0" style="border:#CCCCCC 1px solid;">
<tr>
<td style="padding:15px;line-height:1.8;">
<marquee scrollAmount=1 scrollDelay=100 direction=up loop=-1 height=80 onmouseover=this.stop() onmouseout=this.start()>
<%Call indexordershow %>
</marquee> </td>
<td width="74"><img src="images/music_rig.jpg" width="113" height="117"></td>
</tr>
<tr>
<td colspan="2" height="5" bgcolor="#FF0000"></td>
</tr>
</table><br>
<%
call Shownewphoto
%>
</td>
<td width="181" rowspan="3" valign="top" style="border-left:#CCCCCC 1px solid;padding-top:8px;padding-left:8px;">
<%Response.Write "<table width=""173"" border=""0"" cellspacing=""0"" cellpadding=""0"" style=""border:#CCCCCC 1px solid;"">"&vbcrlf%>
<tr>
<td><img src="images/logon.jpg" width="171" height="34"></td>
</tr>
<tr>
<td align="center" style="padding:8px;">
<table width="148" border="0" cellspacing="5" cellpadding="0">
<form name="form1" method="post"action="user_login.asp" onSubmit="if (this.txl_username.value==''||this.txl_password.value==''){alert('用户名和密码不能为空！');return false;};">
<tr>
<td>用户名｜Username</td>
</tr>
<tr>
<td><input name="txl_username" type="text" size="18"></td>
</tr>
<tr>
<td>密 码｜Password</td>
</tr>
<tr>
<td><input name="txl_password" type="password" size="18"></td>
</tr>
<tr>
<td>
<a href="user/getuserpass.asp" title="取回您的密码!">忘记密码</a>
| <a href="user_register.asp" class="more_a">注册</a> <input name="Submit1" type="submit" class="button" value="登陆">
</td>
</tr>
</form>
</table></td>
</tr>
</table><br>
<%Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" style=""border:#CCCCCC 1px solid;"">"&Vbcrlf)
Response.Flush()
%>
<tr>
<td height="56" background="images/happy_bk.jpg" style="padding:5px;line-height:1.6;"><p><%Call todaybirth%></p></td>
</tr>
<tr>
<td><img src="images/happy.gif" width="171" height="27"></td>
</tr>
<tr>
<td height="5px" bgcolor="#FF0000"></td>
</tr>
</table><br>
<%'Response.Write("<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&Vbcrlf)
'Response.Flush()
%>
<!--<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23" background="images/nev.gif" class="nev">-本月会员生日-</td>
</tr>
<tr>
<td class="last"> <marquee scrollAmount=1 scrollDelay=100 direction=up height=100 onmouseover=stop() onmouseout=start()>
<% 'Call thismonthbirth%>
</marquee> </td>
</tr>
</table>-->
<%Response.Write("<table width=""173"" border=""0"" cellspacing=""0"" cellpadding=""0"" style=""border:#CCCCCC 1px solid;"">"&Vbcrlf)
Response.Flush()
%>
<tr>
<td><img src="images/newuser.jpg" width="171" height="33"></td>
</tr>
<tr>
<td style="padding:8px;line-height:1.6;">
<% Call index_newuserlogin %>
</td>
</tr>
</table>
<br>
<%Response.Write("<table width=""173"" border=""0"" cellspacing=""0"" cellpadding=""0"" style=""border:#CCCCCC 1px solid;"">"&Vbcrlf)
Response.Flush()
%>
<tr>
<td><img src="images/system.jpg" width="171" height="34"></td>
</tr>
<tr>
<td style="padding:10px;line-height:1.6;">
<%call showtotalinf%>
<br> </td>
</tr>
</table><br>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="border-top:#CCCCCC 1px solid;border-bottom:#CCCCCC 1px solid;padding:8px;text-align:center;">
<%
call indexforumshow
%>
</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF" style="padding:8px;text-align:center;">
<%
call shownewbbs
%>
</td>
</tr>
<%
Response.Write("</table>"&Vbcrlf)
%>
<!--</table>-->
<table width="779" border="0" align="center" cellpadding="0" cellspacing="5" style="border-top:#CCCCCC 1px solid;border-bottom:#CCCCCC 1px solid;">
<tbody>
<tr>
<td bgcolor="#F7F7F7" style="padding:7px;line-height:1.8;font-family:verdana;color:#666666;"><%call showonlineinfo %></td>
<td width="58%" style="padding:7px;padding-left:12px;line-height:1.8;font-family:verdana;color:#666666;" bgcolor="#F7F7F7">
■ 登录次数排行:
<%call index_logintimes_order(7)%><br>
■ 留言次数排行: <%call index_forumtimes_order(7)%> <br>
■ 最近资料更新: <%call index_updatetime_order(7)%> </td>
</tr>
</tbody>
</table>
<%If const_index_chat=1 Then%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>=在线聊天=</td>
</tr>
<tr>
<td><iframe src="chat/default.asp" width="100%"></iframe></td>
</tr>
</table>
<%End If%>
<%
call indexonlineshow
Response.Flush
end sub
%>
<%
function index_logintimes_order(ordercounts)
dim rs,tmpi
set rs=conn.execute ("select top "&ordercounts&" sname,logintimes from ec order by logintimes desc")
tmpi=0
while not rs.eof and tmpi<ordercounts
tmpi=tmpi+1
Response.write "<font style='cursor:hand' title='登录次数"&rs(1)&"'>"&rs(0)&"</font> "
rs.movenext
wend
rs.close
set rs=nothing
end function
function index_updatetime_order(ordercounts)
dim rs,tmpi
set rs=conn.execute ("select top "&ordercounts&" sname,updatetime,studentid from ec order by updatetime desc")
tmpi=0
while not rs.eof and tmpi<ordercounts
tmpi=tmpi+1
Response.write "<a href='User_showuserinfo.asp?username="&rs("studentid")&"' title='最近修改资料时间"&rs(1)&"'>"&rs(0)&"</a> "
rs.movenext
wend
rs.close
set rs=nothing
end function
function index_forumtimes_order(ordercounts)
dim rs,tmpi
set rs=conn.execute ("select top "&ordercounts&" sname,forumtimes from ec order by forumtimes desc")
tmpi=0
while not rs.eof and tmpi<ordercounts
tmpi=tmpi+1
Response.write "<font style='cursor:hand' title='留言次数"&rs(1)&"'>"&rs(0)&"</font> "
rs.movenext
wend
rs.close
set rs=nothing
end function
sub indexonlineshow
%>
<%
Response.Flush
end sub
sub showindexnews
dim rs,i,title,adddate
set rs=conn.execute ("select top 4 * from news order by adddate desc")
i=0
while not rs.eof and i<4
title=rs("title")
adddate=month(rs("adddate"))&"."&day(rs("adddate"))
if len(title)>20 then
title=left(title,18)&"…"
else
end if
Response.Write("·<a href=javascript; onclick=""javascript:winsteps_open_window('new.asp?action=showmeginfo&newid="&rs("id")&"',520,300,'news');return false""><font color='"&rs("titlecolor")&"' title='"&rs("content")&"'>"&title&"</font></a><span style=""font-size:10px;font-family:verdana;"">["&adddate&"]</span><br>")
i=i+1
rs.movenext
wend
rs.close
set rs=nothing
Response.Flush
end sub
sub showtotalinf
dim rs
set rs=conn.execute ("select count(*) from ec")
Response.Write "·注册人数:<b><font color=red> "&rs(0)&" </font></b>人<br>"
rs.close
set rs=conn.execute ("select count(*) from ec where usertype=4")
Response.Write "·嘉宾人数:<b><font color=red> "&rs(0)&" </font></b>人<br>"
rs.close
set rs=conn.execute ("select count(*) from forum")
Response.Write "·影音留言数:<b><font color=red> "&rs(0)&" </font></b>条<br>"
rs.close
set rs=conn.execute ("select count(*) from Boards")
Response.Write "·论坛版面:<b><font color=red> "&rs(0)&" </font></b>个<br>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -