main.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%
if request.querystring("act")="search" then
  response.redirect "?bid="&bid&"&keywords="&server.urlencode(htmlencode(restr(request.form("keywords"))))&"&SearchType="&server.urlencode(htmlencode(restr(request.form("SearchType"))))
end if
if datediff("d",nowtime,formatdatetime(now()+timezone/24,2))<>0 then
   conn.execute("update [hx66_bbsinfo] set todaynum=0")
   conn.execute("update [hx66_bbsset] set todaynum=0, ztodaynum="&hx_todaynum&", hx66_nowtime='"&formatdatetime(now()+timezone/24,2)&"'")	
end if
function chsearchstr(tstr,sstr)
  if sstr="" then
    chsearchstr=tstr
  else
    if instr(tstr,sstr)>0 then
      chsearchstr=replace(tstr,sstr,"<font color=""red"">"&sstr&"</font>")
    else
      chsearchstr=tstr
    end if
  end if
end function

Function ylcolor(ytype)
select case ytype
case 1 ylcolor="#FF0000"
case 2 ylcolor="#0000FF"
case 3 ylcolor="#007500"
case 4 ylcolor="#750000"
case 5 ylcolor="#FF00FF"
case else ylcolor="#000000"
end select
End Function

sub showtitle()
%>
<SCRIPT language=javaScript src="inc/yy.js" type=text/javascript></SCRIPT>
<table class="table-hx66s" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
  <tr><td style=padding-left:10px;padding-right:10px;padding-top:0px>
      <div id=visible><p><font color=red>论坛公告：</font><a href="" id=hottext target="_blank"></a></p>
      </div>
  </td></tr>
</table>
<div id=incoming style="DISPLAY: none">
<div id=AllNews> 
<%
dim diary1
diary1=split(diary,"|")
for i=1 to ubound(diary1)
%>
<div id=<%=i%>>
<div id=Summary><%=diary1(i)%></div>
<div id=NewsLink>#</div>
</div>
<%next%>
</div>
<div id=AddNews> 
</div>
</div>
<table class="table-hx66s" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
    <tr>
      <td>
