生成展会信息详细页

<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 %> <% if issession=0 then gsid=Replace_Text(request.Cookies("Yxmemberid")) else gsid=session("id") end if if gsid="" then Response.Redirect(HOPE_InStallDir&"login/login1.asp") End If Set rs=Server.CreateObject("adodb.recordSet") rs.Open ("select expo_detail from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1 If Not rs.Eof Then pencat=rs("expo_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")="update" Then if Trim(Request("other"))<>"expo" then Response.End() id1=Replace(Request("id1"),"'","") id2=Replace(Request("id2"),"'","") If Isnumeric(id2)=false or Isnumeric(id2)=false Then Response.Write "参数传递错误" :Response.End rs.Open ("select * from Websen_expo where id between "&id1&" and "&id2&" and sh=1 order by dateandtime asc"),conn,1,1 End If If not rs.Eof Then rs.pagesize=MaxPerPage mpage=rs.pagecount '得到总条数 If currentPage>mpage Then Response.Write "生成完成，完成时间"&Now()&" " Response.End End If If TopNew>"" Then currentPage=mpage-TopNew End If rs.Move (currentPage-1)*MaxPerPage If mpage>=currentPage Then ttid=rs("id") End If Else Response.Write "没有需要生成的信息" Response.End End If If ttid="" Then ttid=0 End If HOPE_Title=HOPE_Title&""&rs("title")&"" 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 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&" | "&changechr(rs("title"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
举办国家： "&VbCrLf HOPE_body=HOPE_body&" | "&VbCrLf If changechr(rs("holdCountry"))="CN" Then HOPE_body=HOPE_body&"中国大陆"&" "&VbCrLf End If If changechr(rs("holdCountry"))="HK" Then HOPE_body=HOPE_body&"中国香港"&" "&VbCrLf End If If changechr(rs("holdCountry"))="MO" Then HOPE_body=HOPE_body&"中国澳门"&" "&VbCrLf End If If changechr(rs("holdCountry"))="TW" Then HOPE_body=HOPE_body&"中国台湾"&" "&VbCrLf End If If changechr(rs("holdCountry"))="QT" Then HOPE_body=HOPE_body&"--其他国家--"&VbCrLf 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&" | "&changechr(rs("beginDate"))&" "&VbCrLf HOPE_body=HOPE_body&" ~"&VbCrLf HOPE_body=HOPE_body&" "&changechr(rs("endDate"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
报名截止： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("expireDate"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
参展地(展馆)： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("place"))&" "&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 HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
批准单位： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("authorize"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
主办单位： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("frontFor"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
承办单位： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("undertake"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
支持协办单位： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("aidance"))&" "&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 HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("brief"))&" "&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 HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("product"))&" "&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 HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

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

"&VbCrLf HOPE_body=HOPE_body&"

"&changechr(rs("charge"))&""&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 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&" | "&changechr(rs("activity"))&" "&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 HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
联系人： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("linkman"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
公司名称： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("company"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
国家或地区： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("country1"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
省/州： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("province"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
城 市： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("city"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
联系地址： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("address"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
邮 编： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("zip"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
固定电话： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("phone"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
传 真： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("fax"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
移动电话： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("mobile"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
电子邮件： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("email"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"
网 址： "&VbCrLf HOPE_body=HOPE_body&" | "&changechr(rs("homepage"))&" "&VbCrLf HOPE_body=HOPE_body&"
"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf HOPE_body=HOPE_body&"

"&VbCrLf Response.Write "
已生成/要生成的页面条数:"¤tPage-1&"/"&mpage&"个" If mpage " Else pencat=Hope_htmlAll(pencat) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"service/expo/detail/"&ttid&".html")) sort_save.Write pencat sort_save.Close Response.Write "" End If Set rs=Nothing conn.Close Set conn=Nothing %>