📄 maketrade.asp
字号:
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&"</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="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&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("&sortid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
HOPE_body=HOPE_body&"<option value="&sortid&"-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="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&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("&sortid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
HOPE_body=HOPE_body&"<option value="&sortid&"-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_1_page.asp' />"&vbCrlf
'紧急求购信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
sqlj="select top 15 Websen_info.*,Websen_corporation.trust_score,Websen_corporation.[user],Websen_corporation.tm,Websen_corporation.flag as cflag,Websen_corporation.country,Websen_corporation.sf,Websen_corporation.city from Websen_Info,Websen_corporation where Websen_info.sortid="&sortid&" and Websen_info.flag=1 and Websen_info.type='买' and Websen_info.jinji=1 and Websen_corporation.id=Websen_info.gsid order by Websen_corporation.trust_score desc"
Set rsj= Server.CreateObject("ADODB.Recordset")
rsj.Open sqlj,conn,1,1
If rsj.Eof Then
HOPE_JinJi=HOPE_JinJi&"<br> 该类暂无<font color=""red"">紧急</font>求购信息"
Else
Do While Not rsj.Eof
HOPE_JinJi=HOPE_JinJi&"<TABLE width='100%' height=30 border=0 align=""center"" cellPadding=0 cellSpacing=0>"
HOPE_JinJi=HOPE_JinJi&"<TR"
If icolor=0 Then
HOPE_JinJi=HOPE_JinJi&" bgColor=#f6f6f6>"
Else
HOPE_JinJi=HOPE_JinJi&" bgColor=#ffffff>"
End If
HOPE_JinJi=HOPE_JinJi&"<TD width='15%' align=center valign=top> <TABLE class=porductborder height=35 cellSpacing=0 cellPadding=0 width=64 border=0>"
HOPE_JinJi=HOPE_JinJi&"<TR><TD align=middle>"
If rsj("draw")<>"" Then
HOPE_JinJi=HOPE_JinJi&"<A class=s href='"&HOPE_InstallDir&"seller/offerdetail/"&rsj("sortid")&"-"&rsj("typeid")&"-"&rsj("typeid_2")&"-"&rsj("info_id")&".html' target=""_blank""><IMG src='"&HOPE_InstallDir&"Vipcom/"&rsj("user")&"/"&rsj("draw")&"' border=0 width='31' height='31' onmouseover=this.width='100';this.height='100'; onmouseout=this.width='31';this.height='31';> </A>"
Else
HOPE_JinJi=HOPE_JinJi&"<div class='bick_photo'>无图</div>"
End If
HOPE_JinJi=HOPE_JinJi&"</TD></TR> </TABLE></TD>"
HOPE_JinJi=HOPE_JinJi&"<TD width='45%' class=cate><A class=M href='"&HOPE_InstallDir&"seller/offerdetail/"&rsj("sortid")&"-"&rsj("typeid")&"-"&rsj("typeid_2")&"-"&rsj("info_id")&".html' target='_blank'>"
HOPE_JinJi=HOPE_JinJi&"<SPAN class=lh15>"&rsj("showname")&"</SPAN></a><br>"
If is2weburl=1 Then
HOPE_JinJi=HOPE_JinJi&"<a href='http://"&rsj("user")&"."&weburl1&"' target=_blank>"&rsj("user")&"</a>"
Else
HOPE_JinJi=HOPE_JinJi&"<a href='"&HOPE_InstallDir&"vipcom/"&rsj("user")&"/' target=_blank>"&rsj("user")&"</a>"
End If
HOPE_JinJi=HOPE_JinJi&" [<FONT color=#666666 style='font-size:12px'>"&FormatDate(rsj("dateandtime"),2)&"</FONT>]</TD>"
HOPE_JinJi=HOPE_JinJi&"<td width='10%' align=center>"
HOPE_JinJi=HOPE_JinJi&"<br><b>"&rsj("trust_score")&"</b>"
HOPE_JinJi=HOPE_JinJi&"</td>"
HOPE_JinJi=HOPE_JinJi&"<td width=""15%"" class=s align=center>"
If rsj("country")="中国" Then
HOPE_JinJi=HOPE_JinJi&""&rsj("sf")&"-"&rsj("city")&""
Else
HOPE_JinJi=HOPE_JinJi&""&rsj("country")&""
End If
HOPE_JinJi=HOPE_JinJi&"</td>"
HOPE_JinJi=HOPE_JinJi&"<TD class=text13 align=middle width='15%' ><div align='center'>"&vbCrlf
If rsj("tm")="" Then
HOPE_JinJi=HOPE_JinJi&"<a href="&HOPE_InstallDir&"member/getprice/message.asp?info_id="&rsj("info_id")&" target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
Else
HOPE_JinJi=HOPE_JinJi&"<script>"&vbCrlf
HOPE_JinJi=HOPE_JinJi&"document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td nowrap><img SRC="&HOPE_InstallDir&"images/list_mytlogo_offline.gif border=0 align=absmiddle></td><td nowrap> </td><td> <table width='100%' border=1 bordercolor=#E2E7EB cellspacing=0 cellpadding=0 ><tr ><td align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/message.asp?info_id="&rsj("info_id")&" class='s' target=_blank>网站留言</a></td><td width=5></td><td align='center' bgcolor=#E2E7EB><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rsj("tm")&"') class='s'>用TM留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
HOPE_JinJi=HOPE_JinJi&"</SCRIPT>"&vbCrlf
End If
HOPE_JinJi=HOPE_JinJi&"</div></TD>"&vbCrlf
HOPE_JinJi=HOPE_JinJi&"</TR></TABLE>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
icolor=icolor+1
If icolor>1 Then icolor=0
rsj.Movenext
loop
End If
rsj.Close
Set rsj=nothing
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Title=sortname '网页标题头
'此类供应数统计^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If totalrec="" Then
totalrec=0
End If
HOPE_TotalRec="(<font color=red>"&totalrec&"</font>)"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'属于该行业的推荐的网盛通会员的供应信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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="&sortid&" and Websen_Info.typeid=0 and Websen_Info.typeid_2=0 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&"tradeinfo/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
'替换模版中的标签函数^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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/trade/"&sortid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/seller_1.asp?id="&sortid&"></script>"
fout.Close
End If
'生成分页页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"seller/trade/"&sortid&"-p"&tttid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/seller_1_page.asp?pages="&tttid&","&sortid&"></script>"
fout.Close
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
else
Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"seller/trade/"&sortid&".html"))
sort_save.Write pencat&"<script src="&HOPE_InstallDir&"autokind/seller_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 + -