<% function ShowArticleListView(lbID,lmID,rowCount,fontLenth) dim lb_ID,lm_ID,strSql lb_ID=0 lm_ID=0 if lbID<>"" then lb_ID=CInt(lbID) if (lbID="" and lmID<>"") then lm_ID=CInt(lmID) if (lb_ID>0) then strSql="SELECT top "&CInt(rowCount)&" [id],[bt],[fbrq],[PicUrl],[file] FROM [T_XX] where lbid="&lb_ID&" ORDER BY [plsx],[fbrq] DESC,[id] DESC" else strSql="SELECT top "&CInt(rowCount)&" [id],[bt],[fbrq],[PicUrl],[file] FROM [T_XX] where lmid="&lm_ID&" ORDER BY [plsx],[fbrq] DESC,[id] DESC" end if set rsx=server.CreateObject("ADODB.RECORDSET") rsx.open strSql,conn,1,1 if Not rsx.Eof then response.Write "" while not rsx.Eof font_Lenth=fontLenth 'if LEN(rsx("PicUrl"))>4 then ' font_Lenth=font_Lenth-4 ' end if bt=cutStr(rsx("bt"),font_Lenth) response.Write "" rsx.moveNext wend response.Write "

" if trim(rsx("file"))<>"" then response.Write ""&bt&"" else response.Write ""&bt&"" end if if LEN(rsx("PicUrl"))>4 then response.Write " " end if fbrq=FormatdateTime(rsx("fbrq"),1) if datediff("d",cdate(rsx("fbrq")),now())<3 then response.Write "

"&fbrq&"" else response.Write "

"&fbrq end if response.Write "

" end if rsx.close() set rsx=nothing end function %>