百度友情链接：.hygsb.com).End : End If'取文章列表set rs = server.createobject("adodb.recordset")rssql = "select id,username,title,addtime,retime,rename,recount,hits,boardid,TitleColor,titleBold,istop,recount,isGood,ischeck,IsAttach from "&bbstable&" where "&ischeckSqlStr&" "&boardidSqlStr & GoodSqlStr &" order by "&orderbySqlStr&" retime desc,id desc"rs.open rssql,conn,1,1,&h0001SQLQueryNums=SQLQueryNums+1'根据分页参数获取当前页面纪录rs.absoluteposition=rs.absoluteposition+((abs(CurPage)-1)*Sys_List_Num)'显示文章标题列表If IsAdmin>0 Then touhtml= ""shtml=getTemplate("ddp_tie_top")thtml=getTemplate("ddp_tie_list")touhtml=touhtml & ""& vbCrLfhtml_tielist=html_tielist & touhtml & replace(shtml,"id","")if rs.eof or rs.bof ThenElse'文章标题循环开始for i = 0 to Sys_List_Num-1if rs.eof then exit Forpre_title=""title=rs("title")if Rs("TitleColor")"&title&""if CInt(Rs("titleBold"))=1 Then title="" & title & ""If rs("ischeck")=0 Then title= "[未审核]"&title title=""& title &""If BoardID=0 Or GetSonSqlStr["&GetBoardName(rs("boardid"))&"] "&title
titlepic="icoz_comm.gif"
if Rs("isTop")=1 Then titlepic="icoz_top.gif"
if Rs("isTop")=2 Then titlepic="icoz_top.gif"
if Rs("isGood")=1 Then titlepic="isgood.gif"
if Rs("IsAttach")=1 Then title=title&" "
if Rs("IsAttach")=2 Then title=title&" "
'帖子分页
if CInt(Rs("recount"))>Sys_Show_Num then
rep =" "& _
GetRePageNo("show.asp?id="&Rs("id")&isextra&"&CurPage=",CInt(Rs("recount")),Sys_Show_Num,false) &""
else
rep = ""
end If
'开始匹配循环标签
username=DropFuckWords(LCase(Rs("username")))
username2=LCase(Rs("username"))
If ubound(split(username,"."))"" And Sys_isuserinfo=0) Or Sys_isuserinfo=1) Then
username = ""& username &""
else
if Sys_isShowIpName>0 And instr(username,".*")>0 then
n_name = Replace(username,"*","1")
username = ""&username&""
end if
End If
If IsNull(Rs("rename")) Or Rs("rename")="" Then
rename="暂无"
Else
rename=DropFuckWords(Trim(LCase(Rs("rename"))))
rename2=LCase(Trim(Rs("rename")))
If ubound(split(rename2,"."))"" And Sys_isuserinfo=0) Or Sys_isuserinfo=1) Then
rename=""&rename&""
else
if Sys_isShowIpName>0 and instr(rename2,"*")>0 then
n_rename = Replace(rename,"*","1")
rename = ""&rename&""
end if
End If
End If
If IsAdmin>0 And Rs("isTop")=0 Then
tie_folder="