<table width="740" border="1" align="center" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" class="b4">
<tr>
<td height=26 colspan="4" class="a4"></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
sqlstrs="select * from hx66_uinfo where hx66_uname='"&username&"'"
rs.open sqlstrs,conn,1,1
dim uphoto
if not rs.eof then
uphoto=rs("hx66_photo")
end if
%>
<tr>
<td align=center valign=middle height="105" width="100"><%If uphoto<>"" Then%><img src="<%=uphoto%>" width="80" Border=0><%else%><img src="images/noface.gif" width="80" border=0><%End If%></td>
<td align=center valign=middle width="280">
<TABLE border=0 width="98%" align=center>
<%
if UserLogined<>True then
%>
<form method="post" action="../bbsLogin.asp?hx66=login">
<tr><td><img src="images/dot6.gif" border="0">帐号：<input maxlength='16' size='12' name='username' title='输入您的ID' type='text' class="input"></td><td><input type="radio" name="userhidden" value=2 checked class='inuptCG'>正常&nbsp;<input type="radio" name="userhidden" value=1 class='inuptCG'>隐身</td></tr>
<tr><td><img src="images/dot6.gif" border="0">密码：<input type='password' maxlength='20' size='12' value='' name='password' title='输入您的密码' class="input"></td><td>&nbsp;</td></tr> 
<tr><td><img src="images/dot6.gif" border="0">Cookie:<select name=CookieDate class="input"><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select></td><td><input type=submit name=submit value="登 陆" class="input">&nbsp;&nbsp;<a href="../UserReg.asp" target=_blank>注&nbsp;册</a></td></tr></form>
<%
else
yzt=conn.execute("select count(*) from hx66_bbs where hx66_delete=0 and hx66_name='"&username&"'")(0)
yhf=conn.execute("select count(*) from hx66_saybbs where hx66_hdelete=0 and hx66_user='"&username&"'")(0)
%>
<TR>
<td><img src="images/dot4.gif" border="0">欢迎您<font color="#284080"><B> <%=username%> </B></font>这是你第<%=LoginTimes%>次光临</td></TR>
<tr><td height="1" bgcolor="#284080"></td></tr>   
<TR><td><a href="../Messager.asp?action=inbox" target=_blank>短消息</a>「<IFRAME src="../bbsmessage.asp" frameBorder=0 width="10" scrolling=no height=13></IFRAME>」<font face=Wingdings color=blue>v</font> <a href="../User_main.asp">会员中心</a> <font face=Wingdings color=blue>v</font> <a href="myset.asp">签名·头像·积分</a></td>	
</TR>
<TR><td><a href="toplist.asp?action=mytod">我的主题</a> <font face=Wingdings color=blue>v</font><a href="toplist.asp?action=withmetod">我的回复</a> <font face=Wingdings color=blue>v</font><a href="toplist.asp?action=collect">我的收藏</a> <font face=Wingdings color=blue>v</font>文章：<%=yzt+yhf%></td></TR>
<TR><td><img src="images/dot1.gif" border="0"><a href="../bbsLogin.asp?hx66=logout">注销登陆</a>&nbsp;&nbsp;&nbsp;<%if userhidden=1 then%><img src="images/dot5.gif" border="0">状态：隐身<%else%><img src="images/dot4.gif" border="0">状态：在线<%end if%>&nbsp;
<%if checkadmin(username)=4 then
response.write"超级管理员"
elseif checkadmin(username)=3 then
response.write"管理员"
elseif checkadmin(username)=2 then
response.write"超级版主"
elseif checkadmin(username)=1 then
response.write"论坛版主"
else
response.write"注册会员"
end if%></td></TR>  
<TR><td width="100%" align="center">  
</td></TR>
<%
end if
%>
</TABLE>
</td>
<%
hy=conn.execute("select count(*) from hx66_uinfo")(0)
set xhy = conn.execute("select top 1 hx66_uname from hx66_uinfo order by uid desc")
%>
		        <td valign="middle" width="260">
			<TABLE border=0 width="98%" align=center>
			<TR>
				<TD>发贴会员：<B><%=hy%></B> 位</td>
				<TD>最新加入 <b><%=xhy(0)%></b></td>
			</TR>
			<tr><td height="1" bgcolor="#284080" colspan="2"></td></tr>
			<TR>
				<TD>今日发贴：<FONT COLOR="#FF0000"><B><%=hx_todaynum%></B></FONT></td>
				<TD>主题总数：<b><%=hx_topicnum%></b></td>
			</TR>
			<TR>
				<TD>昨日发贴：<B><%=hx_ztodaynum%></B></td>
				<TD>帖子总数：<b><%=hx_allnum%></B></td>
			</TR>
			<TR>
				<TD>论坛天数：<B><%=datediff("d","2005-5-15",date())%></B></td>
				<TD>现在时间：<b><%=FormatDateTime(now+timezone/24,4)%></B></td>
			</TR>
			</TABLE>
		</td>	
		<td nowrap align="center" width="100"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="100">
        <param name=movie value="images/sz6.swf">
        <param name=quality value=high>
        <param name="wmode" value="transparent">
        <embed src="images/sz6.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="100" wmode="transparent">
        </embed></object></td>						
	</tr>
	<tr><td align="center" colspan="4" height="25" width="100%"><a href="toplist.asp?action=newtod" Title="论坛最新主题">查看新贴</a> <font face=Wingdings color=blue>v</font> <a href="toplist.asp?action=bbstod" Title="论坛热门主题">热门话题</a> <font face=Wingdings color=blue>v</font> <a href="toplist.asp?action=goodtod" Title="论坛所有精华贴子">精华贴子</a></td></tr>
</table></td></tr></table>
<%
end sub

sub showtoplist()
%>
<table class="table-hx66s" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
    <tr>
      <td>
<table cellSpacing="0" cellPadding="0" width="740" align="center" border="0">
<%
if UserLogined<>True then
%>
<tr><td height="5"></td></tr>
<%
else
if showset="1" then%>
    <tr>
      <td width="290" height="40"><a href="bbs_fb.asp?bid=<%=bid%>&html=1"><img src="images/postnew.gif" border="0"></a>&nbsp;&nbsp;<a href="bbs_fb.asp?bid=<%=bid%>&vote=1&html=1"><img src="images/votenew.gif" border="0"></a></td><%call showsearch()%>      
    </tr>
<%else%>
    <tr>
      <td width="290" height="40"><a href="bbs_fb.asp?bid=<%=bid%>"><img src="images/postnew.gif" border="0"></a>&nbsp;&nbsp;<a href="bbs_fb.asp?bid=<%=bid%>&vote=1"><img src="images/votenew.gif" border="0"></a></td><%call showsearch()%>      
    </tr>
<%end if
end if%>
</table>
<table width="740" border="1" align="center" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse">
             <tr>
              <td align="middle" width="5%" height="30"><font color="#990000">状态</font></td>
              <td width="53%" height="30" align="center">&nbsp;<font color="#990000">主&nbsp;&nbsp;题</font>&nbsp;&nbsp;&nbsp;<input type='checkbox' onclick='javascript:OpenMode(this)' id='hx66net'><label for='hx66net'> 在新窗口中打开主题</label></td>
              <td align="middle" width="12%" height="30">&nbsp;<font color="#990000">作者</font></td>
              <td align="middle" width="10%" height="30"><font color="#990000">回复/人气</font></td>
              <td align="middle" width="20%" height="30"><font color="#990000">最后更新┆最新回复人</font></td>
            </tr>
        </table>
      </td>
    </tr>
