📄 makedetail.asp
字号:
sorttype="select typename from Websen_class_2 where typeid="&typeclass2
Set rssorttype=Server.CreateObject("ADODB.Recordset")
rssorttype.Open sorttype,conn,1,1
If Not rssorttype.Eof Then
hope_cl=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&"<a href='"&HOPE_InstallDir&"brand/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"brand/trade/"&rssorttype("sortid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
HOPE_Type=HOPE_Type&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"brand/offerlist/"&rssorttype("sortid")&"-"&rssorttype("typeid")&"-"&rssorttype("typeid_2")&".html'>"&rssorttype("typename_2")&"</a>"
rssorttype.Close
End If
End If
set rsmmp=server.CreateObject("adodb.recordset")
sqlmmp="select * from Websen_corporation where ID="&gsid
rsmmp.open sqlmmp,conn,1,1
' 所在地'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Websen_Address=Websen_Address&"所 在 地："&rsmmp("Country")&rsmmp("Sf")&"省 "&rsmmp("City")&"市"
rsmmp.Close
'标志此条信息为已经生存HTML
conn.execute("update Websen_post set html_pass=1 where id="&ttid&"")
HOPE_Pic=""
If trim(rs("drawalt"))="" Then
HOPE_Pic="<div class='pic_bg'><img src='"&HOPE_InstallDir&"images/nopic_250x200.gif' width='250' height='250' border='0'></div>"
Else
if rs("drawalt")<>"" then
bgroud="<li><a href='"&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/"&rs("drawalt")&"' target='_blank'><img src="&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/"&rs("drawalt")&" border=0 width=250 height='250'></a></li>"
else
bgroud=""
end if
if rs("drawalt1")<>"" then
bgroud1="<li><a href='"&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/"&rs("drawalt1")&"' target='_blank'><img src="&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/"&rs("drawalt1")&" border=0 width=250 height='250'></a></li>"
else
bgroud1=""
end if
if rs("drawalt2")<>"" then
bgroud2="<li><a href='"&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/"&rs("drawalt2")&"' target='_blank'><img src="&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/"&rs("drawalt2")&" border=0 width=250 height='250'></a></li>"
else
bgroud2=""
end if
HOPE_Pic="<div class='pic_bg'><div class='main-promotion-banner'><div id='SlidePlayer'><ul class='Slides'>"&bgroud&""&bgroud1&""&bgroud2&"</ul></div></div></div>"
End If
'--是否使用的名片页------------------------------------------------------------
set rsur=server.CreateObject("adodb.recordset")
sqlur="select * from Websen_vipgrade where roleid="&rsmp("gradeid")
rsur.open sqlur,conn,1,1
if not rsur.eof then
Websen_Related=Websen_Related&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center'><tr>"
Websen_Related=Websen_Related&"<td width='52%' height='26'>"
if instr(rsur("rolelist"),"qw")>0 then
'公司信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If is2weburl=1 Then
Websen_Related=Websen_Related&"<A href='http://"&rsmp("user")&"."&weburl1&"' target=_blank><img src='#HOPE_InstallDir#Blue/fl_bg.gif' width='121' height='25' border='0' /></a>"
Else
Websen_Related=Websen_Related&"<A href='"&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/' target=_blank><img src='#HOPE_InstallDir#Blue/fl_bg.gif' width='121' height='25' border='0' /></a>"
End If
Else
Websen_Related=Websen_Related&"<A href='"&HOPE_InstallDir&"Ptcom/"&rsmp("user")&".html' target=_blank><img src='#HOPE_InstallDir#Blue/fl_bg.gif' width='121' height='25' border='0' /></A>"
End If
Websen_Related=Websen_Related&"</td><td width='48%'></td>"
if instr(rsmp("rolelist"),"qw")>0 then
Websen_Related=Websen_Related&"</tr><td height='25' colspan='2'><A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank>最新供应</a> | <A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/About.htm' target=_blank>公司介绍</a></td>"
else
Websen_Related=Websen_Related&""
end if
Websen_Related=Websen_Related&"</tr><tr><td height='25' colspan='2'>经营模式： "&rsmp("Qylb")&"</td></tr>"
Websen_Related=Websen_Related&"<tr><td height='25' colspan='2'>会员评价总数："
sqls="select count(id) from Websen_trustadv where Websen_trustadv.bprid="&rsmp("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&"<FONT color=red><b>"&totle2s&"</b></font>条 "
totles.Close
Set totles=nothing
End If
Websen_Related=Websen_Related&"<a href="&HOPE_InstallDir&"trustadv/rempost.asp?id="&rsmp("id")&" target=_blank >发表评价</a></td></tr>"
Websen_Related=Websen_Related&"<tr><td height='25' colspan='2'>诚信指数： <strong><font color=red style=""font-size:14px"">"&rsmp("trust_score")&"</font></strong></td></tr></table>"
' 联系方式信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Websen_Contact=Websen_Contact&"<script language='vbscript'>sub window_onload() AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"'/>"
Websen_Contact=Websen_Contact&"<table width='100%' border='0' cellspacing='0' cellpadding='0' id=secTable><tr>"
Websen_Contact=Websen_Contact&"<td height='20'><span style=' font-size: 18px; color: #000000; font-weight: bold; line-height: 200%'>"&rsmp("name")&"</span> <span style=' font-size: 18px; color: #000000; font-weight: bold; line-height: 200%'>"&rsmp("ch")&"</span>"
if rsmp("zw")<>"" then
Websen_Contact=Websen_Contact&" (<span style=' font-size: 16px; color: #000000; line-height: 180%'>"&rsmp("zw")&"</span>)</td></tr><tr>"
else
Websen_Contact=Websen_Contact&"</td></tr><tr>"
end if
Websen_Contact=Websen_Contact&"<td height='20'>电 话："&rsmp("Phone")&"</td></tr><tr><td height='30'>移动电话："&rsmp("mobile")&"</td>"
Websen_Contact=Websen_Contact&"</tr><tr><td height='20'>传 真："&rsmp("Fax")&"</td></tr><tr><td height='30'>地 址："&rsmp("Address")&"</td>"
Websen_Contact=Websen_Contact&"</tr><tr><td height='20'>邮 箱："&rsmp("Email")&"</td></tr><tr>"
if instr(rsur("rolelist"),"qw")>0 then
If is2weburl=1 Then
Websen_Contact=Websen_Contact&"<td height='20'>公司网站：<A href='http://"&rsmp("user")&"."&weburl1&"' target=_blank>http://"&rsmp("user")&"."&weburl1&"</a></td>"
Else
Websen_Contact=Websen_Contact&"<td height='20'>公司网站：<A href='"&HOPE_InstallDir&"vipcom/"&rsmp("user")&"/' target=_blank>"&HOPE_WebUrl&"vipcom/"&rsmp("user")&"</a></td>"
End If
Else
Websen_Contact=Websen_Contact&"<td height='20'>公司网站：<A href='"&HOPE_InstallDir&"Ptcom/"&rsmp("user")&".html' target=_blank>"&HOPE_WebUrl&"Ptcom/"&rsmp("user")&".html</a></td>"
End If
Websen_Contact=Websen_Contact&"</tr></table>"
rsur.close
end if
'--是否使用的名片页------------------------------------------------------------
set rser=server.CreateObject("adodb.recordset")
sqler="select * from Websen_vipgrade where roleid="&gradeid
rser.open sqler,conn,1,1
if not rser.eof then
if instr(rser("rolelist"),"qw")>0 then
'公司信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If is2weburl=1 Then
HOPE_CORNAME=HOPE_CORNAME&"<A href='http://"&user&"."&weburl1&"' target=_blank>"&qymc&"</A>"
Else
HOPE_CORNAME=HOPE_CORNAME&"<A href='"&HOPE_InstallDir&"vipcom/"&user&"/' target=_blank>"&qymc&"</A>"
End If
Else
HOPE_CORNAME=HOPE_CORNAME&"<A href='"&HOPE_InstallDir&"Ptcom/"&user&".html' target=_blank>"&qymc&"</A>"
End If
rser.close
end if
'msn交谈
IF rsmp("msn")<>"" Then
HOPE_online=HOPE_online&"MSN:<a href='msnim:chat?contact="&rsmp("msn")&"'><img alt='点击这里发MSN消息' align='absMiddle' border='0' onerror=""this.onerror=null;this.src='http://osi.hshh.org/msnunknown.gif';"" src='http://osi.hshh.org:8888/msn/"&rsmp("msn")&"' /> <br><hr size='1' noshade> "
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^交流方式^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rsmp("tm")="" Then
HOPE_online=HOPE_online&"未使用TM通讯"&vbCrlf
Else
HOPE_online=HOPE_online&"<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="&rsmp("tm")&"Site=www.websen.net&Menu=yes><img border='0' SRC='#HOPE_InstallDir#images/onlineqt.gif' alt='点击这里给我发消息'></a>"&vbCrlf
End If
'客户提交表单^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
hope_user=""
hope_user=hope_user&"<form name='form1' method='post' action='message.asp' id='form1'>"
hope_user=hope_user&"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#FFFFFF'><tr><td height='5'></td></tr></table>"
hope_user=hope_user&"<table width='100%' height='384' border='0' cellpadding='0' cellspacing='0'>"
hope_user=hope_user&"<tr><td width='4%' height='26'> </td><td width='10%' height='26'>咨询主题:</td><td height='26' colspan='2'><input name='txtTitle' type='text' id='txtTitle' size='30' maxlength='50' /><span style='color:#ff6600;'> * 咨询问题标题</span></td></tr>"
hope_user=hope_user&"<tr><td height='24'> </td><td height='24'>咨询内容:</td><td width='51%' height='24'><textarea name='txtContent' id='txtContent' cols='50' rows='7'></textarea></td><td width='35%' height='24' style='line-height:20px; color:#ff6600;'>*详细填写相关咨询问题，方便企业对您的问题具体回复</td></tr>"
hope_user=hope_user&"<tr><td height='26'> </td><td height='26'>你的姓名:<br></td><td height='26' colspan='2'><input name='txtName' type='text' id='txtName' size='30' maxlength='20' /><span style='color:#ff6600;'> * 您的真实姓名，请使用中文</span></td></tr>"
hope_user=hope_user&"<tr><td style='height: 26px'> </td><td style='height: 26px'>你的电话:<br></td><td colspan='2' style='height: 26px'><input name='txtTel' type='text' id='txtTel' size='30' maxlength='50' /><span style='color:#ff6600;'> * 填写电话，您的需求可得到进速处理</span></td></tr>"
hope_user=hope_user&"<tr><td height='26'> </td><td height='26'>你的传真:<br></td><td height='26'><input name='txtFax' type='text' id='txtFax' size='30' maxlength='20' /></td><td height='26'> </td></tr><tr><td height='26'> </td><td height='26'>公司名称:<br></td><td height='26'><input name='txtCompany' type='text' id='txtCompany' size='30' maxlength='50' /></td><td height='26'> </td></tr>"
hope_user=hope_user&" <tr><td height='26'> </td><td height='26'>你的Email:<br></td><td height='26'><input name='txtEmail' type='text' id='txtEmail' size='30' maxlength='50' /></td><td height='26'> </td></tr><tr><td height='26'> </td><td height='26'>详细地址:<br></td><td height='26' colspan='2'><input name='txtAddr' type='text' id='txtAddr' size='30' maxlength='100' /><span style='color:#ff6600;'> * 详细地址，方便企业给您好邮寄相关资料</span> </td></tr>"
hope_user=hope_user&"<tr><td height='26'> </td><td height='26'>您的邮编:<br></td><td height='26' colspan='2'><input name='txtpostcode' type='text' id='txtpostcode' size='30' maxlength='30' /></td></tr>"
hope_user=hope_user&"<tr><td height='26'> </td><td height='26'>输入验证码:</td><td height='26' colspan='2'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td width='10%'><input name='txtCode' type='text' id='txtCode' size='6' maxlength='4' /></td><td width='85%'><input type='image' name='ValidateImg' id='ValidateImg' tabindex='2' title='如看不清,单击更换图片' src='../../manage/Module/Validatenum.aspx' style='border-width:0px;cursor: hand' /></td><td width='5%'> </td></tr></table></td></tr>"
hope_user=hope_user&"<tr><td height='43'> </td><td height='43'> </td><td height='43'><table width='231' height='15' border='0' cellpadding='0' cellspacing='0'><tr><td width='108' align='right'><input type='image' name='Ibnsubmit' id='Ibnsubmit' src='websen.files/din10.jpg' style='border-width:0px;' /></td><td width='84' align='center'><input type='image' name='Ibnreset' id='Ibnreset' src='websen.files/din11.jpg' style='border-width:0px;' /></td></tr></table><span id='lblerror' style='color:Red;'></span></td><td height='43'> </td></tr></table></form>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Response.Write "<br><b>已生成/要生成的页面条数:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
If mpage<currentPage Then
Response.Write ",完成时间"&Now()&"</b> "
Else
HOPE_Tname=Project '品牌标题
HOPE_TITLE=project '品牌名称
HOPE_AddTime=HOPE_AddTime&""&FormatDate(rs("datetime"),1)&""
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
' 所在地'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Websen_Address=Websen_Address&"所 在 地："&rs("Country")&" "&rs("Sf")&"省 "&rs("City")&"市"
HOPE_ToMessage="<div id='search_resultmsg6' style=""display:none""><a href='"&HOPE_InstallDir&"member/getprice/message.asp?info_id="&ttid&"' target='_blank'>给该公司发送留言 </a></div>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'用于留言讯价用的用户传值id^^^^^^^^^^^^^^^^^^^^^^^
HOPE_AskId=ttid
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'导航标签#HOPE_TradeGo#
HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> <small>></small> <a href='"&HOPE_InstallDir&"brand/index.html'>招商加盟</a> > "&HOPE_Title
'………………………………………………………………………………………………………………………………………………
'替换标签函数调用^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pencat=Hope_HtmlResult(pencat)
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^生成页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fso = YXFSO
Set sort_save = fso.CreateTextFile(Server.mappath(HOPE_InstallDir&"brand/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html"))
sort_save.Write pencat
sort_save.Close
Response.Write "<meta http-equiv=Refresh content='0; URL=makedetail.asp?all="&Request("all")&"&id1="&id1&"&id2="&id2&"&page="¤tPage+1&"&schtml="&Request("schtml")&"'>"
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -