📄 makeofferlist.asp
字号:
if not rsmp1.eof then
if instr(rsmp1("rolelist"),"qw")>0 then
End If
rsmp1.close
end if
HOPE_body=HOPE_body&"<br><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%"" style=' text-align: right' class='peyen'><img border=""0"" src=""../../UploadFile/vipgrade/"&FileFlag&""" width=20></td>"
HOPE_body=HOPE_body&"<TD width=""13%"" align=right style="" padding-right: 10px"" class='peyen'>"&vbCrlf
HOPE_body=HOPE_body&"<img src=""../../images/trust.gif"" width=22 height=14 border=0><br>"&rs("trust_score")&"<br> "
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle width='17%' valign='top' class='peyen'>"&vbCrlf
HOPE_body=HOPE_body&"<div style='padding-top: 15px; text-align: right'>"&vbCrlf
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><BR><BR>"
End if
If rs("country")="中国" Then
HOPE_body=HOPE_body&""&rs("sf")&"省-"&rs("city")&"市"
Else
HOPE_body=HOPE_body&""&rs("country")&""
End If
HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
i=i+1
icolor=icolor+1
If icolor>1 Then icolor=0
rowcount=rowcount-1
rs.Movenext
loop
End If
'进行分页处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=0 width='100%' height='30' border=0 class='zheyen'>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR>"&vbCrlf
HOPE_body=HOPE_body&"<TD align='right' class='bgeyen'>"&vbCrlf
If not (rs.Eof and rs.Bof) Then
gopage=currentpage2
totalpage=mpage2
blockPage=Int((gopage-1)/10)*10+1
HOPE_body=HOPE_body&" 共 "&totalrec&" 条信息，每页 "&msg_per_page&" 条信息，共 "&mpage2&" 页，浏览 "
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 color=#FF0000>"&blockPage&"</font>"
Else
HOPE_body=HOPE_body&" <a href="&sttid&"-"&tytid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>"&blockPage&"</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&"-"&tytid&"-"&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&" 页"
Else
i=1
Do Until i > 10 OR blockPage > mpage2
If blockPage=int(gopage) Then
HOPE_body=HOPE_body&"<font color=#ff0000>"&blockPage&"</font>"
Else
HOPE_body=HOPE_body&" <a href="&sttid&"-"&tytid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>"&blockPage&"</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&"-"&tytid&"-"&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&" 页"
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>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
HOPE_body=HOPE_body&"<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/seller_3_page.asp' />"&vbCrlf
HOPE_Title=rssort2("typename_2") '网页标题头
'所属大类名称^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Sort="<a href='"&HOPE_InstallDir&"seller/trade/"&rssort1("sortid")&".html'>"&rssort1("sort")&"</a>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'所属二类名称^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Type="<a href='"&HOPE_InstallDir&"seller/trade/"&rssort1("sortid")&"-"&rssort("typeid")&".html'>"&rssort("typename")&"</a>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If totalrec="" Then
totalrec=0
End If
HOPE_TotalRec=totalrec '此类求购数统计
' 导航标签#HOPE_TradeGo#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"seller/'>我要销售</a> > "&HOPE_Sort&" > "&HOPE_Type&" > "&HOPE_Title
'属于该行业的推荐的网盛通会员的供应信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rstjy=Server.CreateObject("ADODB.Recordset")
sqltjy="select top 15 Websen_Info.showname,Websen_Info.Info_ID,Websen_Info.sortid,Websen_Info.typeid,Websen_Info.typeid_2 from Websen_Info,Websen_corporation where Websen_Info.Gsid=Websen_corporation.id and Websen_corporation.Tjbz like '%0%' and Websen_corporation.flag=1 and Websen_Info.sortid="&sttid&" and Websen_Info.typeid="&tytid&" and Websen_Info.typeid_2="&ttid&" and Websen_Info.type='买' order by 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&"seller/offerdetail/"&rstjy("sortid")&"-"&rstjy("typeid")&"-"&rstjy("typeid_2")&"-"&rstjy("Info_ID")&".html' target=_blank>"&rstjy("showname")&"</a><br>"
If tji=15 Then Exit Do
tji=tji+1
rstjy.Movenext
Loop
rstjy.Close
End If
HOPE_TjCom=tjcompany
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
rs.Close
rssort.Close
rssort1.Close
rssort2.Close
' 替换标签的函数调用 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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&"seller/offerlist/"&sttid&"-"&tytid&"-"&ttid&".html"))
fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/seller_3.asp?id="&ttid&"'></script>"
fout.Close
End If
'分页处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"seller/offerlist/"&sttid&"-"&tytid&"-"&ttid&"-p"&tttid&".html"))
fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/seller_3_page.asp?pages="&tttid&","&ttid&"'></script>"
fout.Close
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Else
Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"seller/offerlist/"&sttid&"-"&tytid&"-"&ttid&".html"))
sort_save.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/seller_3.asp?id="&ttid&"'></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=makeofferlist.asp?all="&Request("all")&"&page="¤tPage&"&page2="&Cint(currentPage2+1)&"&id1="&id1&"&id2="&id2&"'>"
Else
Response.Write "<meta http-equiv=Refresh content='0; URL=makeofferlist.asp?all="&Request("all")&"&page="¤tPage+1&"&id1="&id1&"&id2="&id2&"'>"
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Nothing
conn.Close
Set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -