[原创]论坛增加“精华帖”盖章功能！

所在位置：论坛首页 -> ┈┋BBSGood专区┋┈ -> 『皮肤插件区』 -> [原创]论坛增加“精华帖”盖章功能！

标题:[原创]论坛增加“精华帖”盖章功能！

作者:jhj1128 发表于 2007-11-7 19:00:12

1、红色部分为添加的。2个文件共8处！
2、演示：http://bbs.czfcw.com/2007-10/31/2027372285004.html

PostListFun.asp 文件

'第1段
Dim IsRw,PostYxDate,PostLxFs,IsBestLw,IsPostMoney,LwID,CommPrice
Dim IsBest

'第2段
sql="select top 1 ID,BoardID,Subject,text,FileName,PostUser,PostTime,RePostUser,Hits,IP,BuyPostType,BuyNum,BuyExplanation,BuyUser,Pollzt,CommTrue,CommName,CommPrice,CommQuality,CommDress,PicDress,Transport,Postage_mail,Postage_express,RePostNum,IsRw,PostYxDate,PostLxFs,IsBest,IsBestLw,IsPostMoney,postsh from LxTel_Topic where FileName='"&FileName&"' "

'第3段
sql="select top 1 ID,BoardID,Subject,text,FileName,PostUser,PostTime,RePostUser,Hits,IP,BuyPostType,BuyNum,BuyExplanation,BuyUser,Pollzt,CommTrue,CommName,CommPrice,CommQuality,CommDress,PicDress,Transport,Postage_mail,Postage_express,RePostNum,IsRw,PostYxDate,PostLxFs,IsBest,IsBestLw,IsPostMoney,postsh from LxTel_Topic where BoardID="&BoardID&" and ID="&PostID&" "

'第4段
IsPostMoney=rs("IsPostMoney")
LwID=rs("ID")
CommPrice=rs("CommPrice")
IsBest=rs("IsBest") '是否精华帖子

'第5段
    Response.Write "<div style=""position:relative;"" >"
'是否精华帖子
If IsBest=true then Response.Write "<div id=""jinghua"" style="" position: absolute; left: 300px; TOP: 300px;""><img border=""0"" src=""images/jinghua.gif"" width=""153"" height=""120"" border=""0"" alt=""精华帖"" /></div>"
    Response.Write "<table width="""&Application(BBSInfo&"MB")(1,0)&""" align=""center"" border=""1"" class=""table0"" style=""border-collapse: collapse""><tr><td height=""27""> <img src=""images/sys/nav.gif""> <a href=""index.asp"">论坛首页</a>"&DhNl&" → "&TitleName&"</td></tr></table>"
    Response.Write "</div>"

CreateHtml.asp文件

'第1段
Private Function CreateHtmlPost(BoardID,FileName,PostID,Page,IsCreateHtml) '生成html帖子风格的函数
    Dim PageNum,i,j,RePostUser,Title,UserInfo,userinfoi,userinfoj,UserDJName,QmUBBstring,picurl,text,CommTrue,ip,MobImg,TransportPostType,TitleName
    Dim HtmlNl,UserQx,RegTime,ReNL,FPage,PostBm,AllPostCode,poststr,userimages,RepostNum
    Dim IsBest '精华帖子

'第2段
sql="select top 1 ID,BoardID,Subject,text,FileName,PostUser,PostTime,RePostUser,Hits,IP,BuyPostType,BuyNum,BuyExplanation,BuyUser,Pollzt,CommTrue,CommName,CommPrice,CommQuality,CommDress,PicDress,Transport,Postage_mail,Postage_express,RePostNum,IsBest from LxTel_Topic where BoardID="&BoardID&" and FileName='"&FileName&"' "

'第3段
        sql="select top 1 ID,BoardID,Subject,text,FileName,PostUser,PostTime,RePostUser,Hits,IP,BuyPostType,BuyNum,BuyExplanation,BuyUser,Pollzt,CommTrue,CommName,CommPrice,CommQuality,CommDress,PicDress,Transport,Postage_mail,Postage_express,RePostNum,IsBest from LxTel_Topic where BoardID="&BoardID&" and ID="&PostID&" "

'第4段
    TitleName=RemoveHTML(rs("subject"))
    RePostNum=rs("RePostNum")
IsBest=rs("IsBest") '是否精华帖子

'第5段
        '导航条
        AllPostCode=AllPostCode+ "<div style=""position:relative;"" >"
        '是否精华帖子
        If IsBest=true then AllPostCode=AllPostCode+ "<div id=""jinghua"" style="" position: absolute; left: 300px; TOP: 300px;""><img border=""0"" src=""/images/jinghua.gif"" width=""153"" height=""120"" border=""0"" alt=""精华帖"" /></div>"
        AllPostCode=AllPostCode+ "<table width="""&Application(BBSInfo&"MB")(1,0)&""" align=""center"" class=""dhstr""><tr><td> <img src="""&Application(BBSInfo&"sysinfo")(5,0)&"/images/sys/nav.gif""> 所在位置：<a href="""&Application(BBSInfo&"sysinfo")(5,0)&"/index.asp"">论坛首页</a>"&DhNl&" -> "&TitleName&"</td></tr></table>"
        AllPostCode=AllPostCode+ "</div>"