<%
'系统信息函数
Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF
    Set xTestObj = Nothing
End Function
'贴子分页函数
Function postpage(PageCount,htmfilename,page,ipagesize)
   Response.Write"<div align=right>当前是第<font color=#FF0000>"&page&"</font>页/共"&pagecount&"页 "&ipagesize&"条/页" 
   Response.Write"&nbsp;<a href=../../html/"&htmfilename&".htm>首页</a>&nbsp;" 
        if page>1 then
		  if page=2 then
		  Response.Write"<a href=../../html/"&htmfilename&".htm>上一页</a>&nbsp;"
		  else
          Response.Write"<a href=../../html/"&htmfilename&"_"&page-1&".htm>上一页</a>&nbsp;" 
          end if
        else
        Response.Write "上一页&nbsp;" 
        end if
        if page<pagecount then
        Response.Write "<a href=../../html/"&htmfilename&"_"&page+1&".htm>下一页</a>&nbsp;" 
        else
        Response.Write "下一页&nbsp;" 
        end if
        if page<pagecount then
        Response.Write "<a href=../../html/"&htmfilename&"_"&pagecount&".htm>尾页</a>"
        else
        Response.Write "尾页" 
        end if
   Response.Write "&nbsp;"
   Response.Write "</div>"
End Function
%>
