生成产品所有内容页

<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 dir="no" numid="no" %> <% Set rs=Server.createobject("adodb.recordSet") rs.Open ("select productshow_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("productshow_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 If Request("all")="all" Then Set rs=Server.createobject("adodb.recordSet") rs.Open ("select id,sortid,typeid,typeid_2,gsid,cpmc from Websen_productshow where flag=1 order by idate desc"),conn,1,1 ElseIf Request("all")="update" Then Set rs=Server.createobject("adodb.recordSet") If Request("schtml")="开始生成从未生成的" Then rs.Open ("select id,sortid,typeid,typeid_2,gsid,cpmc from Websen_productshow where html_pass=0 and flag=1 order by idate 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 id,sortid,typeid,typeid_2,cpmc,gsid from Websen_productshow where id between "&id1&" and "&id2&" and flag=1 order by idate 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") sortid=rs("sortid") typeid=rs("typeid") typeid_2=rs("typeid_2") showname=rs("cpmc") End If If currentPage>mpage Then Response.Write "生成完成，完成时间"&Now()&" " Response.end End If Else Response.Write "没有要生成的信息" Response.end End If rs.Close If ttid="" Then ttid=0 End If If sortid="" Then sortid=0 End If If typeid="" Then typeid=0 End If If typeid_2="" Then typeid_2=0 End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ If typeid_2=0 Then sorttype="select Websen_class_2.typeid,Websen_class_2.typename,Websen_class_1.sort,Websen_class_1.sortid from Websen_class_2,Websen_class_1 where Websen_class_2.typeid="&typeid&" and Websen_class_1.sortid=Websen_class_2.sortid" Set rssorttype=Server.CreateObject("adodb.recordSet") rssorttype.Open sorttype,conn,1,1 If not rssorttype.Eof Then HOPE_Sort=HOPE_Sort&""&rssorttype("sort")&"" HOPE_Sort=HOPE_Sort&" > " HOPE_Type=HOPE_Type&""&rssorttype("typename")&"" rssorttype.Close End If Else sorttype="select Websen_class_3.typeid_2,Websen_class_3.typename_2,Websen_class_2.typeid,Websen_class_2.typename,Websen_class_1.sort,Websen_class_1.sortid from Websen_class_3,Websen_class_2,Websen_class_1 where Websen_class_3.typeid_2="&typeid_2&" and Websen_class_2.typeid=Websen_class_3.typeid and Websen_class_1.sortid=Websen_class_2.sortid" Set rssorttype=Server.CreateObject("adodb.recordset") rssorttype.Open sorttype,conn,1,1 If not rssorttype.Eof Then HOPE_Sort=HOPE_Sort&""&rssorttype("sort")&"" HOPE_Sort=HOPE_Sort&" > " HOPE_Type=HOPE_Type&""&rssorttype("typename")&"" HOPE_Type=HOPE_Type&" > " HOPE_Type=HOPE_Type&""&rssorttype("typename_2")&"" rssorttype.Close End If End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Set rs=Server.createobject("adodb.recordSet") rs.Open ("select Websen_productshow.id as proid,Websen_productshow.flag as proflag,Websen_productshow.gsid,Websen_productshow.sortid as prosortid,Websen_productshow.typeid as protypeid,Websen_productshow.cpmc,Websen_productshow.cpgg,Websen_productshow.cpcd,Websen_productshow.xxsm,Websen_productshow.cpsb,Websen_productshow.Quantity,Websen_productshow.Packaging,Websen_productshow.Cpjg,Websen_productshow.idate as proidate,Websen_productshow.picture,Websen_productshow.picture_summ,Websen_productshow.picture,Websen_corporation.* from Websen_productshow,Websen_corporation where Websen_productshow.id="&ttid&" and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.flag=1"),conn,1,1 If not rs.Eof Then gsid=rs("gsid") Else Response.Write "暂无相关信息" Response.end End If '标志此条信息为已经生存HTML conn.execute("update Websen_productshow Set html_pass=1 where id="&ttid&"") xunjiaid=rs("proid") If rs("picture")<>"../../UploadFile/nopicture.gif" Then HOPE_Pic=HOPE_Pic&"
" Else HOPE_Pic=HOPE_Pic&"
" End If HOPE_AddTime=HOPE_AddTime&""&FormatDate(rs("proidate"),1)&"" HOPE_EndTime=HOPE_EndTime&""&FormatDate(rs("proidate"),1)&"" HOPE_CorName=HOPE_CorName&"
" ''--是否使用的名片页------------------------------------------------------------ set rsmp1=server.CreateObject("adodb.recordset") sqlmp1="select * from Websen_vipgrade where roleid="&rs("gradeid") rsmp1.open sqlmp1,conn,1,1 if not rsmp1.eof then if instr(rsmp1("rolelist"),"qw")>0 then If is2weburl=1 Then HOPE_CorName=HOPE_CorName&""&rs("qymc")&" " Else HOPE_CorName=HOPE_CORNAME&""&rs("qymc")&" " End If Else HOPE_CorName=HOPE_CorName&""&rs("qymc")&" " end if rsmp1.close end if HOPE_LianXi=HOPE_LianXi&"
"&rs("name")&" "&rs("ch")&"
添加为商业伙伴
" HOPE_AskId=rs("proid") '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 'msn交谈 IF rs("msn")<>"" Then HOPE_online=HOPE_online&"MSN:

" End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '^交流方式^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ If rs("tm")="" Then HOPE_online=HOPE_online&"未使用TM通讯
请用网站留言"&vbCrlf Else HOPE_online=HOPE_online&""&vbCrlf End If ' 所在地'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Websen_Address=Websen_Address&"所 在 地："&rs("Country")&" "&rs("Sf")&"省 "&rs("City")&"市" HOPE_ZiShu=HOPE_ZiShu&""&rs("trust_score")&"" HOPE_GsRint=HOPE_GsRint&"已通过认证" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
指数" HOPE_CorCount=HOPE_CorCount&""&rs("trust_score")&"" HOPE_CorCount=HOPE_CorCount&" | " HOPE_CorCount=HOPE_CorCount&" | 公司信息 " HOPE_CorCount=HOPE_CorCount&" | " HOPE_CorCount=HOPE_CorCount&" | 联系信息 " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" if rs("gradeid")<>"" then set rsgr=server.CreateObject("adodb.recordset") sqlgr="select gradename from Websen_vipgrade where roleid="&rs("gradeid") rsgr.open sqlgr,conn,1,1 if not rsgr.eof then HOPE_CorCount=HOPE_CorCount&""&rsgr("gradename")&"" HOPE_HuiYuan=HOPE_HuiYuan&""&rsgr("gradename")&"" rsgr.close end if end if '--是否使用的名片页------------------------------------------------------------ set rsmp=server.CreateObject("adodb.recordset") sqlmp="select * from Websen_vipgrade where roleid="&rs("gradeid") rsmp.open sqlmp,conn,1,1 if not rsmp.eof then '公司信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Websen_Related=Websen_Related&"

" Websen_Related=Websen_Related&"
" if instr(rsmp("rolelist"),"qw")>0 then If is2weburl=1 Then Websen_Related=Websen_Related&"" Else Websen_Related=Websen_Related&"" End If Else Websen_Related=Websen_Related&"" End If Websen_Related=Websen_Related&" | " if instr(rsmp("rolelist"),"qw")>0 then Websen_Related=Websen_Related&"
最新供应 | 公司介绍 " else Websen_Related=Websen_Related&"" end if Websen_Related=Websen_Related&"

经营模式：　 "&rs("Qylb")&"
" Websen_Related=Websen_Related&"
会员评价总数：" sqls="select count(id) from Websen_trustadv where Websen_trustadv.bprid="&rs("id")&"" Set totles=Server.CreateObject("adodb.Recordset") totles.Open sqls,conn,1,1 If Not totles.Eof Then totle2s=totles(0) Websen_Related=Websen_Related&""&totle2s&"条 " totles.Close Set totles=nothing End If Websen_Related=Websen_Related&"发表评价
" Websen_Related=Websen_Related&"
诚信指数： "&rs("trust_score")&"

" ' 联系方式信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Websen_Contact=Websen_Contact&"
" Websen_Contact=Websen_Contact&"

" Websen_Contact=Websen_Contact&"
"&rs("name")&" "&rs("ch")&"" if rs("zw")<>"" then Websen_Contact=Websen_Contact&" ("&rs("zw")&")
" else Websen_Contact=Websen_Contact&"
" end if Websen_Contact=Websen_Contact&"
电　　话："&rs("Phone")&"
移动电话："&rs("mobile")&" " Websen_Contact=Websen_Contact&"
传　　真："&rs("Fax")&"
地　　址："&rs("Address")&" " Websen_Contact=Websen_Contact&"
邮　　箱："&rs("Email")&"
" if instr(rsmp("rolelist"),"qw")>0 then If is2weburl=1 Then Websen_Contact=Websen_Contact&"
公司网站：http://"&rs("user")&"."&weburl1&" " Else Websen_Contact=Websen_Contact&" | 公司网站："&HOPE_WebUrl&"vipcom/"&rs("user")&" " End If else Websen_Contact=Websen_Contact&" | 公司网站："&HOPE_InstallDir&"Ptcom/"&rs("user")&".html " end if Websen_Contact=Websen_Contact&"

" Websen_Contact=Websen_Contact&"
" rsmp.close end if HOPE_CorCount=HOPE_CorCount&"" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

" If rs("flag")=1 Then HOPE_CorCount=HOPE_CorCount&" 工商注册信息：已通过认证
" HOPE_CorCount=HOPE_CorCount&"会员
" HOPE_CorCount=HOPE_CorCount&"证书及荣誉：" sql="select count(id) from Websen_bizre where gsid="&rs("id")&" and sh=1" Set totle=Server.CreateObject("adodb.recordSet") totle.Open sql,conn,1,1 If Not totle.Eof Then totle2=totle(0) HOPE_CorCount=HOPE_CorCount&""&totle2&"项" HOPE_ZheSint=HOPE_ZheSint&""&totle2&"项" totle.Close Set totle=Nothing End If HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"会员评价总数：" sql1="select count(id) from Websen_trustadv where Websen_trustadv.bprid="&rs("id")&"" Set totle1=Server.CreateObject("adodb.recordSet") totle1.Open sql1,conn,1,1 If Not totle1.Eof Then totle21=totle1(0) HOPE_CorCount=HOPE_CorCount&" "&totle21&"条 " HOPE_PingLint=HOPE_PingLint&""&totle21&"条 " totle1.Close Set totle1=Nothing End If HOPE_CorCount=HOPE_CorCount&"发表评价" HOPE_PingLant=HOPE_PingLant&"发表评价
" End If HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" '--是否使用的名片页------------------------------------------------------------ set rsmp2=server.CreateObject("adodb.recordset") sqlmp2="select * from Websen_vipgrade where roleid="&rs("gradeid") rsmp2.open sqlmp2,conn,1,1 if not rsmp2.eof then if instr(rsmp2("rolelist"),"qw")>0 then If is2weburl=1 Then HOPE_CorCount=HOPE_CorCount&" 查看该公司
" Else HOPE_CorCount=HOPE_CorCount&" 查看该公司
" End If Else HOPE_CorCount=HOPE_CorCount&"
查看该公司
" End If rsmp2.close end if HOPE_CorCount=HOPE_CorCount&"" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"" HOPE_CorCount=HOPE_CorCount&"" HOPE_CorCount=HOPE_CorCount&"" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" c="select * from Websen_cor_format where id="&rs("p_z_Z_LegalStatus")&"" Set rsc=Server.CreateObject("adodb.recordSet") rsc.Open c,conn,1,1 If not rsc.Eof Then HOPE_CorCount=HOPE_CorCount&"企业类型： "&rsc("title")&"
" rsc.Close Set rsc=Nothing End If HOPE_CorCount=HOPE_CorCount&"经营模式： "&rs("qylb")&"
" c1="select * from Websen_cor_total where id="&rs("p_z_Z_EmployeesCount")&"" Set rsc1=Server.CreateObject("adodb.recordSet") rsc1.Open c1,conn,1,1 If Not rsc1.Eof Then HOPE_CorCount=HOPE_CorCount&"员工人数： "&rsc1("title")&"
" rsc1.Close Set rsc1=Nothing End If c2="select * from Websen_cor_bank where id="&rs("p_z_Z_RegCapital")&"" Set rsc2=Server.CreateObject("adodb.recordSet") rsc2.Open c2,conn,1,1 If not rsc2.Eof Then HOPE_CorCount=HOPE_CorCount&"注册资金： "&rsc2("title")&"" rsc2.Close Set rsc2=Nothing End If HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" '--是否使用的名片页------------------------------------------------------------ set rsmp=server.CreateObject("adodb.recordset") sqlmp="select * from Websen_vipgrade where roleid="&rs("gradeid") rsmp.open sqlmp,conn,1,1 if not rsmp.eof then if instr(rsmp("rolelist"),"qw")>0 then If is2weburl=1 Then HOPE_CorCount=HOPE_CorCount&" 查看该公司 " Else HOPE_CorCount=HOPE_CorCount&" 查看该公司 " End If Else HOPE_CorCount=HOPE_CorCount&" 查看该公司" End If rsmp.close end if HOPE_CorCount=HOPE_CorCount&" " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
"&rs("name")&" "&rs("ch")&"" If rs("zw")<>"" Then HOPE_CorCount=HOPE_CorCount&"("&rs("zw")&")" Else End If HOPE_CorCount=HOPE_CorCount&" " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
电　　话： " HOPE_CorCount=HOPE_CorCount&" | "&rs("phone")&" " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
传　　真： " HOPE_CorCount=HOPE_CorCount&" | "&rs("fax")&" " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
移动电话： " HOPE_CorCount=HOPE_CorCount&" | "&rs("mobile")&" " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
办公地址： " HOPE_CorCount=HOPE_CorCount&" | "&rs("Country")&""&rs("sf")&""&rs("city")&""&rs("address")&" " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
邮　　编： " HOPE_CorCount=HOPE_CorCount&" | "&rs("post")&" " HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
公司主页：
" HOPE_CorCount=HOPE_CorCount&"
" '--是否使用的名片页------------------------------------------------------------ set rsmp3=server.CreateObject("adodb.recordset") sqlmp3="select * from Websen_vipgrade where roleid="&rs("gradeid") rsmp3.open sqlmp3,conn,1,1 if not rsmp3.eof then if instr(rsmp3("rolelist"),"qw")>0 then If is2weburl=1 Then HOPE_CorCount=HOPE_CorCount&"「本站」 http://"&rs("user")&"."&weburl1&" " Else HOPE_CorCount=HOPE_CorCount&" 「本站」http://"&WebUrl1&HOPE_InstallDir&"vipcom/"&rs("user")&"/ " End If Else HOPE_CorCount=HOPE_CorCount&" 「本站」http://"&WebUrl1&HOPE_InstallDir&"Ptcom/"&rs("user")&".html " End If rsmp3.close end if HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"" HOPE_CountInfo="

"&replace(rs("xxsm"),chr(10)," ")&"

" HOPE_BC=HOPE_BC&"

" If rs("cpgg")<>"" Then HOPE_BC=HOPE_BC&"
产品型号："&rs("cpgg")&"
" else HOPE_BC=HOPE_BC&"
产品型号：-
" End If If rs("cpcd")<>"" Then HOPE_BC=HOPE_BC&"
原 产 地："&rs("cpcd")&"
" else HOPE_BC=HOPE_BC&"
原 产 地：-
" End If If rs("cpsb")<>"" Then HOPE_BC=HOPE_BC&"
产品品牌："&rs("cpsb")&"
" else HOPE_BC=HOPE_BC&"
产品品牌：-
" End If If rs("Quantity")<>"" Then HOPE_BC=HOPE_BC&"
产品数量："&rs("Quantity")&"
" else HOPE_BC=HOPE_BC&"
产品数量：-
" End If If rs("Packaging")<>"" Then HOPE_BC=HOPE_BC&"
包装说明："&rs("Packaging")&"
" else HOPE_BC=HOPE_BC&"
包装说明：-
" End If If rs("Cpjg")<>"" Then HOPE_BC=HOPE_BC&"
价格说明："&rs("Cpjg")&"
" HOPE_BC=HOPE_BC&"
价格说明：-
" End If HOPE_BC=HOPE_BC&"

" HOPE_InfoPicTure=HOPE_InfoPicTure&"

" HOPE_InfoPicTure=HOPE_InfoPicTure&"
" If rs("picture")<>"../../UploadFile/nopicture.gif" Then HOPE_InfoPicTure=HOPE_InfoPicTure&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"

" HOPE_InfoPicTure=HOPE_InfoPicTure&"

" HOPE_InfoPicTure=HOPE_InfoPicTure&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"
" If rs("picture")<>"../../UploadFile/nopicture.gif" Then HOPE_InfoPicTure=HOPE_InfoPicTure&"650){this.width=650;}"" border=0>" Else HOPE_InfoPicTure=HOPE_InfoPicTure&" " End If HOPE_InfoPicTure=HOPE_InfoPicTure&" " HOPE_InfoPicTure=HOPE_InfoPicTure&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"

