<% Option Explicit %>
<%
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + UserDBConnectStr + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
Dim strpage,i
strpage=request.querystring("page")
if len(strpage)=0 then
strpage="1"
end if
Dim RsFobj,RsFSQL
Set RsFobj = Server.CreateObject(G_FS_RS)
Dim Position
If Request("BSType")<> "" then
Position = " and Position Like '" & Replace(Request.Form("BSType"),"'","") & "'"
Else
Position = ""
End If
Dim Keywords
If Request("Keyword")<> "" then
Keywords = " and Introduction Like '%" & Replace(Request.Form("Keyword"),"'","") & "%'"
Else
Keywords = ""
End If
Dim Province
If Request("Province")<> "" then
Province = " and Province Like '%" & Replace(Request.Form("Province"),"'","") & "%'"
Else
Province = ""
End If
RsFSQL = "Select * From Luson_Hunt where Types=3 and Ispass=1 "& Position & Keywords & Province & " Order by LastEdTime Desc"
RsFobj.Open RsFSQL,UserConn,1,1
%>
供求信息
<%
If Not RsFobj.eof then
Dim select_count,select_pagecount
RsFobj.pagesize=6
RsFobj.absolutepage=cint(strpage)
select_count=RsFobj.recordcount
select_pagecount=RsFobj.pagecount
for i=1 to RsFobj.pagesize
if RsFobj.eof then
exit for
end if
%>
<% If RsFobj("Supplyhouse")=1 then
Response.Write("供应/转让")
Else
Response.Write("需求信息")
End If %>
<%
response.write" 共"& select_pagecount &"页" & select_count &"条记录，本页是第"& strpage &"页。"
if int(strpage)>1 then
Response.Write" 第一页 "
Response.Write" 上一页 "
end if
if int(strpage)下一页"
Response.Write" 最后一页 "
end if
Response.Write" "
%>
