📄 bbs_list.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Inc/Design.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
Dim Class_Content,Bbs_Content,User_Content,Groud_Content,strList,Groud_Pic
ii=0
Table_List="Tx_Board"
FileName="bbs_class"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_Bbs where Bbs_Id=" & Id & " and Bbs_Flag=1"
Rs.open Sql,Conn,1,3
Rs("Bbs_Count")=Rs("Bbs_Count")+1
Rs.UpDate
IF Rs.RecordCount=0 THEN Call Page_check(2,0)
Bbs_Content=Rs("Bbs_Id") & "‖" & Rs("Bbs_Title") & "‖" & Rs("Bbs_Board") & "‖" & Rs("Bbs_Count") & "‖" & Rs("Bbs_Add")
Bbs_Content=split(Bbs_Content,"‖")
Rs.close
Set Rs=Nothing
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from " & Table_List & " where Class_Id=" & Bbs_Content(2) & " and Class_Flag=1"
Rs.open Sql,Conn,1,1
Class_Content=Rs("Class_Id") & "‖" & Rs("Class_Name") & "‖" & Rs("Class_Content") & "‖" & Rs("Class_UserGroud")
Class_Content=split(Class_Content,"‖")
Rs.close
Set Rs=Nothing
Call bbs_FlagID(Class_Content(3))
Page_Name="论坛 -- " & Bbs_Content(1) & " -- " & Web_Const(0)
Class_Name="<A HREF='bbs_index.asp'>论 坛</A> > "
Id=Bbs_Content(2)
Class_Id=Id
Call Class_Namex()
Call Page_Head()
Call Page_iHead()
Call Page_nHead()
%>
<TABLE WIDTH="770" BORDER="0" ALIGN="center" CEllPADDING="0" CELLSPACING="0">
<TR>
<TD VALIGN="top" CLASS="TABLE-Main">
<DIV CLASS="bbs-top1"><img SRC="Skins/Blue/Tx_Ar5.gif"> <%=Class_Content(2)%></DIV>
<DIV CLASS="bbs-indextalbe3"></DIV>
<DIV CLASS="bbs-classadd"><SPAN CLASS="bbs-classtable4"><A HREF="bbs_add.asp?Id=<%=Class_Content(0)%>" TITLE="发表一个新主题"><img SRC="Skins/Blue/bbs_add.gif" BORDER="0" ALIGN=absmiddle></A></SPAN><SPAN CLASS="bbs-classtable6"><%Call page_Search("bbs")%></SPAN></DIV>
<DIV CLASS="bbs-listtable4"><SPAN CLASS="bbs-listtable6">主题：<%=Bbs_Content(1)%></SPAN><SPAN CLASS="bbs-listtable5">您是本帖的第 <%=Bbs_Content(3)%> 个阅读者</SPAN></DIV>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="0" CLASS="table-bgx1">
<%
Dim ClassColor,CLaCol,User_bbs
Set Rs_Manage=server.createobject("adodb.recordset")
Sql="Select * from Tx_Bbs where Bbs_ClassId=" & Bbs_Content(0) & " and Bbs_Flag=1 order by Bbs_Date"
Rs_Manage.open Sql,Conn,1,1
Rs_Manage.PageSize = bbslistMax_Class
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
t=1
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
t=t+1
CLaCol="" & t/2 & ""
IF InStr(CLaCol,".")<>0 THEN
ClassColor="bbs-listtable2"
Else
ClassColor="bbs-listtable3"
End IF
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_User where User_Name='" & Rs_Manage("Bbs_Add") & "'"
Rs.open Sql,Conn,1,1
IF Rs.Recordcount<>0 THEN
User_Content=Rs("User_Id") & "‖" & Rs("User_Name") & "‖" & Rs("User_Picture") & "‖" & Rs("User_Group") & "‖" & Rs("User_UserSigns") & "‖" & Rs("User_UserWeb") & "‖" & Rs("User_Email") & "‖" & Rs("User_UserQq")
User_Content=split(User_Content,"‖")
Else
User_Content=""
End IF
Rs.close
Set Rs=Nothing
IF User_Content<>"" THEN
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_Groud where Groud_Id=" & User_Content(3)
Rs.open Sql,Conn,1,1
Groud_Content=Rs("Groud_Name")
Groud_Pic=Rs("Groud_Pic")
Rs.Close
Set Rs=Nothing
IF Groud_Content="" THEN Groud_Content=""
User_bbs=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Add='" & User_Content(1) & "'")(0)
strList = "<TR CLASS='" & ClassColor & "'><TD WIDTH=150 VALIGN='top'><DIV CLASS='bbs_listadd'>" & User_Content(1) & "</DIV><DIV CLASS='bbs-listPicture'><Img SRC='" & User_Content(2) & "'></DIV><DIV CLASS='bbs-listGroud'><IMG SRC=" & Groud_Pic & "><BR>" & Groud_Content & "<br>发帖：" & User_bbs & "</DIV></TD><TD VALIGN='top'><DIV CLASS='bbs-listcontent'><DIV CLASS='bbs-listtop'><SPAN STYLE='width: 80%;'><A HREF='" & User_Content(5) & "'><img src='Skins/Blue/Web.gif' ALT='主页：" & User_Content(5) & "' BORDER='0'></A> <A HREF='mailto:" & User_Content(6) & "'><img src='Skins/Blue/Email.gif' AlT='EMAIL：" & User_Content(6) & "' BORDER='0'></A> <img src='Skins/Blue/Qq.gif' ALT='QQ号码：" & User_Content(7) & "'> "
IF Loginuser_Flag(13)=1 THEN
strList = strList & "<img src='Skins/Blue/Ip.gif' ALT='IP地址：" & Rs_Manage("Bbs_Ip") & "'> <img src='Skins/Blue/Ress.gif' ALT='来自地区：" & Rs_Manage("Bbs_Ress") & "'>"
Else
strList = strList & "<img src='Skins/Blue/Ip.gif' ALT='IP地址：未知'> <img src='Skins/Blue/Ress.gif' ALT='来自地区：未知'>"
End IF
strList = strList & "</SPAN><SPAN STYLE='width: 20%;text-align: right;'>"
IF t-1=1 THEN
strList = strList & "楼 主"
Else
strList = strList & "第 <SPAN CLASS='TYPE-color2'>" & t-1 & "</SPAN> 楼"
End IF
strList = strList & "</SPAN></DIV>"
IF Rs_Manage("Bbs_Lock")=1 THEN
strList = strList & "<DIV CLASS='bbs-listlock'>此帖被管理员屏蔽</DIV>"
Else
strList = strList & "<DIV CLASS='bbs-listtitle'><img SRC='" & Rs_Manage("Bbs_Face") & "' ALIGN='absmiddle'> " & Rs_Manage("Bbs_Title") & "</DIV><DIV CLASS='bbs-listcontent1'>" & Rs_Manage("Bbs_Content") & "</DIV>"
End IF
IF Rs_Manage("Bbs_Signs")=1 THEN
strList = strList & "<img SRC='Skins/Blue/sigline.gif'><DIV STYLE='padding-bottom:5px;padding-left:13px;'>" & User_Content(4) & "</DIV>"
End IF
strList = strList & "<DIV CLASS='bbs-ostbottom1'><SPAN style='width: 40%;color: #333333;'><img SRC='Skins/Blue/Time.gif'> " & YearDami(Rs_Manage("Bbs_Date")) & "</SPAN><SPAN style='width: 60%;text-align: right;'>"
IF Loginuser_Flag(4)=1 And Rs_Manage("Bbs_Add")=Session("Loginuser") OR Loginuser_Flag(5)=1 THEN
strList = strList & "<A HREF='bbs_add.asp?Action=Edit&Id=" & Class_Content(0) & "&bId=" & Rs_Manage("Bbs_Id") & "' TITLE='重新编辑这个帖子'>编辑</A>"
Else
strList = strList & "编辑"
End IF
strList = strList & " | "
IF Session("Loginuser")<>"" THEN
strList = strList & "<A HREF='bbs_add.asp?Action=re&Id=" & Class_Content(0) & "&bId=" & Bbs_Content(0) & "' TITLE='回复这个帖子'>回复</A>"
Else
strList = strList & "回复"
End IF
strList = strList & " | "
IF Rs_Manage("Bbs_Id")=Rs_Manage("Bbs_ClassId") THEN
IF Loginuser_Flag(6)=1 THEN
strList = strList & "<A HREF='bbs_sadd.asp?Action=Top&Id=" & Bbs_Content(0) & "' "
IF Rs_Manage("Bbs_Top")=0 THEN
strList = strList & "TITLE='把这个主题设置成固顶帖子'>固顶"
Else
strList = strList & "TITLE='取消这个主题的固顶状态'>取消"
End IF
strList = strList & "</A>"
Else
strList = strList & "固顶"
End IF
strList = strList & " | "
End IF
IF Loginuser_Flag(7)=1 THEN
strList = strList & "<A HREF='bbs_sadd.asp?Action=Lock&Id=" & Rs_Manage("Bbs_Id") & "' "
IF Rs_Manage("Bbs_Lock")=0 THEN
strList = strList & "TITLE='屏蔽这个帖子'>屏蔽"
Else
strList = strList & "TITLE='解除这个帖子的屏蔽状态'>解除"
End IF
strList = strList & "</A>"
Else
strList = strList & "屏蔽"
End IF
strList = strList & " | "
IF Loginuser_Flag(8)=1 THEN
strList = strList & "<A HREF='bbs_sadd.asp?Action=Del&Id=" & Rs_Manage("Bbs_Id") & "' TITLE='删除这个帖子'>删除</A>"
Else
strList = strList & "删除"
End IF
strList = strList & "</SPAN></DIV></DIV></TD></TR>"
Response.Write strList
End IF
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
%>
</TABLE>
<%Call Page_Next()
IF Session("Loginuser")<>"" THEN
%>
<DIV CLASS="bbs-listtable4"><SPAN CLASS="bbs-listtable6">快速回复：<%=Bbs_Content(1)%></SPAN></DIV>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="0" CLASS="table-bgx1">
<Form NAME=Form method=post action="bbs_sadd.asp?Action=addsave&Id=<%=Class_Content(0)%>" onSubmit="return checkdata()">
<TR>
<TD WIDTH="150" CLASS="bbs-addface"><%Call bbs_Face()%></TD><TD CLASS="bbs-listtable3"><%Call bbs_Design(2)%></TD>
</TR>
<TR>
<TD ALIGN="center" VALIGN="top" CLASS="bbs-addface">签名:<INPUT NAME="B_Signs" TYPE="radio" VALUE="1" checked>显示<INPUT TYPE="radio" NAME="B_Signs" VALUE="0">不显示</TD><TD CLASS="bbs-addinm"><INPUT TYPE="image" SRC="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle" onClick="document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;"> <INPUT TYPE="image" SRC="Skins/Blue/cl.gif" NAME="Ok" ALIGN="absmiddle" onClick="vbscript:location.reload"><INPUT TYPE=hidden NAME=Content VALUE=""><INPUT TYPE=hidden NAME=PicUrl VALUE=""><INPUT NAME="B_ClassId" TYPE="hidden" VALUE="<%=Bbs_Content(0)%>"><INPUT NAME="B_re" TYPE="hidden" VALUE="re"></TD>
</TR>
</Form>
</TABLE>
<%End IF%>
</TD>
</TR>
</TABLE>
<%
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -