生成采购所有内容页

<% 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 tradeinfo_detail from Websen_worldec_Temp where yx_selected=1"),conn,1,1 If Not rs.Eof Then pencat=rs("tradeinfo_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"))<>"Member" then Response.end id1=Replace(Request("id1"),"'","") id2=Replace(Request("id2"),"'","") If IsNumeric(id2)=false OR IsNumeric(id2)=false Then Response.write "参数传递错误" Response.end End If rs.Open ("select * from Websen_Info where info_id between "&id1&" and "&id2&" and flag=1 and type='卖' "),conn,1,1 End If Response.write rs.recordcount 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("info_id") sortid=rs("sortid") typeid=rs("typeid") typeid_2=rs("typeid_2") showname=rs("showname") dateandtime=rs("dateandtime") period=rs("period") infosdate=rs("infostartdate") infoedate=rs("infoenddate") 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 infoedate[此信息已过期]" End If HOPE_AddTime=HOPE_AddTime&""&FormatDate(infosdate,1)&"" HOPE_EndTime=HOPE_EndTime&""&FormatDate(infoedate,1)&"" '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ If typeid_2=0 Then '处理导航^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ sorttype="select Websen_class_2.sortid,Websen_class_2.typename,Websen_class_2.typeid,Websen_class_1.sort from Websen_class_2,Websen_class_1 where Websen_class_2.typeid="&typeid&" and Websen_class_1.sortid=Websen_class_2.sortid" HOPE_Sort=HOPE_Sort&"" HOPE_Type=HOPE_Type&"" 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 sorttype1="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 rssorttype1=Server.CreateObject("ADODB.Recordset") rssorttype1.Open sorttype1,conn,1,1 If Not rssorttype1.Eof Then HOPE_Sort=HOPE_Sort&""&rssorttype1("sort")&"" HOPE_Sort=HOPE_Sort&" " HOPE_Type=HOPE_Type&""&rssorttype1("typename")&"" HOPE_Type=HOPE_Type&" > " HOPE_Type=HOPE_Type&""&rssorttype1("typename_2")&"" rssorttype1.Close End If End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '处理具体供应产品信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Set rs=Server.CreateObject("ADODB.Recordset") rs.Open ("select Websen_info.info_id,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.picture,Websen_info.Specifications,Websen_info.Quantity,Websen_info.Packaging,Websen_info.PriceTerms,Websen_info.draw,Websen_info.draw1,Websen_info.draw2,Websen_info.picsample_0,Websen_info.picsample_1,Websen_info.picsample_2,Websen_corporation.* from Websen_Info,Websen_corporation where Websen_info.info_id="&ttid&" and Websen_corporation.id=Websen_info.gsid and Websen_info.flag=1 and Websen_info.type='卖'"),conn,1,1 If Not rs.Eof Then gsid=rs("gsid") Else Response.write "无数据" Response.end End If If trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" Then PTpic=HOPE_InstallDir&"UploadFile/nopicture.gif" Else If trim(rs("draw1"))<>"" and trim(rs("draw2"))<>"" and trim(rs("draw"))<>"" Then PTpic=rs("draw") Elseif trim(rs("draw2"))="" and trim(rs("draw1"))="" Then PTpic=rs("draw") Elseif trim(rs("draw2"))="" and trim(rs("draw"))="" Then PTpic=rs("draw1") Else PTpic=rs("draw2") End If End If '标志此条信息为已经生存HTML conn.execute("update Websen_Info Set html_pass=1 where info_id="&ttid&"") HOPE_Pic="" If trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" Then HOPE_Pic="
" Else if rs("draw")<>"" then bgroud="
" else bgroud="" end if if rs("draw1")<>"" then bgroud1="
" else bgroud1="" end if if rs("draw2")<>"" then bgroud2="
" else bgroud2="" end if HOPE_Pic="

"&bgroud&""&bgroud1&""&bgroud2&"

" End If HOPE_CORNAME=HOPE_CORNAME&"
" '--是否使用的名片页------------------------------------------------------------ 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_CORNAME=HOPE_CORNAME&""&rs("qymc")&" " Else HOPE_CORNAME=HOPE_CORNAME&""&rs("qymc")&" " End If Else HOPE_CORNAME=HOPE_CORNAME&""&rs("qymc")&"" End If rsmp.close end if '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '^^^联系方式^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_LianXi=HOPE_LianXi&"
"&rs("name")&" "&rs("ch")&" 添加为商业伙伴
" '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ infono=rs("info_id") '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 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"
" HOPE_CorCount=HOPE_CorCount&"
指数"&rs("trust_score")&" " HOPE_ZiShu=HOPE_ZiShu&""&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&"

" set rsjj=server.CreateObject("adodb.recordset") sqljj="select gradename from Websen_vipgrade where roleid="&rs("gradeid") rsjj.open sqljj,conn,1,1 if not rsjj.eof then HOPE_CorCount=HOPE_CorCount&""&rsjj("gradename")&"" HOPE_HuiYuan=HOPE_HuiYuan&""&rsjj("gradename")&"" rsjj.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_GsRint=HOPE_GsRint&"已通过认证" HOPE_CorCount=HOPE_CorCount&"证书及荣誉：" sql1="select count(id) from Websen_bizre where gsid="&rs("id")&" and sh=1" Set totle=Server.CreateObject("adodb.recordset") totle.Open sql1,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&"会员评价总数：" 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) HOPE_CorCount=HOPE_CorCount&""&totle2s&"条 " HOPE_PingLint=HOPE_PingLint&""&totle2s&"条 " totles.Close Set totles=nothing End If HOPE_CorCount=HOPE_CorCount&"发表评价
" HOPE_PingLant=HOPE_PingLant&"发表评价

" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

" HOPE_CorCount=HOPE_CorCount&"

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

" 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 End If Set rsc=nothing 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&"
" 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")&")" 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&"
公司主页：
" '--是否使用的名片页------------------------------------------------------------ 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_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 rsmp1.close end if HOPE_CorCount=HOPE_CorCount&"
「其它」"&rs("web")&" " HOPE_CorCount=HOPE_CorCount&"
" 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_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 hope_bcom="../../../vipcom/"&rsmp("user")&"/index.htm" hope_chance="../../../vipcom/"&rsmp("user")&"/supply1.htm" hope_contact="../../../vipcom/"&rsmp("user")&"/Contact.htm" gradeid=rsmp("gradeid") rsmp.close set rsmp=nothing '具体产品信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_CountInfo=HOPE_CountInfo&""&rs("content")&"" '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ' 产品相关属性'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_BC=HOPE_BC&"

" HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
产品规格： "&rs("Specifications")&" " HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
产品数量： "&rs("Quantity")&" " HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
包装说明： "&rs("Packaging")&" " HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
价格说明： "&rs("PriceTerms")&" " HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"
" HOPE_BC=HOPE_BC&"

" '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ' 所在地'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Websen_Address=Websen_Address&"所 在 地："&rs("Country")&" "&rs("Sf")&"省 "&rs("City")&"市" ' 公司相关信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '--是否使用的名片页------------------------------------------------------------ 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&" | " Websen_Related=Websen_Related&"
最新供应 | 公司介绍 " 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 is2weburl=1 Then Websen_Contact=Websen_Contact&"
公司网站：http://"&rs("user")&"."&weburl1&" " Else Websen_Contact=Websen_Contact&" | 公司网站："&HOPE_WebUrl&"vipcom/"&rs("user")&" " End If Websen_Contact=Websen_Contact&"

" Websen_Contact=Websen_Contact&"
" rsmp.close end if '产品图片信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_InfoPicTure=HOPE_InfoPicTure&"

" HOPE_InfoPicTure=HOPE_InfoPicTure&"
" If rs("draw")<>"" and rs("draw1")<>"" and rs("draw2")<>"" 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&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"
" If rs("draw")="" and rs("draw1")="" and rs("draw2")="" Then HOPE_InfoPicTure=HOPE_InfoPicTure&" " Else If trim(rs("draw1"))<>"" and trim(rs("draw2"))<>"" and trim(rs("draw"))<>"" Then PTpic=rs("draw") Elseif trim(rs("draw2"))="" and trim(rs("draw1"))="" Then PTpic=rs("draw") Elseif trim(rs("draw2"))="" and trim(rs("draw"))="" Then PTpic=rs("draw1") Else PTpic=rs("draw2") End If HOPE_InfoPicTure=HOPE_InfoPicTure&"400){this.width=400;}"" border=0>" 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&"

" If rs("draw")<>"" 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&"
" 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&"
" HOPE_InfoPicTure=HOPE_InfoPicTure&"

" End If If rs("draw2")<>"" 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&"

" End If 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&"该公司供应信息推荐 " 'VipProduct1.htm")&" HOPE_XG=HOPE_XG&"" '--是否使用的名片页------------------------------------------------------------ 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_XG=HOPE_XG&"全部产品目录 " Else HOPE_XG=HOPE_XG&"全部产品目录 " End If HOPE_XG=HOPE_XG&"" If is2weburl=1 Then HOPE_XG=HOPE_XG&"全部供求信息" Else HOPE_XG=HOPE_XG&"全部供求信息" End If end if rsmp2.close end if sql="select top 6 Websen_info.info_id,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.draw,Websen_info.draw1,Websen_info.draw2,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 gsid=rs("gsid") 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 PTpic=HOPE_InstallDir&" " Else If trim(rs("draw1"))<>"" and trim(rs("draw2"))<>"" and trim(rs("draw"))<>"" Then PTpic="" Elseif trim(rs("draw2"))="" and trim(rs("draw1"))="" Then PTpic="" Elseif trim(rs("draw2"))="" and trim(rs("draw"))="" Then PTpic="" Else PTpic="" End If End If If rs("type")="卖" Then HOPE_XG=HOPE_XG&""&PTpic&"" End If 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&""&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 Response.write "
已生成/要生成的页面条数:"¤tPage-1&"/"&mpage&"个" If mpage " Else '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_Title=showname '页面标题 '^用于发送发送留言^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ HOPE_ToMessage="
给该公司发送留言
" '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '用于留言讯价用的用户传值id^^^^^^^^^^^^^^^^^^^^^^^ HOPE_AskId=ttid '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '导航标签#HOPE_TradeGo# HOPE_TradeGo="首页 > 我要采购 >"&HOPE_Sort&" > "&HOPE_Type&" > "&HOPE_Title '替换模版中的标签函数^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ pencat=Hope_HtmlResult(pencat) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '进行静态页面的生成^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Set fso =YXFSO Set sort_save = fso.CreateTextFile(server.mappath(HOPE_InstallDir&"tradeinfo/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 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Set rs=nothing conn.Close Set conn=nothing %>