<% Option Explicit %> <% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" MF_Default_Conn Dim Conn,User_Conn Dim Configobj,Topic,isUser,PageS,Style,sql,MSTitle Set Configobj= server.CreateObject(G_FS_RS) sql="select ID,Title,IsUser,IsAut,PageSize,Style From FS_WS_Config" configobj.open sql,Conn,1,1 if not configobj.eof then Topic=configobj("Title") PageS=configobj("PageSize") IsUser=configobj("IsUser") MSTitle=configobj("Title") Style = configobj("Style") if Style<>"" then Style = Style else Style = "3" end if end if response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = Style set configobj=nothing Dim int_Start,int_RPP,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo int_RPP=PageS '设置每页显示数目 toF_="9" '首页 str_nonLinkColor_="#999999" '非热链接颜色 'int_RPP = 30 int_showNumberLink_=10 '数字导航显示数目 showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转,当多次调用时只能选1 toF_="9" '首页 toP10_=" 7" '上十 toP1_=" 3" '上一 toN1_=" 4" '下一 toN10_=" 8" '下十 toL_=":" %> 在线咨询_长沙楚盛律师网 /<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css"> <% dim ClassID,ClassRs,NoteSql,NoteSqlEnd,SelectClassID,NoteRs,NoteAct if NoSqlHack(request.QueryString("ClassID"))<>"" then ClassID=NoSqlHack(trim(request.QueryString("ClassID"))) Set ClassRs=Server.CreateObject(G_FS_RS) ClassRs.open "Select ID,ClassID,ClassName,ClassExp,Pid,Author from FS_WS_Class Where ClassID='"&ClassID&"'",Conn,1,1 %>
 
返回首页本站服务关于本站在线咨询来访路线加入收藏 设为主页
法治资讯 | 业务受理 | 文书选登 | 站长专栏 | 民商专题 | 经济法专题 | 刑事专题 | 行政专题 | 程序专题 | 案例选登 | 法律法规 | 友情展示 | 环保律师
<% if not ClassRs.eof then %>
<%=MSTitle%>-><%=ClassRs("ClassName")%>->帖子列表
 ·<%=ClassRs("ClassExp")%>
<% if IsUser="0" then response.Write("发表话题|") elseif session("FS_UserName")<>"" then response.Write("发表话题|") end if %> ">所有贴子">推荐帖子">人气贴子
<% NoteSql="Select ID,ClassID,[User],Topic,Body,AddDate,IsTop,State,Style,IsAdmin,Answer,Hit,LastUpdateDate,LastUpdateUser,Face from FS_WS_BBS" NoteSqlEnd=" order by IsTop DESC,LastUpdateDate desc,AddDate DESC,id desc" if NoSqlHack(Request.queryString("Act"))<>"" then NoteAct=NoSqlHack(Request.queryString("Act")) SelectClassID=NoSqlHack(Request.querystring("ClassID")) Select Case NoteAct Case "All" if SelectClassID<>"" then NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"' "&NoteSqlEnd else NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' "&NoteSqlEnd end if Case "Adime" if SelectClassID<>"" then NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"' and IsAdmin='1' and ParentID='0' order by IsTop DESC,AddDate DESC" else NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' and IsAdmin='1' and ParentID='0' order by IsTop DESC,AddDate DESC" end if Case "Y" if SelectClassID<>"" then NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"'and ClassID='"&SelectClassID&"' and ParentID='0' " &NoteSqlEnd else NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' and ClassID='"&SelectClassID&"' and ParentID='0' " &NoteSqlEnd end if Case "N" if SelectClassID<>"" then NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"' and State='1' and ParentID='0' " &NoteSqlEnd else NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' and State='1' and ParentID='0' " &NoteSqlEnd end if Case "Before" if SelectClassID<>"" then NoteSql=NoteSql&" where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"' and IsTop='1' and ParentID='0' " &NoteSqlEnd else NoteSql=NoteSql&" where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' and IsTop='1' and ParentID='0' " &NoteSqlEnd end if Case "Person" if SelectClassID<>"" then NoteSql=NoteSql&" where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"' and ParentID='0' order by IsTop DESC,Hit desc,LastUpdateDate DESC,AddDate DESC,id desc" else NoteSql=NoteSql&" where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' and ParentID='0' order by IsTop DESC,Hit DESC,LastUpdateDate desc,AddDate DESC,id desc" end if Case Else if SelectClassID<>"" then NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"' and ParentID='0' "&NoteSqlEnd else NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' and ParentID='0' "&NoteSqlEnd end if End Select else if SelectClassID<>"" then NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&SelectClassID&"' and ClassID='"&ClassRs("ClassID")&"' and ParentID='0' "&NoteSqlEnd else NoteSql=NoteSql&" Where State='0' and IsAdmin<>'1' and ClassID='"&ClassRs("ClassID")&"' and ParentID='0' "&NoteSqlEnd end if end if Set NoteRs=Server.CreateObject(G_FS_RS) NoteRs.open NoteSql,Conn,1,1 %> " name="<%=ClassRs("ClassID")%>"> <% if not NoteRs.eof then NoteRs.PageSize=int_RPP cPageNo=NoSqlHack(Request.QueryString("Page")) If cPageNo="" Then cPageNo = 1 End if If not isnumeric(cPageNo) Then cPageNo = 1 cPageNo = Clng(cPageNo) End If If cPageNo<=0 Then cPageNo=1 End If If cPageNo>NoteRs.PageCount Then cPageNo=NoteRs.PageCount NoteRs.AbsolutePage=cPageNo End IF %> <% FOR int_Start=1 TO int_RPP %> <%if NoteRs("User")<>"游客" then%> <%else%> <%end if%> <% NoteRs.MoveNext if NoteRs.eof or NoteRs.bof then exit for NEXT %> <% Response.Write("") else %>
状态
贴子标题
作 者
回 复
人 气
最后更新
<% if NoteRs("State")="1" then Response.write("") elseif NoteRs("IsAdmin")="1" then Response.write("") elseif NoteRs("IsTop")="1" then Response.write("") else Response.write("") end if %>
,'<%=ClassRs("ClassName")%>','<%=ClassRs("ClassID")%>')"><%=left(NoteRs("Topic"),30)%>
" target="_blank"><%=NoteRs("User")%>
<%=NoteRs("User")%>
<%=NoteRs("Answer")%>
<%=NoteRs("Hit")%>
<%=NoteRS("LastUpdateDate")%>|<%=NoteRS("LastUpdateUser")%>
"&fPageCount(NoteRs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo) &"
<% response.Write("
没有帖
") END IF Set NoteRs=nothing end if end if Set Conn=nothing %>

本站首页 | 本站服务 | 关于本站 | 反馈留言 | 法律咨询 | 来访路线

本站系公益网站,所载文章,仅供学习、研究以及为网友提供参考。本站文章版权归该文章原作者所有,不代表本站观点。
Copyright 2006-2008 www.cslawyer.com.cn All Rights Reserved 长沙楚盛律师网版权所有 湘ICP备 号
文钰律师手机:13507319434 业务联系邮箱: wen9434@126.com