</table>
<%if request.querystring("page")="1" or request.querystring("page")="" then
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_bbs where hx66_top=3 and hx66_delete=0 order by hx66_time desc"
rs.open sqlstr,conn,1,1
iii=0
do while not rs.eof
%>
<table class="table-hx66s" cellSpacing="1" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
    <tr>
      <td>
      <table width="740" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse">
            <tr>
              <td align="middle" width="5%" height="24"><img src="images/top1.gif" alt="总置顶主题"></td>
              <td width="53%" height="24"><%if checkbbsadmin(bid)=2 or checkadmin(ckuname)>=3 then%><img src="images/plus.gif" onClick="javascript:showchild(tr2_<%=iii%>)"><%end if%>&nbsp;<a name='topiclink' href="bbs_detail.asp?bid=<%=rs("hx66_bid")%>&aid=<%=rs("id")%>" title="<%=rs("hx66_title")%>"><%if rs("hx66_yl")=0 then%><%=leftshow(rs("hx66_title"),40)%><%else%><font color="<%=ylcolor(rs("hx66_yl"))%>"><%=leftshow(rs("hx66_title"),40)%></font><%end if%></a><%if DateDiff("h",rs("hx66_fatime"),now())<=24 then%>&nbsp;<img src="images/new.gif" alt="New"><%end if%>
<%replynum1=rs("hx66_hf")+1
if replynum1>10 then
	response.write "[ <img src='Images/pagelist.gif' border='0' title='分页列表' alt='分页列表'>"
  	if replynum1 mod 10=0 then
     		Pnum1= replynum1 \ 10
  	else
     		Pnum1= replynum1 \ 10+1
  	end if
	for p1=2 to Pnum1
	response.write " <a href='bbs_detail.asp?bid="&rs("hx66_bid")&"&aid="&rs("id")&"&page="&P1&"'><font color=red>"&p1&"</font></a> "
	if p1+1>5 then
	response.write "..<a href='bbs_detail.asp?bid="&rs("hx66_bid")&"&aid="&rs("id")&"&page="&Pnum1&"'><font color=red>"&Pnum1&"</font></a> "
	exit for
	end if
	next
	response.write "]"
else
	pnum1=1
end if%>
<%if rs("hx66_level")=1 then%><img src="images/isbest.gif" alt="精华主题" align='absmiddle'><%elseif rs("hx66_close")=1 then%><img src="images/close.gif" alt="锁定主题"><%elseif rs("hx66_vote")=1 then%><img src="images/poll.gif" alt="投票主题"><%end if%></td>
              <td align="middle" width="12%" height="24">&nbsp;<a href="viewperson.asp?bid=<%=bid%>&author=<%=server.urlencode(rs("hx66_name"))%>" target="_blank"><%=rs("hx66_name")%></a></td>
              <td align="middle" width="10%" height="24"><%=rs("hx66_hf")%>/<%=rs("hx66_count")%></td>
              <td width="20%" height="24">&nbsp;<%=right(year(rs("hx66_time")),2)%>-<%=Right("0" & month(rs("hx66_time")),2)%>-<%=Right("0" & day(rs("hx66_time")),2)%>┆<%=rs("hf_name")%></td>
            </tr>
<%if checkbbsadmin(bid)=2 or checkadmin(ckuname)>=3 then%>
        <tr id="tr2_<%=iii%>" style="display:none">
          <td height="20" colspan="5">&nbsp;颜色设置： <a href="bbs_admin.asp?act=changecolor&id=<%=rs("id")%>&bid=<%=rs("hx66_bid")%>&type=1"><font color="#FF0000">红色</font></a> <a href="bbs_admin.asp?act=changecolor&id=<%=rs("id")%>&bid=<%=rs("hx66_bid")%>&type=2"><font color="#0000FF">蓝色</font></a> <a href="bbs_admin.asp?act=changecolor&id=<%=rs("id")%>&bid=<%=rs("hx66_bid")%>&type=3"><font color="#007500">绿色</font></a> <a href="bbs_admin.asp?act=changecolor&id=<%=rs("id")%>&bid=<%=rs("hx66_bid")%>&type=4"><font color="#750000">暗红</font></a> <a href="bbs_admin.asp?act=changecolor&id=<%=rs("id")%>&bid=<%=rs("hx66_bid")%>&type=5"><font color="#FF00FF">粉红</font></a> <a href="bbs_admin.asp?act=changecolor&id=<%=rs("id")%>&bid=<%=rs("hx66_bid")%>&type=0">还原</a></td>