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

📄 default.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<!--#INCLUDE FILE="inc_functions2.asp" -->
<script src="Screen.js">
<link href=Include/style_flash.css rel=STYLESHEET type=text/css></script>
<%
on error resume next
Dim strFolderImg
Randomize
strFolderImg = (Int(5 * Rnd))		' ### 产生随机数

'strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
'strDBNTFUserName = Request.Form("Name")
'if strAuthType = "nt" then
'	strDBNTUserName = Session(strCookieURL & "userID")
'	strDBNTFUserName = Session(strCookieURL & "userID")
'end if

if strAutoLogon = 1 then
	if (ChkAccountReg() <> "1") then
		Response.Redirect "register.asp?mode=DoIt"
	end if
end if

if IsEmpty(Session(strCookieURL & "last_here_date")) then
	Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
end if
strSql = "Select Max(" & strTablePrefix & "CATEGORY.CAT_ID) as Max_ID "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY"
set rs0 = my_Conn.Execute (StrSql)

MaxID = rs0("MAX_ID")
rs0.close
set rs0 = nothing


If MaxID > 0 then
   i = 0
   do until i > cint(MaxID)
        HideForumCat = "HideCat" & i
		If Request.QueryString(HideForumCat) = "Y" then
			Response.Cookies(HideForumCat) = "Y"
			Response.Cookies(HideForumCat).Expires = dateAdd("d", 1, strForumTimeAdjust)
		Else
			If Request.QueryString(HideForumCat) = "N" then
				Response.Cookies(HideForumCat) = "N"
				Response.Cookies(HideForumCat).Expires = dateAdd("d", 1, strForumTimeAdjust)
			End If
		End If
		i = i + 1
	loop
else
        HideForumCat = "HideCat" & 0   'Statistics
		If Request.QueryString(HideForumCat) = "Y" then
			Response.Cookies(HideForumCat) = "Y"
			Response.Cookies(HideForumCat).Expires = dateAdd("d", 1, strForumTimeAdjust)
		Else
			If Request.QueryString(HideForumCat) = "N" then
				Response.Cookies(HideForumCat) = "N"
				Response.Cookies(HideForumCat).Expires = dateAdd("d", 1, strForumTimeAdjust)
			End If
		End If
end if
scriptname = Request.ServerVariables("script_name")


	set rs1 = Server.CreateObject("ADODB.Recordset")

	'## Forum_SQL
	strSql = "SELECT " & strTablePrefix & "TOTALS.P_COUNT, " & strTablePrefix & "TOTALS.T_COUNT, " & strTablePrefix & "TOTALS.U_COUNT "
	strSql = strSql & " FROM " & strTablePrefix & "TOTALS"

	rs1.open strSql, my_Conn

	Users = rs1("U_COUNT")
	Topics = rs1("T_COUNT")
	Posts = rs1("P_COUNT")

	rs1.Close
	set rs1 = nothing


'## Forum_SQL - Get all Forums From DB
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_ID, " & strTablePrefix & "CATEGORY.CAT_STATUS, "
strSql = strSql & strTablePrefix & "CATEGORY.CAT_NAME "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
strSql = strSql & " ORDER BY " & strTablePrefix & "CATEGORY.CAT_ORDER ASC,"
strSql = strSql & " " & strTablePrefix & "CATEGORY.CAT_NAME ASC;"

set rs = my_Conn.Execute (strSql)
%>
<% '################################## %>
    <td width="70%" valign="bottom" align="right" valign="top">