" HOPE_InfoPicTure=HOPE_InfoPicTure&"" HOPE_InfoPicTure=HOPE_InfoPicTure&"" HOPE_InfoPicTure=HOPE_InfoPicTure&"

" End If HOPE_InfoPicTure=HOPE_InfoPicTure&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"

" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" '--是否使用的名片页------------------------------------------------------------ set rsmp4=server.CreateObject("adodb.recordset") sqlmp4="select * from Websen_vipgrade where roleid="&rs("gradeid") rsmp4.open sqlmp4,conn,1,1 if not rsmp4.eof then if instr(rsmp4("rolelist"),"qw")>0 then HOPE_XG=HOPE_XG&"该公司供求信息推荐 " If is2weburl=1 Then HOPE_XG=HOPE_XG&"全部产品目录 " HOPE_XG=HOPE_XG&"全部供求信息" Else HOPE_XG=HOPE_XG&"全部产品目录 " HOPE_XG=HOPE_XG&"全部供求信息" End If end if rsmp4.close End If HOPE_XG=HOPE_XG&"
" sql="select top 6 Websen_info.info_id,Websen_info.draw,Websen_info.draw1,Websen_info.draw2,Websen_info.flag as Websen_infoflag,Websen_info.gsid,Websen_info.sortid as infosortid,Websen_info.typeid as infotypeid,Websen_info.typeid_2 as infotypeid_2,Websen_info.type,Websen_info.showname,Websen_info.content,Websen_info.period,Websen_info.dateandtime,Websen_info.picture,Websen_info.picture_summ,Websen_info.Specifications,Websen_info.Quantity,Websen_info.Packaging,Websen_info.PriceTerms,Websen_corporation.* from Websen_Info,Websen_corporation where Websen_info.gsid="&gsid&" and Websen_corporation.id=Websen_info.gsid and Websen_info.flag=1 and Websen_info.type='卖'" Set rs= Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 If not rs.Eof Then gsid=rs("gsid") End If If rs.Eof Then HOPE_XG=HOPE_XG&"
该公司暂无其他供应信息
" Else HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"
" j=1 do while not rs.Eof HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" If trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" Then HOPE_XG=HOPE_XG&"
" Else If trim(rs("Websen_info.draw"))<>"" Then PTpic="" Elseif trim(rs("Websen_info.draw1"))<>"" Then PTpic="" Elseif trim(rs("Websen_info.draw2"))<>"" Then PTpic="" End If End If If Trim(rs("draw"))="" And Trim(rs("draw1"))="" And Trim(rs("draw2"))="" Then HOPE_XG=HOPE_XG&"
" Else If Trim(rs("draw"))<>"" Then pgong=rs("draw") ElseIf Trim(rs("draw1"))<>"" Then pgong=rs("draw1") ElseIf Trim(rs("draw2"))<>"" Then pgong=rs("draw2") End If HOPE_XG=HOPE_XG&" " End If HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"

