📄 makeofferlist.asp
字号:
end if
HOPE_body=HOPE_body&"</FONT></FONT></TD>"
HOPE_body=HOPE_body&"<TD align=middle width='15%'>"
HOPE_body=HOPE_body&" <FONT class=c><b>"&rs("trust_score")&"</b></FONT> "
HOPE_body=HOPE_body&"</TD>"
HOPE_body=HOPE_body&"<TD class=s align=middle width='15%'><div align=center>"
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>"
HOPE_body=HOPE_body&"<TD class=text13 align=middle width='15%'><input type='checkbox' style='display:none;' name='msgid' checked value='"&i&",'/><div id='msgdiv"&i&"' style=""display:none"">"&vbCrlf
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'msn交谈
IF rs("msn")<>"" Then
HOPE_body=HOPE_body&" MSN:<a href='msnim:chat?contact="&rs("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/"&rs("msn")&"' /><br><br> "
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rs("tm")="" Then
HOPE_body=HOPE_body&"<a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&" target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
Else
HOPE_body=HOPE_body&"<script>"&vbCrlf
HOPE_body=HOPE_body&"document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td nowrap> </td><td> <table width='100%' border=1 bordercolor=#E2E7EB align=center cellspacing=0 cellpadding=0 ><tr ><td align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&" class='s' target=_blank>网站留言</a></td><td width=5></td><td align='center' bgcolor=#E2E7EB><a href=Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&" class='s'>用TM留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
HOPE_body=HOPE_body&"</SCRIPT>"&vbCrlf
End If
HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR></TBODY></TABLE><br>"
icolor=icolor+1
i=i+1
If icolor>1 Then icolor=0
rowcount=rowcount-1
rs.moveNext
loop
End If
HOPE_body=HOPE_body&"<br>"
HOPE_body=HOPE_body&"<TABLE width='100%' border=0 align=center cellPadding=1 cellSpacing=0 style='BORDER-TOP: #9C9A9C 1px solid;BORDER-Bottom: #9C9A9C 1px solid'>"
HOPE_body=HOPE_body&"<TBODY>"
HOPE_body=HOPE_body&"<tr><td align=center><br><font color=red>→</font><input type=checkbox value='' checked disabled>请选择要比较的项:<input type='button' onclick='AjaxSearchb();' style='background-color:#CCCCCC' value='我要进行产品比较' /></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 class=M noWrap align=middle>"
'************** 分页开始 ***************
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
If blockPage = 1 Then
HOPE_body=HOPE_body&"<span disabled>【←前10页</span> "
Else
HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sttid&"-"&tytid&"-"&ttid&"-p"&blockPage-10&".html onclick=AjaxSearchtrp("&ttid&","&blockPage-10&")>←前10页</a> "
End If
i=1
Do Until i > 10 or blockPage > mpage2
If blockPage=int(gopage) Then
HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</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
If blockPage > totalpage Then
HOPE_body=HOPE_body&" <span disabled>后10页→】"
Else
HOPE_body=HOPE_body&" <a href="&sttid&"-"&tytid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>后10页→</a><span disabled>】"
End If
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&" 页<Br><Br>"
Else
If blockPage = 1 Then
HOPE_body=HOPE_body&"<span disabled>【←前10页</span> "
Else
HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sttid&"-"&tytid&"-"&ttid&"-p"&blockPage-10&".html onclick=AjaxSearchtrp("&ttid&","&blockPage-10&")>←前10页</a> "
End If
i=1
Do Until i > 10 or blockPage > mpage2
If blockPage=int(gopage) Then
HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</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
If blockPage > totalpage Then
HOPE_body=HOPE_body&" <span disabled>后10页→】"
Else
HOPE_body=HOPE_body&" <a href="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>后10页→</a><span disabled>】"
End If
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&" 页<Br><Br>"
End If
Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
If Endinfo>totalrec Then Endinfo=totalrec
HOPE_body=HOPE_body&" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&mpage2&" 页"
End If
HOPE_body=HOPE_body&"</TD>"
HOPE_body=HOPE_body&"</TR>"
HOPE_body=HOPE_body&"</TBODY>"
HOPE_body=HOPE_body&"</TABLE></TD>"
HOPE_body=HOPE_body&"</TR>"
HOPE_body=HOPE_body&"</TBODY>"
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_3_page.asp' />"
HOPE_Title=rssort2("typename_2") '网页标题头
HOPE_Sort="<a href='"&HOPE_InstallDir&"productshow/trade/"&rssort1("sortid")&".html'>"&rssort1("sort")&"</a>" '所属大类名称
HOPE_Type="<a href='"&HOPE_InstallDir&"productshow/trade/"&rssort1("sortid")&"-"&rssort("typeid")&".html'>"&rssort("typename")&"</a>" '所属二类名称
HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"productshow/'>产品库</a> > "&HOPE_Sort&" > "&HOPE_Type&" > "&HOPE_Title
If totalrec="" Then
totalrec=0
End If
HOPE_ToTalPro="<font color=red>"&totalrec&"</font>个" '此类产品数统计
'属于该行业的推荐的易商通会员的产品^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rstjy=Server.CreateObject("ADODB.Recordset")
sqltjy="select top 15 wygkcn_productshow.id,wygkcn_productshow.sortid,wygkcn_productshow.typeid,wygkcn_productshow.typeid_2,wygkcn_productshow.Cpmc from wygkcn_productshow,wygkcn_corporation where wygkcn_productshow.GsID=wygkcn_corporation.id and wygkcn_corporation.Tjbz like '%0%' and wygkcn_productshow.flag=1 and wygkcn_productshow.sortid="&sttid&" and wygkcn_productshow.typeid="&tytid&" and wygkcn_productshow.typeid_2="&ttid&" and wygkcn_corporation.flag=1 order by wygkcn_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
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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&"productshow/offerlist/"&sttid&"-"&tytid&"-"&ttid&".html"))
fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/pro_3.asp?id="&ttid&"'></script>"
fout.Close
End If
Set fout = fso.CreateTextFile(server.mappath(HOPE_InstallDir&"productshow/offerlist/"&sttid&"-"&tytid&"-"&ttid&"-p"&tttid&".html"))
fout.Write pencatt&"<script src='"&HOPE_InstallDir&"autokind/pro_3_page.asp?pages="&tttid&","&ttid&"'></script>"
fout.Close
Else
Set sort_save = fso.CreateTextFile(server.mappath(HOPE_InstallDir&"productshow/offerlist/"&sttid&"-"&tytid&"-"&ttid&".html"))
sort_save.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/pro_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 + -