📄 default.asp
字号:
<!-- #include file="setup.asp" -->
<%
id=int(Request("id"))
if id<>empty then Response.Cookies("forumid")=id
if ""&adminpassword&""=empty then response.redirect "install.asp"
top
if ""&nowdate&""<>""&date()&"" then
today=conn.execute("Select SUM(today)from bbsconfig")(0)
if ""&today&""="" then today=0
conn.execute("update [clubconfig] set today=0,oldday="&today&",Nowdate='"&date()&"'")
conn.execute("update [bbsconfig] set today=0")
end if
%>
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="2" width="97%" align="center" border="0" class="a2"><tr class="a1" height=25>
<td width="94%" colspan="4">
<table border="0" width="100%">
<tr id=TableTitleLink class="a1">
<td><img src=images/announce.gif align="absbottom"> <marquee onmouseover="this.stop()" onmouseout="this.start()" width="90%" scrollamount="3"><a target=_blank href="affiche.asp"><%=affichetitle%></a></marquee></td>
<td width="100" align="center"><a href="apply.asp">申请论坛</a></td>
</tr>
</table>
</td><tr class=a3>
<td height="25" align="center" width="10%" rowspan="2">
<SCRIPT>
if ("<%=userface%>"==""){
index = Math.floor(Math.random() * 99+1);
document.write("<img src=images/face/" + index + ".gif>");
}else{
document.write("<img src=<%=userface%> onload='javascript:if(this.height>100)this.height=100'>");
}
</SCRIPT></td>
<td align="center">
<%
if Request.Cookies("username") = empty then
%>
<form action="login.asp" method="post">
<input type="hidden" value="add" name="menu">
<input type="hidden" value="Default.asp" name="url">
<table border="0" width="100%">
<tr>
<td align="center">用户名称:
<input size="15" name="username" value="<%=Request.Cookies("username")%>"></td>
<td>
<input type="checkbox" value="1" name="eremite" id="eremite"><label for="eremite">隐身登录</label>
</td>
<td align="center">
<input type="submit" value=" 登录 " name="Submit1"></td>
</tr>
<tr>
<td align="center">
用户密码: <input type="password" size="15" value name="userpass"></td>
<td>
<input type="checkbox" value="1" name="xuansave" id="xuansave"><label for="xuansave">记住密码</label>
</td>
<td align="center"> <input type="reset" value=" 取消 " name="Submit"></td>
</tr></form>
</table>
<%
else%>
<table border="0" width="100%">
<tr>
<td> ::
<a href="profile.asp">我的资料</a></td>
<td> ::
<a onclick="javascript:open('message.asp?menu=post','','width=320,height=170')" href="#">发送短信</a></td>
<td> ::
<a href="upface.asp">上传头像</a></td>
</tr>
<tr>
<td> ::
<a href="ShowBBS.asp?menu=5">我的帖子</a></td>
<td> ::
<a href="message.asp">我的留言</a></td>
<td> ::
<a href="upphoto.asp">上传照片</a></td>
</tr>
<tr>
<td> ::
<span style="text-decoration: none"><a href="calendar.asp">我的日志</a></span></td>
<td> ::
<a href="friend.asp">我的好友</a></td>
<td> ::
<a href="favorites.asp">我的收藏</a></td>
</tr>
</table>
<%
end if
%>
</td>
<td>
<table border="0" width="100%">
<tr>
<td>注册会员:<b><%=Application(CacheName&"CountUser")%></b></td>
<td><%
if Application(CacheName&"NewUserName")<>empty then response.write "新进会员:<b><a href=Profile.asp?username="&Application(CacheName&"NewUserName")&">"&Application(CacheName&"NewUserName")&"</a></b>"
%></td>
</tr>
<tr>
<td>主题总数:<b><%=Application(CacheName&"CountForum")%></b></td>
<td>回帖总数:<b><%=Application(CacheName&"CountReforum")%></b></td>
</tr>
<tr>
<td>今日帖数:<b><font color=red><%=today%></font></b></td>
<td>昨日帖数:<b><%=oldday%></b></td>
</tr>
</table>
</td>
<td height="25" align="center" width="10%" rowspan="2">
<embed src=images/Clock.swf width=100 height=80 wmode=transparent></td>
</tr>
<tr class=a3><td height="12" align="center" width="78%" colspan="2">
<font face=Wingdings>v</font> <a href="ShowBBS.asp?menu=2">本周热门帖子</a>
<font face=Wingdings>v</font> <a href="ShowBBS.asp?menu=1">本周人气帖子</a>
<font face=Wingdings>v</font> <a href="ShowBBS.asp">社区新帖</a>
<font face=Wingdings>v</font> <a href="ShowBBS.asp?menu=3">精华帖子</a>
<font face=Wingdings>v</font> <a href="ShowBBS.asp?menu=4">投票帖子</a>
<font face=Wingdings>v</font></td>
</tr>
</table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<SCRIPT>valigntop()</SCRIPT>
<table width="97%" align="center" border="0" class="a2" cellspacing=1 cellpadding=0>
<%
if Request.Cookies("forumid")<>empty then
sql="select * from bbsconfig where id="&int(Request.Cookies("forumid"))&""
Set Rs=Conn.Execute(sql)
if Rs.eof then Response.Cookies("forumid")=""
if ""&Rs("password")&""="" then:password=0:else:password=1:end if
%><script>ShowList("<%=Rs("pass")%>","<%=Rs("id")%>","<%=Rs("bbsname")%>","<%=Rs("icon")%>","<%=Rs("intro")%>","<%=Rs("moderated")%>","<%=Rs("today")%>","<%=Rs("toltopic")%>","<%=Rs("tolrestore")%>","<%=Rs("lasttime")%>","<%=Rs("lastname")%>","<%=Rs("lasttopic")%>","<%=password%>");</script><%
rs.close
else
ForumList(0)
end if
%>
</table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2"><tr><td height="25" class="a1" colspan="2"> ■<b> </b>您的个人状态</td></tr><tr>
<td align="middle" width="5%" bgcolor=FFFFFF><img src="images/mystate.gif"></td><td class="a4"><table cellspacing="0" cellpadding="3" width="100%" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none"><tr><td><table border="0" cellpadding="0" cellspacing="0" width="100%"><%
if Request.Cookies("username") <> "" then
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
Set Rs=Conn.Execute(sql)
%> <tr><td width="25%"><%=rs("username")%> - 有 <font face="Georgia, Times New Roman, Times, serif"><%=rs("newmessage")%> 条新留言</font></td><td width="20%">
体力：<font face="Georgia, Times New Roman, Times, serif"><%=rs("userlife")%></font></td><td width="20%">
社区金币：<font face="Georgia, Times New Roman, Times, serif"><%=rs("money")%></font></td><td width="17%">发表文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("posttopic")%></font></td><td width="18%">被删文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("deltopic")%></font></td></tr><tr><td>等级名称：<Script>document.write(level(<%=rs("experience")%>,<%=rs("membercode")%>,'','')+levelname);</Script></td><td>
经验：<font face="Georgia, Times New Roman, Times, serif"><%=rs("experience")%></font></td><td>
社区存款：<font face="Georgia, Times New Roman, Times, serif"><%=rs("savemoney")%></font></td><td>回复文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("postrevert")%></font></td><td>精华文章：<font face="Georgia, Times New Roman, Times, serif"><%=rs("goodtopic")%> </font></td></tr><%
rs.close
end if
bbsname=clubname
forumid=0
UserAgent=Request.Servervariables("HTTP_USER_AGENT")
if Left(UserAgent,7) ="Mozilla" Then
UserAgent=replace(UserAgent,"MSIE","Internet Explorer")
UserAgent=replace(UserAgent,"NT 5.0","2000")
UserAgent=replace(UserAgent,"NT 5.1","XP")
UserAgent=replace(UserAgent,"NT 5.2","2003")
ALLUserAgent=split(UserAgent,";")
Platform=split(ALLUserAgent(2),")")(0)
'''''''''判断浏览器类型开始'''''''''''''''
if Left(UserAgent,11) ="Mozilla/4.0" Then
Browser=split(UserAgent,";")(1)
elseif instr(UserAgent,"Firefox")>0 then
Browser="Firefox "&split(UserAgent,"Firefox/")(1)
elseif instr(UserAgent,"Netscape")>0 then
Browser="Netscape "&split(UserAgent,"Netscape/")(1)
end if
'''''''''判断浏览器类型结束'''''''''''''''
end if
%> <!-- #include file="inc/line.asp" --><tr><td>
您的ＩＰ：<font face="Georgia, Times New Roman, Times, serif"><%=Request.ServerVariables("REMOTE_ADDR")%></font></td><td>端口：<font face="Georgia, Times New Roman, Times, serif"><%=Request.ServerVariables("REMOTE_PORT")%></font></td><td>操作系统：<%=Platform%></td><td colspan="2">浏览器：<%=Browser%></td></tr></table></td></tr></table></td></tr></table><%
regonline=conn.execute("Select count(sessionid)from online where username<>''")(0)
if Application(CacheName&"BestOnline")<onlinemany then
Application(CacheName&"BestOnline")=onlinemany
Application(CacheName&"BestOnlineTime")=now()
end if
%><SCRIPT>valignbottom()</SCRIPT>
<br>
<SCRIPT>valigntop()</SCRIPT><table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2"><tr><td height="25" class="a1" colspan="2"> <b>■ </b>在线统计</td></tr><tr><td align="middle" width="5%" bgcolor=FFFFFF><img src="images/totel.gif"></td><td valign="top" class="a4"><table cellspacing="0" cellpadding="3" width="100%"><tr><td height="15"> <img loaded="no" src="images/plus.gif" id="followImg0" style="cursor:hand;" onclick="loadThreadFollow(0,<%=forumid%>)"> 目前论坛总共有 <b><%=onlinemany%></b> 人在线。其中注册用户 <b><%=regonline%></b> 人，访客 <b><%=onlinemany-regonline%></b>
人。近日最高在线 <font color=red><b><%=Application(CacheName&"BestOnline")%></b></font> 人，发生在 <b><%=Application(CacheName&"BestOnlineTime")%></b>
</td></tr><tr height="25" style="display:none" id="follow0"><td id="followTd0" align="left" class="a4" width="94%" colspan="5">
Loading.....</td></tr></table></td></tr></table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="5" width="97%" border="0" class="a2" align="center"><tr><td height="25" colspan="2" class="a1"> ■<b> </b>友情链接</td></tr><tr>
<td align="center" bgcolor=FFFFFF width="5%" rowspan="2"><img src="images/shareforum.gif"></td>
<td class="a4"><%
rs.Open "link",Conn
do while not rs.eof
if rs("logo")="" or rs("logo")="http://" then
link1=link1+"<a title='"&rs("intro")&"' href="&rs("url")&" target=_blank>"&rs("name")&"</a> "
else
link2=link2+"<a title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31></a> "
end if
rs.movenext
loop
rs.close
%>
<%=link1%>
</td></tr><tr>
<td class="a4"><%=link2%></td></tr></table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<center> <img src=images/skins/<%=Request.Cookies("skins")%>/Board0.gif alt="禁止浏览"> 关闭论坛 <img src=images/skins/<%=Request.Cookies("skins")%>/Board1.gif alt="任何人均可浏览"> 正规论坛 <img src=images/skins/<%=Request.Cookies("skins")%>/Board2.gif alt="游客禁止浏览"> 会员论坛 <img src=images/skins/<%=Request.Cookies("skins")%>/Board3.gif alt="需要授权才能浏览"> 私密论坛<br>
<%
htmlend
sub ForumList(selec)
sql="Select * From bbsconfig where followid="&selec&" and hide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not Rs1.eof
if ii=0 then
%>
<tr class=a1 id=TableTitleLink><td colspan=7 height=25 title='<%=Rs1("intro")%>'><b> <img src=images/1.gif> <a href=ShowForum.asp?forumid=<%=Rs1("id")%>><%=Rs1("bbsname")%></a></b></td></tr>
<%
else
if ""&Rs1("password")&""="" then:password=0:else:password=1:end if
if ListStyle=0 then
%><script>SmallShowList("<%=Rs1("id")%>","<%=Rs1("bbsname")%>","<%=Rs1("intro")%>","<%=Rs1("moderated")%>","<%=Rs1("today")%>","<%=Rs1("toltopic")%>","<%=Rs1("tolrestore")%>");</script><%
else
%><script>ShowList("<%=Rs1("pass")%>","<%=Rs1("id")%>","<%=Rs1("bbsname")%>","<%=Rs1("icon")%>","<%=Rs1("intro")%>","<%=Rs1("moderated")%>","<%=Rs1("today")%>","<%=Rs1("toltopic")%>","<%=Rs1("tolrestore")%>","<%=Rs1("lasttime")%>","<%=Rs1("lastname")%>","<%=Rs1("lasttopic")%>","<%=password%>");</script><%
end if
end if
ii=ii+1
if ii < int(floor) then ForumList Rs1("id")
ii=ii-1
Rs1.movenext
loop
Set Rs1 = Nothing
if ListStyle=0 then
%><script>makeupShowList();</script><%
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -