<%
'***********************
'描述：数据库连接类
'作者：HiddenShark
'日期：2006-3-28
'***********************
function chk_str(str)
tmpstr =trim(str)
tmpstr = replace(tmpstr,"'","'")
tmpstr = replace(tmpstr,"""",""")
tmpstr = replace(tmpstr," "," ")
tmpstr = replace(tmpstr,"<","<")
tmpstr = replace(tmpstr,">","&rt;")
tmpstr = replace(tmpstr,"&","&")
tmpstr = replace(tmpstr,chr(13)," ")
chk_str=tmpstr
end function
'***********************
'描述：数据库连接类
'作者：HiddenShark
'日期：2006-3-28
'***********************
function format(num,digit)
if len(num)"
Response.Write "
"
Response.Write "
共有"&totalnumber&"条信息 当前:"& CurrentPage &"/" &pagecount&"页"
Response.Write " "
'确定左右列表数量
if pagecount > PARTSIZE then
if currentpage*2 pagecount then
RightNo = pagecount - currentpage
LeftNo = partsize - rightno - 1
else
leftNo = int(partsize/2) -1
rightNo = leftNo + 1
end if
else
if currentpage*2 pagecount then
RightNo = pagecount - currentpage
LeftNo = pagecount - rightno - 1
else
leftNo = int(pagecount/2) -1
rightNo = leftNo + 1
end if
end if
'左列表
for i = 1 to LeftNo
response.write("[" & int(currentpage-(LeftNo-i)-1) & "]" & "-")
next
'当前页
response.write("[" & CurrentPage & "]")
'右列表
for i=1 to RightNo
response.write("-" & "[" & currentpage+i & "]")
next
Response.Write "
"
Response.Write "
"
If cint(CurrentPage)>1 Then
'Response.Write "【最前页】【上一页】"
Response.Write "|<<< "
End If
If cint(CurrentPage)下一页】【最后页】"
Response.Write ">>>|"
End If
response.write " 跳转到："
Response.Write "