<%	if strBanner=1 and strBannerUrl<>"" then %>
<P><% =strBannerUrl %></P>
<%	end if %>
<% ShowLastHere = (cint(ChkUser2(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) > 0) %>
<%' if strShowStatistics <> "1" then %>
<%
	set rsNewMember = Server.CreateObject("ADODB.Recordset")
	'## Forum_SQL - Get newest membername and id from DB
	strSql = "SELECT M_NAME, MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1 AND MEMBER_ID > 1"
	strSql = strSQL & " ORDER BY M_DATE desc;"
	set rsNewMember = my_Conn.Execute(strSql)
	if not rsNewMember.EOF then
		NewMember_Name = ChkString(rsNewMember("M_NAME"), "display")
		NewMember_Id = rsNewMember("MEMBER_ID")
	else
		NewMember_Name = ""
	end if
	rsNewMember.Close
	Set rsNewMember = Nothing
%>
        	<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>">
最新成员：
<%
		if strUseExtendedProfile then
			Response.Write """<a href=""pop_profile.asp?mode=display&id="& NewMember_Id & """>"
		else
			Response.Write "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & NewMember_Id & "')"">"
		end if
		Response.Write NewMember_Name & "</a>""" & vbcrlf
%></FONT><font face="宋体" size="<% Response.Write strDefaultFontSize %>"><A href="Members.asp?link=sort&Mode=search&M_NAME=&method=datedesc"><font color="#000066"><img border="0" src="Images/messages_4.gif">新进会员</font></A></FONT><br>
	<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>">
注册会员： <FONT color="<% =strInsistFontColor %>"><B><% Response.Write Users %></B></FONT> 
|&nbsp; 主题总数：&nbsp;<FONT color="<% =strInsistFontColor %>"><B><% Response.Write Topics %></B></FONT> 
|&nbsp; 回复总数： <FONT color="<% =strInsistFontColor %>"><B><% Response.Write Posts %></B></FONT> </FONT>&nbsp;<%' end if %>
   </td>
 </tr>
</table>
<% '################################## %>
<TABLE border=0 width="<% Response.Write strTableWidth  %>" cellspacing=0 cellpadding=0 align=center>
  <TR>
    <TD>
    <TABLE width="100%" border="0">
      <TR>
        <TD align="left"><!--#INCLUDE FILE="inc_announce.asp" --></TD>
        <td align=center width=20><img src=<% Response.Write strImageURL %>team.gif border=0 width=16 height=16 alt="显示管理团队"></td>
        <td width=70>
        <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>"><a href="members.asp?Mode=Admin">
        <font color="#000066">管理团队</font></a></font></td>
        <td align=center width=20><img src=<% Response.Write strImageURL %>userlist.gif border=0 width=16 height=16 alt="显示用户列表"></td>
        <td width=70>
        <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>"><a href="members.asp">
        <font color="#000066">用户列表</font></a></font></td>
        <td align=center width=20><img src=<% Response.Write strImageURL %>top.gif border=0 width=16 height=16 alt="显示发贴量排名"></td>
        <td width=54>
        <font face="Times New Roman" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>"><a href="members.asp?link=sort&mode=search&method=postsdesc">
        <font color="#000066">发贴排名</font></a></font></td>
      </TR>
    </TABLE>
    </TD>
  </TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD bgcolor="<% Response.Write strTableBorderColor %>">
<TABLE border=0 width="100%" height=28 cellspacing=1 cellpadding=6>
<TR>
        <TD width=26 align=center bgcolor="#000000" nowrap valign="top">
        <img border="0" src="Images/bbs_nav.gif"></TD>
        <TD width=* align=center bgcolor="#000000" nowrap valign="top">
        <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="#FFFFFF">
        SHine STudio 论坛分类目录</font> <% if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %><% PostingOptions() %><% end if %></TD>
<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then %>
        <TD width=80 align=center bgcolor="#000000" nowrap valign="top">
        <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="#FFFFFF">版&nbsp;&nbsp; 主</font></TD>
<% end if %>
        <TD width=38 align=center bgcolor="#000000" nowrap valign="top">
        <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="#FFFFFF">
        主题</font></TD>
        <TD width=40 align=center bgcolor="#000000" nowrap valign="top">
        <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="#FFFFFF">回复</font></TD>
        <TD width=168 align=center bgcolor="#000000" nowrap valign="top">
        <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="#FFFFFF">
        最 后 发 表</font></TD>
	<TD width=28 align=center bgcolor="#000000" nowrap valign="top">
    <font face="宋体" size="<% Response.Write strDefaultFontSize %>" color="#FFFFFF">收藏</font></TD>
      </TR>
<%
if rs.EOF or rs.BOF then
%>
      <TR>
        <TD bgcolor="<% Response.Write strCategoryCellColor %>" colspan="<% Response.Write sGetColspan(6, 5)%>"><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strCategoryFontColor %>" size="<% Response.Write strDefaultFontSize %>" ><b>没有找到分类或论坛</b></font></TD>
<%
	if (mlev = 4 or mlev = 3) then
%>
        <TD bgcolor="<% Response.Write strCategoryCellColor %>"><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strCategoryFontColor %>" size="<% Response.Write strDefaultFontSize %>" valign="top">&nbsp;</font></TD>
<%
	end if
%>
      </TR>
<%
else
	intPostCount  = 0
	intTopicCount = 0
	intForumCount = 0
	strLastPostDate = ""
	do until rs.EOF

		'## Forum_SQL - Build SQL to get forums via category
		strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, "
'###############
		strSql = strSql & strTablePrefix & "FORUM.F_URLIMAGE, "
'###############
		strSql = strSql & strTablePrefix & "FORUM.F_SUBJECT, "
		strSql = strSql & strTablePrefix & "FORUM.F_URL, "
		strSql = strSql & strTablePrefix & "FORUM.F_DESCRIPTION, "
		strSql = strSql & strTablePrefix & "FORUM.CAT_ID, "
		strSql = strSql & strTablePrefix & "FORUM.F_TOPICS, "
		strSql = strSql & strTablePrefix & "FORUM.F_COUNT, "
		strSql = strSql & strTablePrefix & "FORUM.F_LAST_POST, "
		strSql = strSql & strTablePrefix & "FORUM.F_LAST_REPLY, "
		strSql = strSql & strTablePrefix & "FORUM.F_STATUS, "
		strSql = strSql & strTablePrefix & "FORUM.F_TYPE,  "
		strSql = strSql & strTablePrefix & "FORUM.F_PRIVATEFORUMS,  "
		strSql = strSql & strTablePrefix & "FORUM.FORUM_ORDER, "
		strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, "
		strSql = strSql & strMemberTablePrefix & "MEMBERS.M_NAME "
		strSql = strSql & "FROM " & strTablePrefix & "FORUM "
123

⌨️ 快捷键说明

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