<% Dim DeptId,Num,cHtml Dim TableTemplate,RowTemplate,RowsHtml,RowHtml,Dept Dim Sql,Arr,I DeptId = PubFun.CheckNum(PubFun.RequestURI("DeptId")) Num = PubFun.CheckNum(PubFun.RequestURI("Num")) cHtml = PubFun.RequestURI("t") If Isnull(DeptId) Then DeptId = 0 If Isnull(Num) Then Num = 10 If Num > 50 Then Num = 10 ''读取纪录不可能大于50条 Sql = "Select Top " & Num & " Id,Title,OfficeId,AskTime,Flag From AskOnline Where CompanyId = "&CompanyId&"" If DeptId <> 0 Then Sql = Sql & " And DiseaseID=" & DeptId Sql = Sql & " Order By Id Desc" Arr = Data.ToArr(Sql,False) RowTemplate = PubFun.GetTags(cHtml,"","") RowsHtml = "" For I = LBound(Arr,2) To UBound(Arr,2) RowHtml = "

"&PubFun.FormatMyDate(Arr(3,I),"{m}-{d}")&""&PubFun.Cutstr(Replace(Arr(1,I),"[Wap]",""),15,0)&"

" RowsHtml = RowsHtml & RowHtml Next 'cHtml = PubFun.ReplaceTags(cHtml,"","",RowsHtml) cHtml = PubFun.ReplaceTags(cHtml,"","","" & RowsHtml & "") Out(EncodeURIComponent(cHtml)) Call CloseObj() %>