📄 maketrade.asp
字号:
End If
rsmp.close
end if
HOPE_body=HOPE_body&" <FONT color=#666666>"
c="select title from Websen_cor_format where id="&rs("p_z_Z_LegalStatus")&""
Set rsc=Server.CreateObject("ADODB.Recordset")
rsc.Open c,conn,1,1
If not rsc.Eof Then
HOPE_body=HOPE_body&"（"&rsc("title")&"）"
End If
rsc.Close
Set rsc=Nothing
HOPE_body=HOPE_body&"</FONT><BR>[摘要]"&vbCrlf
HOPE_body=HOPE_body&""&left(rs(RemoveHTML("qyjj")),55)&"……<br>"&vbCrlf
'--是否使用的名片页------------------------------------------------------------
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&"<a href='http://"&rs("user")&"."&weburl1&"/Cusmsg.htm' target=""_blank""><img src='#HOPE_InstallDir#images/wansen_jy.gif' width='69' height='21' border='0' /></a> <a href='http://"&rs("user")&"."&weburl1&"/Contact.htm' target=""_blank""><img src='#HOPE_InstallDir#images/wansen_lx.gif' width='69' height='21' border='0' /></a>"
Else
HOPE_body=HOPE_body&" <a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/Cusmsg.htm' target=""_blank""><img src='#HOPE_InstallDir#images/wansen_jy.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>"
End If
else
HOPE_body=HOPE_body&" <a href="""&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&""" target=""_blank""><img src='#HOPE_InstallDir#images/wansen_jy.gif' width='69' height='21' border='0' /></a> <a href='#HOPE_InstallDir#Ptcom/"&rs("user")&".html' target='_blank'><img src='#HOPE_InstallDir#images/wansen_lx.gif' width='69' height='21' border='0' /></a>"
End If
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"<td width='3%' class='peyen'> </td>"&VbCrLf
HOPE_body=HOPE_body&"<TD width=""12%"" style=' text-align: center' class='peyen'><img border=""0"" src=""../../UploadFile/vipgrade/"&rsmp1("FileFlag")&""" width=20></td>"
HOPE_body=HOPE_body&"<TD width=""12%"" align='left' style=' padding-left: 30px' 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 width=""13%"" align='right' class='peyen'>"&vbCrlf
rsmp1.close
end if
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="&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
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/com_1_page.asp' />"&vbCrlf
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'企业推荐榜：属于该行业的网盛通企业(显示5个作为网盛通指数最高的)^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Cor=HOPE_Cor&"<table width=""100%"" align=center border=""1"" bordercolor=#F0F0F0 cellpadding=""0"" cellspacing='1'>"&VbCrLf
sql="select top 5 id,qymc,[user],sf,city from Websen_corporation where sortid="&sortid&" and flag=1 order by trust_score desc"
Set rs= Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
If rs.Eof Then
HOPE_Cor=HOPE_Cor&"<tr><td height='23' class=""s"" align=""center""><input name=""postOffer"" type=""button"" value=""立即注册抢占此推荐位！"" onclick=location.href="""&HOPE_InstallDir&"login/register.asp""></td></tr>"&VbCrLf
Else
comi=1
Do While Not rs.Eof
If is2weburl=1 Then
HOPE_Cor=HOPE_Cor&"<tr><td height='23' class=""lh13""><b>·<a href='http://"&rs("user")&"."&weburl1&"' target='_blank'>"&rs("qymc")&"</a></b><br> <font color='#666666' class='S'>所属区域："&rs("sf")&""&rs("city")&"</font></td></tr>"&VbCrLf
Else
HOPE_Cor=HOPE_Cor&"<tr><td height='23' class=""lh13""><b>·<a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target='_blank'>"&rs("qymc")&"</a></b><br> <font color='#666666' class='S'>所属区域："&rs("sf")&"-"&rs("city")&"</font></td></tr>"&VbCrLf
End If
HOPE_Cor=HOPE_Cor&"<tr><td height='5'></td></tr>"&VbCrLf
If comi=5 Then exit do
comi=comi+1
rs.Movenext
Loop
End If
HOPE_Cor=HOPE_Cor&"</table>"&VbCrLf
If totalrec="" Then
totalrec=0
End If
HOPE_TotalCor="<font color=red>"&totalrec&"</font>" '此类公司数统计
HOPE_DH=totalrec
rs.Close
HOPE_Title=sortname '页面标题
'执行模版页中的标签替换操作^^^^^^^^^^^^^^^^^^^^^^^^
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&"corporation/trade/"&sortid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/com_1.asp?id="&sortid&"></script>"
fout.Close
End If
Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"corporation/trade/"&sortid&"-p"&tttid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/com_1_page.asp?pages="&tttid&","&sortid&"></script>"
fout.Close
Else
Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"corporation/trade/"&sortid&".html"))
sort_save.Write pencat&"<script src="&HOPE_InstallDir&"autokind/com_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 + -