📄 make.asp
字号:
rsmp.close
end if
set rsmp1=server.CreateObject("adodb.recordset")
sqlmp1="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp1.open sqlmp1,conn,1,1
FileFlag=rsmp1("FileFlag")
if not rsmp1.eof then
if instr(rsmp1("rolelist"),"qw")>0 then
'用于二级域名处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If is2weburl=1 Then
HOPE_body=HOPE_body&"<br><A href='http://"&rs("user")&"."&WebUrl1&"/supply1.htm' target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a href='http://"&rs("user")&"."&WebUrl1&"' target=_blank><font color='#666666'>查看该会员企业网站</font></a>"
Else
HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a target='_blank' href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'><font color='#666666'>查看该会员企业网站</font></a>"
End If
end if
rsmp1.close
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"<a href='#HOPE_InstallDir#member/getprice/message.asp?info_id="&rs("info_id")&"' target='_blank'><img src='#HOPE_InstallDir#images/wansen_xj.gif' width='69' height='21' border='0' /></a> <a href='#HOPE_InstallDir#Vipcom/"&rs("user")&"/Contact.htm' target='_blank'><img src='#HOPE_InstallDir#images/wansen_lx.gif' width='69' height='21' border='0' /></a></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD width=""15%"" align=center><img border=""0"" src=""../../UploadFile/vipgrade/"&FileFlag&""" width=20></td>"
HOPE_body=HOPE_body&"<TD width=""13%"" class=S align=center style="" padding-left 0px"">"&vbCrlf
HOPE_body=HOPE_body&"<FONT style="" FONT-SIZE: 12px""><img src=""../../images/trust.gif"" width=22 height=14 border=0><br>"&rs("trust_score")&"</FONT><br> "
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"<td width='13%' style='word-break:break-all' align=center>"&rs("Cpcd")&"</td><td width='15%' style='padding-right: 5px; padding-bottom: 5px'>"
If rs("tm")<>"" then
HOPE_body=HOPE_body&"<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="&rs("tm")&"Site=www.websen.net&Menu=yes><img border=0 SRC=#HOPE_InstallDir#images/anlineqt.gif alt=点击这里给我发消息></a>"
End if
HOPE_body=HOPE_body&"</td></TR>"
HOPE_body=HOPE_body&"</table></td></tr></table>"
i=i+1
icolor=icolor+1
If icolor>1 Then icolor=0
rowcount=rowcount-1
rs.Movenext
loop
End If
'进行分页处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"<br>"&vbCrlf
HOPE_body=HOPE_body&"<TABLE width='100%' border=0 align=center cellPadding=1 cellSpacing=0 style='BORDER-TOP: #9C9A9C 1px solid'>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<tr><td height='4px'></td></tr><tr><td valign=top><img src='#HOPE_InstallDir#images/list_rt_slt_ico_2.gif' width='14' height='16' /> <input type='image' onclick='AjaxSearchb();' src='#HOPE_InstallDir#images/dbcp.gif' width=' 69' height='21' value='我要进行产品比较' /> 请选择要比较的项</td></tr><tr><td> </td></tr><TR>"
HOPE_body=HOPE_body&"<TD>"
HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=4 width=100% border=0>"
HOPE_body=HOPE_body&"<TBODY>"
HOPE_body=HOPE_body&"<TR>"
HOPE_body=HOPE_body&"<td align='center' style=' padding-top: 15px; border-bottom: 1px #FDCA91 solid; border-top: 1px #FDCA91 solid; background-color:#FDF2DC; height: 30px'>"
'************** 分页开始 ***************
If not (rs.Eof and rs.bof) Then
gopage=currentpage2
totalpage=mpage2
blockPage=Int((gopage-1)/10)*10+1
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
lenstrTemp=len(strTemp)+1
If instr(left(linkfile,lenstrTemp),"?")>0 Then
i=1
Do Until i > 10 or blockPage > mpage2
If blockPage=int(gopage) Then
HOPE_body=HOPE_body&"<font style=' color:#FFFFFF; font-size:14px; font-weight:bold; border: 2px #FF7300 solid; background-color:#FF7300'>"&blockPage&"</font>"
Else
HOPE_body=HOPE_body&" <a href="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")><font style=' color:#001D4C; font-size:14px; font-weight:bold'>"&blockPage&"</font></a> "
End If
blockPage=blockPage+1
i = i + 1
Loop
HOPE_body=HOPE_body&" 直接到第 "
HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&ttid&",this.options[this.selectedIndex].index+1);location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
HOPE_body=HOPE_body&"<option value="&sttid&"-"&ttid&"-p" & i & ".html"
If i=gopage Then HOPE_body=HOPE_body&" selected"
HOPE_body=HOPE_body&">"&i&"</option>"
next
HOPE_body=HOPE_body&"</select>"
HOPE_body=HOPE_body&" 页<Br><Br>"
Else
i=1
Do Until i > 10 or blockPage > mpage2
If blockPage=int(gopage) Then
HOPE_body=HOPE_body&"<font style=' color:#FFFFFF; font-size:14px; font-weight:bold; border: 2px #FF7300 solid; background-color:#FF7300'>"&blockPage&"</font>"
Else
HOPE_body=HOPE_body&" <a href="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")><font style=' color:#001D4C; font-size:14px; font-weight:bold'>"&blockPage&"</font></a> "
End If
blockPage=blockPage+1
i = i + 1
Loop
HOPE_body=HOPE_body&" 直接到第 "
HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&ttid&",this.options[this.selectedIndex].index+1);location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
HOPE_body=HOPE_body&"<option value="&sttid&"-"&ttid&"-p" & i & ".html"
If i=gopage Then HOPE_body=HOPE_body&" selected"
HOPE_body=HOPE_body&">"&i&"</option>"
next
HOPE_body=HOPE_body&"</select>"
HOPE_body=HOPE_body&" 页<Br><Br>"
End If
Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
If Endinfo>totalrec Then Endinfo=totalrec
End If
HOPE_body=HOPE_body&"</TD>"
HOPE_body=HOPE_body&"</TR>"
HOPE_body=HOPE_body&"</TBODY>"
HOPE_body=HOPE_body&"</TABLE>"
HOPE_body=HOPE_body&"</TD>"
HOPE_body=HOPE_body&"<table width='100%' height='60' border='0' cellpadding='0' cellspacing='0' style=' margin-top:7px; border: 1px #FFCC99 solid; padding-top: 7px; padding-borrom: 7px; font-size:12px;'><tr>"
HOPE_body=HOPE_body&"<td align='center' valign='top'>想让您的信息也被搜索到吗？<a href='#HOPE_InstallDir#member/tradeinfo/add_info.asp'><font color='#FF0000'><strong>立即免费发布</strong></font></a><br /> <table width='400' border='0' cellspacing='0' cellpadding='0' style=' margin-top: 5px; padding-borrom: 10px'><tr>"
HOPE_body=HOPE_body&"<td width='105'><a href='#HOPE_InstallDir#member/productshow/add_product.asp'><img src='#HOPE_InstallDir#images/wansen_fbcp.gif' width='105' height='29' border='0' /></a></td>"
HOPE_body=HOPE_body&"<td width='211'><a href='#HOPE_InstallDir#member/tradeinfo/add_info.asp'><img src='#HOPE_InstallDir#images/wansen_fbgy.gif' width='105' height='29' border='0' /></a></td>"
HOPE_body=HOPE_body&"<td width='27'><a href='#HOPE_InstallDir#member/tradeinfo/add_info.asp'><img src='#HOPE_InstallDir#images/wansen_fbqg.gif' width='105' height='29' border='0' /></a></td>"
HOPE_body=HOPE_body&"<td width='27'><a href='#HOPE_InstallDir#member/myexpo/expo_post.asp'><img src='#HOPE_InstallDir#images/wansen_fbzh.gif' width='105' height='29' border='0' /></a></td>"
HOPE_body=HOPE_body&"<a href='#HOPE_InstallDir#member/work/work.asp'><td width='30'><img src='#HOPE_InstallDir#images/wansen_fbzp.gif' width='105' height='29' border='0' /></a></td>"
HOPE_body=HOPE_body&"<td width='30'><a href='#HOPE_InstallDir#member/tradeinfo/add_info.asp'><img src='#HOPE_InstallDir#images/wansen_fbnews.gif' width='105' height='29' border='0' /></a></td></tr></table>"
HOPE_body=HOPE_body&"</TR>"
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE><script language='javascript' src="&HOPE_InstallDir&"autokind/autokind_p.js></script><input type='text' id='installurltrp' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"autokind/pro_1_page.asp' />"&vbCrlf
HOPE_Title=sortname '页面标题
HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"productshow/'>产品库</a> > "&HOPE_Title
'属于该行业的推荐的网盛通会员的产品^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rstjy=Server.CreateObject("ADODB.Recordset")
sqltjy="select top 15 Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.Cpmc from Websen_productshow,Websen_corporation where Websen_productshow.GsID=Websen_corporation.id and Websen_corporation.Tjbz like '%0%' and Websen_productshow.flag=1 and Websen_productshow.sortid="&sortid&" and Websen_productshow.typeid=0 and Websen_productshow.typeid_2=0 and Websen_corporation.flag=1 order by Websen_corporation.trust_score desc"
rstjy.Open sqltjy,conn,1,1
If rstjy.Eof Then
tjcompany="暂无"
End If
If Not rstjy.Eof Then
tjcompany=""
End If
If Not rstjy.Eof Then
tji=1
tjcompany=""
Do While Not rstjy.Eof
tjcompany=tjcompany&" ．<a href='"&HOPE_InstallDir&"productshow/offerdetail/"&rstjy("sortid")&"-"&rstjy("typeid")&"-"&rstjy("typeid_2")&"-"&rstjy("id")&".html' target=_blank>"&rstjy("cpmc")&"</a><br>"
If tji=15 Then Exit Do
tji=tji+1
rstjy.Movenext
Loop
rstjy.Close
End If
HOPE_TjCom=tjcompany
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pencat=Hope_HtmlResult(pencat)
'进行静态页面的生成^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fso = YXFSO
If mpage2>1 Then
If Cint(Request("page2"))<1 Then
Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"productshow/trade/"&sortid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/pro_1.asp?id="&sortid&"></script>"
fout.Close
End If
'生成分页页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"productshow/trade/"&sortid&"-p"&tttid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/pro_1_page.asp?pages="&tttid&","&sortid&"></script>"
fout.Close
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
else
Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"productshow/trade/"&sortid&".html"))
sort_save.Write pencat&"<script src="&HOPE_InstallDir&"autokind/pro_1.asp?id="&sortid&"></script>"
sort_save.Close
End If
Set fso = nothing
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If currentPage2<mpage2 Then
Response.Write "<br>已生成*页/此类共*页:<font color=#FF0000>"¤tPage2&"</font>/共<font color=#FF0000><b>"&mpage2&"</b></font>页，"
Response.Write "<meta http-equiv=Refresh content='0; URL=maketrade.asp?all="&Request("all")&"&page="¤tPage&"&page2="&Cint(currentPage2+1)&"'>"
Else
Response.Write "<meta http-equiv=Refresh content='0; URL=maketrade.asp?all="&Request("all")&"&page="¤tPage+1&"'>"
End If
End If
Set rs=nothing
conn.Close
Set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -