生成展会资讯分类

<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 dir="no" numid="no" %> <% Set rs=Server.createobject("adodb.recordSet") rs.Open ("select expoinfo_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("expoinfo_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_expoinfotype 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=28 If Request("all")="all" Then Set rs=Server.createobject("adodb.recordSet") rs.Open ("select * from Websen_expoinfo where typeid="&ttid&" order by ID desc"),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 icolor=0 Do While Not rs.Eof and rowcount > 0 HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf If len(rs("title"))>28 Then HOPE_body=HOPE_body&""&left(rs("title"),26)&"..." Else HOPE_body=HOPE_body&""&rs("title")&"" End If HOPE_body=HOPE_body&""&VbCrLf If rs("tj")=1 Then HOPE_body=HOPE_body&" " End If HOPE_body=HOPE_body&" "&VbCrLf HOPE_body=HOPE_body&" | "&VbCrLf HOPE_body=HOPE_body&" ["&FormatDate(rs("dateandtime"),2)&"] "&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 HOPE_Title=ttname '网页标题头 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/subject/"&ttid&".html")) fout.Write pencat fout.Close End If Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"service/expo/subject/"&ttid&"-p"&tttid&".html")) fout.Write pencat fout.Close Else Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"service/expo/subject/"&ttid&".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 %>