bbs.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
if cint(anysale.asGroups(10))=0 then call anysale.asNote("权限出错","你所在的用户组没有浏览论坛的权限!") end if

dim channelID
if request("channelID")="" or not isnumeric(request("channelID")) then
	channelID=0
else
	channelID=clng(request("channelID"))
end if

call anysale.header("bbs",anysale.nav("channel",channelID,2,"")&"行业论坛",anysale.asInfo(3),anysale.asInfo(4))
%>
<%=anysale.ad(65,"class=""banner clear padT5""")%>
<div class="line5"></div>

<div class="bodyer">

 <div class="tab" style="width:948px;">
  <div class="tabList"><ul><li><h2 style="padding:3px 0 0 5px;"><span class="iArr">&nbsp;&nbsp;&nbsp;</span>欢迎光临<%=anysale.asInfo(0)%>论坛</h2></li></ul></div>
  <div class="line20">
   <ul class="left">
    <%
	dim rsUser,face
	if anysale.userID<>"" then
		set rsUser=conn.execute("select nickname,regtime,logins,loginTime,loginIP,money,groups,face,istrust,trustStartTime,trustEndTime from as_user where userID="&anysale.userID)
		if not (rsUser.eof and rsUser.bof) then
		face=split(rsUser("face"),"|||")
	%>
	<%if cint(anysale.asUser(2))=1 then '使用头像设置%><li class="left txtCen" style="padding:5px;"><a href="companydetail.asp?u=<%=anysale.username%>"><img src="<%=face(0)%>" alt="<%=anysale.username%>" width="<%=face(1)%>" height="<%=face(2)%>" class="border" /></a></li><%end if%>
	<li class="left borderR" style="margin:5px;width:500px;">
	 <h5>欢迎光临：<%=anysale.username%>，昵称：<%=rsUser("nickname")%>，注册时间：<%=anysale.formatDate(rsUser("regtime"),1)%>；</h5>
	 <h5>这是您的第<%=rsUser("logins")%>次登录，上次登录时间：<%=anysale.formatDate(rsUser("loginTime"),5)%>，登录IP：<%=rsUser("loginIP")%>；</h5>
	 <h5>	 
	 会员类型：<%=anysale.getValue("as_groups","userTitle","groupsID="&cint(anysale.userGroup))%>，
	 用户组：<%=anysale.getValue("as_groups","groupsName","groupsID="&cint(anysale.userGroup))%>，
	 金钱：<%=rsUser("money")%>，
	 财富等级：<%=anysale.getValue("as_groups","groupsName","groupsID="&cint(anysale.userLevel))%>；
	 </h5>
	 <h5>你的主题(<%=anysale.userInfo(8)%>)，你的帖子(<%=anysale.userInfo(9)%>)，你的精华帖(<%=anysale.userInfo(10)%>)；</h5>
	 <h5>论坛主题(<%=anysale.userInfo(8)%>)，论坛帖子(<%=anysale.userInfo(9)%>)，论坛精华帖(<%=anysale.userInfo(10)%>)。</h5>
	</li>
	<%
		end if
		rsUser.close
		set rsUser=nothing
	else
	%>
	<li class="left borderR txtCen f14" style="margin:5px;padding:30px 0;width:500px;"><strong>欢迎光临，您尚未注册会员或未登录！</strong><br />[<a class="links" href="register.asp">免费注册</a>] [<a class="links" href="login.asp">会员登录</a>]</li>
	<%end if%>
   </ul> 
   <ul class="left" style="padding:5px;">
    <li><strong class="red f14">论坛新帖：</strong></li>
    <%
	dim n,rsn
	set rsn=conn.execute("select top 4 bbsID,title,addtime from as_bbslist where islock=0 order by bbsID desc")
	if not rsn.eof or not rsn.bof then
	n=1
	do while not rsn.eof and n<=4
    %><li>&raquo; <a href="bbsdetail.asp?id=<%=rsn("bbsID")%>" title="<%=rsn("title")%>"><%=anysale.cutStr(rsn("title"),16)%></a> [<%=anysale.formatDate(rsn("addtime"),4)%>]</li>
	<%
	rsn.movenext
	n=n+1
	loop
	else
		response.write"<li>暂无帖子!</li>"
	end if
	rsn.close
	set rsn=nothing
    %>
   </ul>  
  </div>
 </div>

 <%
 dim rs,subRs,attribute
 if channelID=0 then
 	set rs=conn.execute("select channelID,channelName,child from as_channel where parentID=0 and groups=8 order by orders,channelID")
 else
 	set rs=conn.execute("select channelID,channelName,child from as_channel where channelID="&channelID&" and groups=8 order by orders,channelID")
 end if
 if not rs.eof or not rs.bof then
 do while not rs.eof
 %>
 <div class="tab marT5" style="width:948px;border-bottom: 0px solid #ffffff;">
  <div class="tabList"><ul><li><h2 style="padding:3px 0 0 5px;"><span class="iArr">&nbsp;&nbsp;&nbsp;</span><%=rs(1)%></h2></li></ul></div>
  <div class="list">
   <%
   set subRs=conn.execute("select channelID,channelName,child,readme,attribute from as_channel where parentID="&rs(0)&" and groups=8 order by orders,channelID")
   if not subRs.eof or not subRs.bof then
   do while not subRs.eof
   attribute=split(subRs("attribute"),"|||")
   %>
   <ul class="borderB">
    <li class="views txtCen borderR" style="padding:25px 0 0 0;height:45px;overflow:hidden;">
	 <%if attribute(4)<>"" and anysale.formatDate(now(),1)=anysale.formatDate(attribute(4),1) then%>
	 <img src="images/bbsnew.gif" alt="有新主题" width="17" height="20" />
	 <%else%>
	 <img src="images/bbslist.gif" alt="<%=subRs(1)%>" width="17" height="20" />
	 <%end if%>
	</li>
	<li class="left" style="width:600px;padding:5px;">
	 <%if trim(attribute(1))<>"" then%><span style="height:60px;" class="right"><img src="<%=attribute(1)%>" alt="<%=subRs(1)%>" /></span><%end if%>
	 <h4><a href="bbs<%if subRs(2)=0 then response.write"list" end if%>.asp?channelID=<%=subRs(0)%>"><%=subRs(1)%></a></h4>
	 <h5><span class="red">&raquo;</span> <%=anysale.cutStr(subRs(3),100)%></h5>
	</li>
	<li class="left f12" style="width:270px;padding:5px 0 5px 10px;">
	主题：<a href="bbsdetail.asp?ID=<%=attribute(3)%>"><%=anysale.cutStr(attribute(2),18)%></a><br />
	发帖：<%if attribute(4)<>"" then%><%=attribute(4)%> | <%end if%><a class="redlink" target="_blank" href="companydetail.asp?u=<%=attribute(5)%>"><%=attribute(6)%></a><br />
	版主：<%if attribute(0)="" then response.write"暂无" else response.write attribute(0) end if%>
	</li>
   </ul>
   <%
   subRs.movenext
   loop
   subRs.close
   set subRs=nothing
   else
   response.write "<ul class=""borderB""><li style=""padding:5px 10px;"">该论坛没尚未添加版块。</li></ul>"
   end if
   %>   
  </div>
 </div>
 <%
 rs.movenext
 loop
 rs.close
 set rs=nothing
 end if
 %>
</div>
<%
anysale.footer
closeConn
%>