" If rs("type")="买" Then HOPE_XG=HOPE_XG&"" ElseIf rs("type")="卖" Then HOPE_XG=HOPE_XG&"" End If HOPE_XG=HOPE_XG&""&rs("showname")&"
" HOPE_XG=HOPE_XG&""&FormatDate(rs("dateandtime"),2)&"
" If j mod 2 = 0 Then HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"
" End If rs.movenext j=j+1 loop End If HOPE_XG=HOPE_XG&"
" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"

" HOPE_XG=HOPE_XG&"

" rs.Close '招商信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ set rsmp=server.CreateObject("adodb.recordset") sqlmp="select * from Websen_corporation where ID="&gsid rsmp.open sqlmp,conn,1,1 if rsmp("C_logo") then logo=rsmp("C_logo") websen_logo="
250){this.width=250;};if(this.height>250){this.height=250} "" border=""0"">
" else websen_logo="
250){this.width=250;};if(this.height>250){this.height=250} "" border=""0"">
" end if gradeid=rsmp("gradeid") rsmp.close set rsmp=nothing Response.Write "
已生成/要生成的页面条数:"¤tPage-1&"/"&mpage&"个" If mpage " Else HOPE_TradeInfoID=ttid '当前页面ID HOPE_Title=showname HOPE_TradeGo="首页 > 产品库 > "&HOPE_Sort&" "&HOPE_Type&"" pencat=Hope_HtmlResult(pencat) Set fso = YXFSO Set sort_save = fso.CreateTextFile(Server.mappath(HOPE_InstallDir&"productshow/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html")) sort_save.Write pencat sort_save.Close If Request("other")=1 Then Response.End() Response.Write "" End If '************** 生成HTML页 结束 *************** Set rs=Nothing conn.Close Set conn=Nothing %>