生成展会资讯信息详细页

<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 dir="no" numid="no" %> <% Set rs=Server.CreateObject("adodb.recordSet") rs.Open ("select expoinfo_detail 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_detail") 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("TopNew")>"" then If ChkRequest(Request("TopNew")) then TopNew=Request("TopNew") Else Response.Redirect (HOPE_InstallDir&"login/chklogin.asp?login=4") End If End If MaxPerPage=1 Set rs=Server.CreateObject("adodb.recordSet") If Request("all")="all" then rs.Open ("select * from Websen_expoinfo order by dateandtime desc"),conn,1,1 ElseIf Request("all")="update" then If Request("schtml")="开始生成从未生成的" Then rs.Open ("select * from Websen_expoinfo where html_pass=0 order by dateandtime desc"),conn,1,1 Else id1=Replace(Request("id1"),"'","") id2=Replace(Request("id2"),"'","") If Isnumeric(id2)=false or Isnumeric(id2)=false Then Response.Write "ID应用数字" :Response.End rs.Open ("select * from Websen_expoinfo where id between "&id1&" and "&id2&" order by dateandtime desc"),conn,1,1 End If End If If Not rs.Eof then rs.Pagesize=MaxPerPage if Request("schtml")="开始生成从未生成的" then mpage=rs.pagecount+currentPage-1 '得到总条数 else mpage=rs.pagecount rs.move (currentPage-1)*MaxPerPage end if If TopNew>"" then currentPage=mpage-TopNew End If If mpage>=currentPage then ttid=rs("id") typeid=rs("typeid") End If If currentPage>mpage then Response.Write "生成完毕 完成时间："&now() Response.End End If Else Response.Write "没有需要生成的数据" Response.End End If HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&""&rs("content")&""&VbCrLf HOPE_body=HOPE_body&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf Websen_Todayadd=Websen_Todayadd&""&rs("dateandtime")&"" HOPE_Nform=HOPE_Nform&""&rs("nfrom")&"" '标志此条信息为已经生存HTML conn.execute("update Websen_expoinfo Set html_pass=1 where id="&ttid&"") Response.Write "
已生成/要生成的页面条数:"¤tPage-1&"/"&mpage&"个" If mpage " Else HOPE_Title=rs("title") pencat=Hope_HtmlResult(pencat) Set fso = YXFSO Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"service/expo/info/"&typeid&"-"&ttid&".html")) sort_save.Write pencat sort_save.Close Response.Write "" End If Set rs=Nothing conn.Close Set conn=Nothing %>