FAQ - <% if C_Id=0 then response.write "All FAQ " else rssql="select C_ID,C_Name from FaqClass where C_ID="&C_Id set rs=oConn.execute(rssql) response.Write rs("C_Name") rs.close end if %>

<% If C_ID<>0 Then sSql="Select * From FaqData Where F_Class =" &C_Id&" and F_Check= 1 Order By F_ID Desc" else sSql="Select * From FaqData Where F_Check= 1 Order By F_ID Desc" End If oRs.Open sSql,oConn,1,1 Dim PicNum,MaxPerPage,totalPut,CurrentPage,TotalPages,i MaxPerPage=20 if not ors.eof then ors.MoveFirst end if ors.pagesize=MaxPerPage If trim(Request("Page"))<>"" then If IsNumeric(trim(Request("Page"))) = False Then GoError "page error。" End If CurrentPage= CLng(request("Page")) If CurrentPage> ors.PageCount then CurrentPage = ors.PageCount End If Else CurrentPage= 1 End If totalPut=ors.recordcount if CurrentPage<>1 then if (currentPage-1)*MaxPerPage

• /<%=oRs("F_id")%>.html" target=_blank title="Title：<%=oRs("F_Title")&vbcrlf%>"><%=oRs("F_Title")%>

<% oRs.MoveNext i=i+1 Loop %>

<% Response.Write "Total "&totalPut&" " k=currentPage if k<>1 then response.write " ["+"First] " response.write " ["+"Page Up] " else Response.Write "[First] [Page Up]" end if if k<>n then response.write " ["+"Page Down] " response.write " ["+"Last] " else Response.Write " [Page Down] [Last] " end if Response.Write "     "¤tpage&"/"&n&"       " %> <% else response.Write "

 

 

NO FAQ...

" end if oRs.close() %>