<% function nohtml(str)
on error resume next
str=Replace(str," ", "")
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
Function randomStr(intLength)
Dim strSeed, seedLength, pos, Str, i
strSeed = "abcdefghijklmnopqrstuvwxyz1234567890"
seedLength = Len(strSeed)
Str = ""
Randomize
For i = 1 To intLength
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)
Next
randomStr = Str
End Function %>
<%
xwlb_id = request.querystring("xwlb_id")
%>
<%
Set rs = server.CreateObject("adodb.recordset")
if(xwlb_id="") then
rs.Open "select * from [xw] order by Cdate(shijian) desc,id desc", cn, 1, 3
else
rs.Open "select * from [xw] where xwlb_id=" & xwlb_id & " order by Cdate(shijian) desc,id desc", cn, 1, 3
end if
Page = request.querystring("page")
PageSize = request.querystring("PageSize")
If IsEmpty(Page) Or (Not IsNumeric(Page)) Then
Page = 1
Else
Page = CInt(Page)
End If
If Page > rs.PageCount Then
if rs.recordcount<>0 then
rs.AbsolutePage = rs.PageCount
end if
ElseIf Page <= 0 Then
rs.AbsolutePage = 1
Else
rs.AbsolutePage = Page
End If
if(rs.PageCount=0) then
PageCount=1
else
PageCount=rs.PageCount
end if
for i=1 to rs.PageSize
if rs.EOF then
Exit For
end if
if len(rs("xwbt"))>20 then
xwbt=left(rs("xwbt"),20)&"..."
else
xwbt= rs("xwbt")
end if%>