<%@ Language=VBScript %> <% option explicit response.buffer = true '********************************************************************************************** '*编码:许泽辉编写 '*日期:2005-06-11 '*更新记录: '* 创建此代码 2005-06-11 许泽辉编写 '* 修改代码支持MsSQL 2010-08-11 陈泽军 '*用途：分页浏览客户信息的页面目录 '********************************************************************************************** %> <% dim IP IP=request.servervariables("REMOTE_ADDR") CheckIP IP if IP<>"" and (Session(mSession3)="" or session(mSession2)<2) then response.redirect "/Default.asp" response.end end if %> <% on error resume next Dim vClassName,vlocationUrl,vClassChangTitle vClassName=Trim(Request("ClassName")) If vClassName="" Then vClassName="学术园地" End If vClassChangTitle=Trim(Request("ClassChangTitle")) If vClassChangTitle="" Then vClassChangTitle=vClassName End If vlocationUrl=Trim(Request("LocationUrl")) If vlocationUrl="" Then vlocationUrl="JsOpen" End If dim intPage,strQuery,strQueryTemp,vOrderString,vOrderSelectedItem vOrderString=Trim(Request("OrderStr")) If vOrderString="" Then vOrderString=" Order by CompanyName,Province" Else If vOrderString="CompanyName" or vOrderString="Province,City" or vOrderString="CompanyName,Province" Then Else Response.Write("") Response.Write("关闭") Response.End End If vOrderString=" Order by "&vOrderString End If If vOrderString=" Order by Province,City" Then vOrderSelectedItem="ProvinceOrder" Else vOrderSelectedItem="CompanyOrder" End If if request("Search")="yes" then InitQuery intPage=1 '默认从第一页显示 else If Request("StrQuery")<>"" Then strQueryTemp=Request("StrQuery") strQuery=replace(replace(strQueryTemp,"A%n%d","And"),"""","'")&vOrderString if request("Page")="" then intPage=1 else intPage=request("Page") end if Else strQuery=vOrderString if request("Page")="" then intPage=1 else intPage=request("Page") end if Session("select_PagesClass")="" Session("WordKey_PagesClass")="" Session("BigClassName_PagesClass")="" Session("SmallClassName_PagesClass")="" Session("ProductsItem_PagesClass")="" End If end if response.write gShowPageByNo(intPage,strQuery,vSiteName) if err then response.write "Show Page Error" response.end end if function gShowPageByNo(vintPage,vstrQuery,vSiteName) on error resume next dim vTemplatePath vTemplatePath=mGetTemplePath(vSiteName) LoadTemplate server.mappath(vTemplatePath) & "/Default.htm", "All" SetVar "SiteName",vSiteName SetVar "TemplatePath",vTemplatePath mShowHeader vSiteName mShowNavigationBottom vSiteName,"yes" '显示当前位置（位于底部） LoadTemplate server.mappath(vTemplatePath) & "/PagesClass.htm","Main" LoadTemplate server.mappath(vTemplatePath) & "/Left_Body.htm","Left_Body" Show_MenuClass_Child vSiteName,Session("MenuName") If vClassName="用户名单" Then ShowCustomer_Search vstrQuery'显示用户查询的页面 ShowCustomer vstrQuery,vintPage,vSiteName Else SetVar "Search_Js","" SetVar "Left_Body_Search","" ShowPageByNo vintPage,vSiteName End If mShowHot_Link vSiteName SetVar "Left_Body_Images","" Parse "Left_Body",false Parse "Main",false mShowFooter vSiteName Parse "All",false gShowPageByNo=PrintVar("All") UnloadTemplate if err then response.write "Load Template Error0" response.end end if end function '根据页面号，显示页面 function ShowPageByNo(CurrentPage,vSiteName) on error resume next '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ const MaxPerPage=18 SetVar "Class2_Title","" SetVar "Class_Title",vMenuName dim TotalPut,TotalPages '总记录数，最大页数 dim NextPage,PrevPage dim j dim ObjPage_Permit_View,vLink_Product_List set ObjPage_Permit_View=New ClsPage_Permit_View With ObjPage_Permit_View .GetAllByAdvQuery "SELECT PermitID,PageId,Title FROM GB_Page_Permit_View Where PageName='"&vClassName&"' and Enabled > 0 Order by Enabled Desc" 'response.Write(vstrQuery) if Not .Eof Then SetVar "PageName",vClassName TotalPut=.recordcount TotalPages=TotalPut\MaxPerPage if TotalPut mod MaxPerPage>0 then TotalPages=TotalPages+1 '根据 CurrentPage 和 TotalPages 算出 NextPage 和 PrevPage Dim NavigationTemp if CurrentPage=1 or CurrentPage=0 then PrevPage=1 NavigationTemp="第一页 " NavigationTemp=NavigationTemp&"上一页 " else PrevPage=CurrentPage-1 NavigationTemp="第一页 " NavigationTemp=NavigationTemp&"上一页 " end if NextPage=CurrentPage+1 if NextPage>TotalPages then NavigationTemp=NavigationTemp&"下一页 " NavigationTemp=NavigationTemp&"最末页" Else NavigationTemp=NavigationTemp&"下一页 " NavigationTemp=NavigationTemp&"最末页" end if SetVar "TotalPut",TotalPut SetVar "TotalPages",TotalPages SetVar "CurrentPage",CurrentPage SetVar "NavigationTemp",NavigationTemp Parse "NaviTop",false Parse "Navigator",false if (CurrentPage-1)*MaxPerPage1 then .move (CurrentPage-1)*MaxPerPage end if j=0 Dim k,vClassTitleTemp k=1 vClassTitleTemp="" Do While Not .Eof 'response.Write("K"&K&"
") If ((k-1) mod 2)=0 Then vClassTitleTemp=vClassTitleTemp&"" 'response.Write(K&"tr
") End If If vlocationUrl="JsOpen" Then If instr(GbLimitTitle(gCheckNullStr(.Title),20),"...")>0 Then vClassTitleTemp=vClassTitleTemp&"    "&GbLimitTitle(gCheckNullStr(.Title),20)&"" Else vClassTitleTemp=vClassTitleTemp&"    "&gCheckNullStr(.Title)&"" End If ElseIf vlocationUrl="ShowCurveImg.asp" Then If instr(GbLimitTitle(gCheckNullStr(.Title),20),"...")>0 Then vClassTitleTemp=vClassTitleTemp&"    "&GbLimitTitle(gCheckNullStr(.Title),20)&"" Else vClassTitleTemp=vClassTitleTemp&"    "&GbLimitTitle(gCheckNullStr(.Title),20)&"" End If Else If instr(GbLimitTitle(gCheckNullStr(.Title),20),"...")>0 Then vClassTitleTemp=vClassTitleTemp&"    "&GbLimitTitle(gCheckNullStr(.Title),20)&"" Else vClassTitleTemp=vClassTitleTemp&"    "&GbLimitTitle(gCheckNullStr(.Title),20)&"" End If End If j=j+1 if j>=MaxPerPage then exit do If (k mod 2)=0 Then vClassTitleTemp=vClassTitleTemp&"" 'response.Write(K&"/tr
") End If .MoveNext K=K+1 Loop If (j") vClassTitleTemp=vClassTitleTemp&" " End If SetVar "Title_List_Content",vClassTitleTemp Parse "Title_List",false Parse "Class_Body",false SetVar "NotFound","" Else SetVar "PageTurnBody","" SetVar "Class_Body","" End If End With set ObjPage_Permit_View=nothing end function Function ShowCustomer_Search(vQuery) '\\\\\\\\\\\\\\\\\\\\\\\\\\\显示省的选项\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Dim vCompanyName_ItemValue '定义查询的类别 If Session("select_PagesClass")="CompanyName" Then vCompanyName_ItemValue="公司名称所在省市所购产品" ElseIf Session("select_PagesClass")="Province" Then vCompanyName_ItemValue="公司名称所在省市所购产品" ElseIf Session("select_PagesClass")="ProductName" Then vCompanyName_ItemValue="公司名称所在省市所购产品" ElseIf Session("select_PagesClass")="" Then vCompanyName_ItemValue="公司名称所在省市所购产品" End IF SetVar "CompanyName_ItemValue",vCompanyName_ItemValue If Session("WordKey_PagesClass")="" Then SetVar "CompanyName_WordKey","查询关键字…" Else SetVar "CompanyName_WordKey",Session("WordKey_PagesClass") End IF dim vTemplatePath vTemplatePath=mGetTemplePath(vSiteName) LoadTemplate server.mappath(vTemplatePath) & "/Customer_Search.htm", "Left_Body_Search" SetVar "ActionFileName","?Search=yes&ClassName="&Server.URLEncode(vClassName)&"&MenuName="&Server.URLEncode(Request("MenuName"))&"&SiteName="&Server.URLEncode(vSiteName)&"" SetVar "Action_OrderPath","ClassName="&Server.URLEncode(vClassName)&"&StrQuery="&Server.URLEncode(strQueryTemp)&"&ClassChangTitle="&vClassChangTitle&"&MenuName="&Server.URLEncode(Request("MenuName"))&"" SetVar vOrderSelectedItem,"Selected" dim ObjBase_Sheng,vProvince set ObjBase_Sheng=New clsBase_Sheng With ObjBase_Sheng .GetAll if Not .eof then While Not .eof If .Sheng=Session("BigClassName_PagesClass") Then vProvince=vProvince&""&.Sheng&"" Else vProvince=vProvince&""&.Sheng&"" End If .MoveNext Wend End If End With set ObjBase_Sheng=nothing SetVar "ProvinceItemValue",vProvince dim ObjBase_smallclass,shi_count,vProvince_shi set ObjBase_smallclass=new clsBase_smallclass With ObjBase_smallclass .GetAll if Not .eof then Response.Write("")&vbcrlf End If End With set ObjBase_smallclass=nothing SetVar "Province_CityOption",vProvince_shi '\\\\\\\\\\\\\\\\\\\\\\\\显示产品的选项\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ dim ObjPage_Permit_View,vLink_Product_List set ObjPage_Permit_View=New ClsPage_Permit_View With ObjPage_Permit_View If IsSqlDataBase = 1 Then .GetAllByAdvQuery "SELECT Title FROM GB_Page_Permit_View Where cast(Comment as varchar)<>'' and cast(Comment as varchar)<>'###"&mDownloadCenterCaption&"###' and Enabled > 0 Order by Enabled" Else .GetAllByAdvQuery "SELECT Title FROM GB_Page_Permit_View Where Comment<>'' and Comment<>'###"&mDownloadCenterCaption&"###' and Enabled > 0 Order by Enabled" End If if .eof then vLink_Product_List="暂无产品可选" else While Not .eof If .Title=Session("ProductsItem_PagesClass") Then vLink_Product_List=vLink_Product_List&""&.Title&"" Else vLink_Product_List=vLink_Product_List&""&.Title&"" End If .MoveNext Wend End If End With set ObjPage_Permit_View=nothing SetVar "ProductsItemValue",vLink_Product_List Parse "Search_Js",false Parse "Left_Body_Search",false '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ End Function function ShowCustomer(vQuery,CurrentPage,vSiteName) on error resume next '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ const MaxPerPage=30 if vClassChangTitle="用户名单" then SetVar "Class2_Title","" else SetVar "Class1_Title","" end if SetVar "Class_Title",vClassChangTitle dim TotalPut,TotalPages '总记录数，最大页数 dim NextPage,PrevPage dim j dim objBase_Customer set objBase_Customer=new clsBase_Customer '查询构建,此处还可以放一些固定的查询条件和排序条件等 With objBase_Customer .GetAllByQuery vQuery 'response.Write(vstrQuery) if Not .Eof Then if CurrentPage=1 then SetVar "PageName",vClassName else SetVar "PageName",vClassName & "第" & GetDXPage(CurrentPage) & "页" end if TotalPut=.recordcount TotalPages=TotalPut\MaxPerPage if TotalPut mod MaxPerPage>0 then TotalPages=TotalPages+1 '根据 CurrentPage 和 TotalPages 算出 NextPage 和 PrevPage Dim NavigationTemp if CurrentPage=1 or CurrentPage=0 then PrevPage=1 NavigationTemp="第一页 " NavigationTemp=NavigationTemp&"上一页 " else PrevPage=CurrentPage-1 NavigationTemp="第一页 " NavigationTemp=NavigationTemp&"上一页 " end if NextPage=CurrentPage+1 if NextPage>TotalPages then NavigationTemp=NavigationTemp&"下一页 " NavigationTemp=NavigationTemp&"最末页" Else NavigationTemp=NavigationTemp&"下一页 " NavigationTemp=NavigationTemp&"最末页" end if SetVar "TotalPut",TotalPut SetVar "TotalPages",TotalPages SetVar "CurrentPage",CurrentPage SetVar "NavigationTemp",NavigationTemp Parse "NaviTop",false Parse "Navigator",false if (CurrentPage-1)*MaxPerPage1 then .move (CurrentPage-1)*MaxPerPage end if j=0 Dim k,vCustomerTemp k=1 vCustomerTemp="" Do While Not .Eof 'response.Write("K"&K&"
") If ((k-1) mod 2)=0 Then vCustomerTemp=vCustomerTemp&"" 'response.Write(K&"tr
") End If If vOrderSelectedItem="ProvinceOrder" Then If .CompanyWeb="" or .CompanyWeb="http://" Then vCustomerTemp=vCustomerTemp&"    ["&.Province&.City&"]  "&.CompanyName&"" Else vCustomerTemp=vCustomerTemp&"    ["&.Province&.City&"]  "&.CompanyName&"" End If Else If .CompanyWeb="" or .CompanyWeb="http://" Then vCustomerTemp=vCustomerTemp&"    "&.CompanyName&"" Else vCustomerTemp=vCustomerTemp&"    "&.CompanyName&"" End If End If If (k mod 2)=0 Then vCustomerTemp=vCustomerTemp&"" 'response.Write(K&"/tr
") End If j=j+1 if j>=MaxPerPage then exit do .MoveNext K=K+1 Loop If (k mod 2)=0 Then 'response.Write(K&"td/td/tr
") vCustomerTemp=vCustomerTemp&" " End If SetVar "Title_List_Content",vCustomerTemp Parse "Title_List",false Parse "Class_Body",false SetVar "NotFound","" Else SetVar "PageTurnBody","" SetVar "Class_Body","" End If End With set objBase_Customer=nothing end function '初始查询字符串 Sub InitQuery '||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| Dim vSelectItem,vWordKey,vBigClassName,vSmallClassName,vProductsItem vSelectItem=request.Form("select") vWordKey=request.Form("WordKey") vBigClassName=request.Form("BigClassName") vSmallClassName=request.Form("SmallClassName") vProductsItem=request.Form("ProductsItem") strQueryTemp="" If vSelectItem="CompanyName" and vWordKey<>"" and vWordKey<>"查询关键字…" Then strQueryTemp=" A%n%d CompanyName like ""%"&vWordKey&"%""" Session("select_PagesClass")="CompanyName" Session("WordKey_PagesClass")=vWordKey vClassChangTitle="公司名称含“"&vWordKey&"”的用户名单" Else Session("WordKey_PagesClass")="" End If If vSelectItem="Province" and vBigClassName<>"" and vSmallClassName<>"" Then strQueryTemp=" A%n%d Province like ""%"&vBigClassName&"%"" A%n%d City like ""%"&vSmallClassName&"%""" vOrderSelectedItem="ProvinceOrder" '如果是按所在省市查询，则显示用户所在的省 Session("select_PagesClass")="Province" Session("BigClassName_PagesClass")=vBigClassName Session("SmallClassName_PagesClass")=vSmallClassName vClassChangTitle="位于"&vBigClassName&vSmallClassName&"的用户名单" Else Session("BigClassName_PagesClass")="" Session("SmallClassName_PagesClass")="" End If If vSelectItem="Province" and vBigClassName<>"" and vSmallClassName="" Then strQueryTemp=" A%n%d Province like ""%"&vBigClassName&"%""" vOrderSelectedItem="ProvinceOrder" '如果是按所在省市查询，则显示用户所在的省 Session("select_PagesClass")="Province" Session("BigClassName_PagesClass")=vBigClassName vClassChangTitle="位于"&vBigClassName&"的用户名单" End If If vSelectItem="ProductName" and vProductsItem<>"" Then strQueryTemp=" A%n%d ProductName like ""%"&vProductsItem&"%""" Session("select_PagesClass")="ProductName" Session("ProductsItem_PagesClass")=vProductsItem vClassChangTitle=vProductsItem&"用户名单" Else Session("ProductsItem_PagesClass")="" End IF strQuery=replace(replace(strQueryTemp,"A%n%d","And"),"""","'")&vOrderString '||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| end Sub function GetDXPage(Num) dim i,j,k i=Num\100 j=(Num-i*100)\10 k=Num mod 10 if i>0 then GetDXPage=replace(replace(replace(replace(replace(replace(replace(replace(replace(CStr(i),"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七"),"8","八"),"9","九")&"百" end if if j>0 then if GetDXPage="" then GetDXPage=GetDXPage&replace(replace(replace(replace(replace(replace(replace(replace(replace(CStr(j),"1",""),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七"),"8","八"),"9","九")&"十" else GetDXPage=GetDXPage&replace(replace(replace(replace(replace(replace(replace(replace(replace(CStr(j),"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七"),"8","八"),"9","九")&"十" end if end if if k>0 then GetDXPage=GetDXPage&replace(replace(replace(replace(replace(replace(replace(replace(replace(CStr(k),"1","一"),"2","二"),"3","三"),"4","四"),"5","五"),"6","六"),"7","七"),"8","八"),"9","九") end if end function %>