生成展会分类

<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 dir="no" numid="no" %> <% Set rs=Server.CreateObject("adodb.recordSet") rs.Open ("select expo_type from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1 If rs.Eof Then Response.Write("
对不起！该模版不存在！ 关闭") Response.End() End If If Not rs.Eof Then pencat=rs("expo_type") rs.Close End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ If Request("page")<>"" Then If Cint(Request("page"))<1 Then currentPage=1 Else currentPage=Cint(Request("page")) End If Else currentPage=1 End If If Request("page2")<>"" Then If Cint(Request("page2"))<1 Then currentPage2=1 Else currentPage2=Cint(Request("page2")) End If Else currentPage2=1 End If MaxPerPage=1 If Request("all")="all" Then Set rs=Server.CreateObject("adodb.recordSet") rs.Open ("select * from Websen_expotype order by ID desc"),conn,1,1 End If If not rs.Eof Then rs.pagesize=MaxPerPage mpage=rs.pagecount '得到总页数 rs.move (currentPage-1)*MaxPerPage If mpage>=currentPage Then ttid=rs("ID") ttname=rs("type") End If End If rs.Close If ttid="" Then ttid=0 End If Response.Write "已生成/要生成的二级分类:"¤tPage-1&"/"&mpage&"个" If mpage " Else msg_per_page=10 If Request("all")="all" Then sql="select * from Websen_expo where sh=1" If ttname="CN" Then sql=sql&" and holdCountry='CN'" If ttname="EN" Then sql=sql&" and holdCountry<>'CN'" sql=sql&" order by id desc" Set rs=Server.CreateObject("adodb.recordSet") rs.Open sql,conn,1,1 End If If not rs.Eof Then totalrec=RS.RecordCount rs.pagesize=msg_per_page mpage2=rs.pagecount rowcount=msg_per_page rs.move (currentPage2-1)*MaxPerPage If mpage2>=currentPage2 Then tttid=currentPage2 End If End If %> <% If rs.Eof Then HOPE_body=HOPE_body&"
此类暂无展会信息
"&vbCrlf Else do while not rs.Eof and rowcount > 0 gj=trim(rs("holdcountry")) if gj="" or gj="CN" then holdcountry="中国大陆" elseif gj="HK" then holdcountry="中国香港" elseif gj="AO" then holdcountry="中国澳门" elseif gj="TW" then holdcountry="中国台湾" elseif gj="QT" then holdcountry="其他国家" else holdcountry="中国大陆" end if HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
["&holdcountry&"] "&VbCrLf If rs("tj")<>"0" Then HOPE_body=HOPE_body&rs("title")&" "&VbCrLf Else HOPE_body=HOPE_body&""&rs("title")&""&VbCrLf End If HOPE_body=HOPE_body&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
展会日期："&FormatDate(rs("beginDate"),1)&"-"&FormatDate(rs("endDate"),1)&" "&VbCrLf HOPE_body=HOPE_body&" 展会地点："&rs("place")&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf icolor=icolor+1 If icolor>1 Then icolor=0 rowcount=rowcount-1 rs.movenext loop End If HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf ''************** 分页开始 *************** if not (rs.eof and rs.bof) then gopage=currentpage2 totalpage=mpage2 blockPage=Int((gopage-1)/10)*10+1 If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) strTemp = strTemp & CheckStr(Request.ServerVariables("URL")) lenstrTemp=len(strTemp)+1 if instr(left(linkfile,lenstrTemp),"?")>0 then if blockPage = 1 Then HOPE_body=HOPE_body&"【←前10页 " Else HOPE_body=HOPE_body&"【←前10页 " End If i=1 Do Until i > 10 or blockPage > mpage2 If blockPage=int(gopage) Then HOPE_body=HOPE_body&"["&blockPage&"]" Else HOPE_body=HOPE_body&" ["&blockPage&"] " End If blockPage=blockPage+1 i = i + 1 Loop if blockPage > totalpage Then HOPE_body=HOPE_body&" 后10页→】" Else HOPE_body=HOPE_body&" 后10页→】" End If HOPE_body=HOPE_body&" 直接到第 " HOPE_body=HOPE_body&"
" HOPE_body=HOPE_body&" 页
" else if blockPage = 1 Then HOPE_body=HOPE_body&"【←前10页 " Else HOPE_body=HOPE_body&"【←前10页 " End If j=1 Do Until j > 10 or blockPage > mpage2 If blockPage=int(gopage) Then HOPE_body=HOPE_body&"["&blockPage&"]" Else HOPE_body=HOPE_body&" ["&blockPage&"] " End If blockPage=blockPage+1 j =j + 1 Loop if blockPage > totalpage Then HOPE_body=HOPE_body&" 后10页→】" Else HOPE_body=HOPE_body&" 后10页→】" End If HOPE_body=HOPE_body&" 直接到第 " HOPE_body=HOPE_body&"
" HOPE_body=HOPE_body&" 页
" End If Startinfo=((gopage-1)*msg_per_page)+1 Endinfo=gopage*msg_per_page if Endinfo>totalrec then Endinfo=totalrec HOPE_body=HOPE_body&" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&mpage2&" 页" end if HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf HOPE_body=HOPE_body&"
"&vbCrlf HOPE_body=HOPE_body&"

"&vbCrlf rs.close If ttname="ALL" Then HOPE_Title=HOPE_Title&"所有展会-"&webname&"" '网页标题头 End If If ttname="CN" Then HOPE_Title=HOPE_Title&"国内展会-"&webname&"" '网页标题头 End If If ttname="EN" Then HOPE_Title=HOPE_Title&"国际展会-"&webname&"" '网页标题头 End If pencat=Hope_HtmlResult(pencat) Set fso = YXFSO If mpage2>1 Then If Cint(Request("page2"))<1 Then Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"service/expo/list/"&ttname&".html")) fout.Write pencat fout.Close End If Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"service/expo/list/"&ttname&"-p"&tttid&".html")) fout.Write pencat fout.Close Else Set sort_save = fso.CreateTextFile(Server.mappath(HOPE_InstallDir&"service/expo/list/"&ttname&".html")) sort_save.Write pencat sort_save.Close End If Set fso = nothing If currentPage2 已生成*页/此类共*页:"¤tPage2&"/共"&mpage2&"页，" Response.Write "" Else Response.Write "" End If End If conn.Close Set conn=nothing %>