<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim rs__MMColParam,test2
if Request.Form("text")<>"" then
session("a1")=Request.Form("text")
end if
rs__MMColParam = session("a1")
%>
<%
On Error Resume Next
dim startime,endtime
startime=timer()
%>
<%
'**************
'分页导航栏函数
'输出wzpage值
'**************
Function pagination(pagecount)
Dim wzpage,wzpagecount,pagenum,boardid
boardid = Request.QueryString("board_id")
If boardid = 0 Then boardid = 1
If Len(Request.QueryString("page"))<>0 Then
wzpage = clng(Request.QueryString("page"))
Else
wzpage =1
End If
If wzpage <= 0 Then wzpage =1
pagenum = (wzpage \ 10)*10+1
If wzpage mod 10 = 0 Then pagenum = (wzpage \ 10)*10-9
If wzpage > 10 Then
Response.Write ("")
Response.Write ("9")
Response.Write ("7")
Response.Write ("")
End If
For pagenum = pagenum To pagenum + 9
If pagenum = wzpage Then
Response.Write ("")
Response.Write (" ["& pagenum &"] ")
Response.Write ("")
Else
Response.Write (" ")
Response.Write ("["& pagenum &"]")
Response.Write (" ")
End If
If pagenum >= pagecount Then Exit For
Next
If wzpage < (pagecount - (pagecount \ 10)) Then
Response.Write ("")
Response.Write ("8")
Response.Write (":")
Response.Write ("")
End If
End Function
%>
<%
dim rssql,getstring
getstring = clng(request.querystring("board_id"))
if getstring = 0 then getstring = 1
'******************************************
'取文章总数及每页重复显示条数，准备分页
'wzcount 文章总数
'wzrep 重复显示条数
'wzpage 分页参数id
'wzpagecount 总页数
'******************************************
dim wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
wzrep = 15
wzcount = conn.execute ("select count( DISTINCT fld_th) from dbo.view_pjmx ",0,1)(0)
wzpagecount = abs(int(-abs(wzcount/wzrep)))
wzpage = clng(request.querystring("page"))
if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
%>
中国重汽商务平台
