📄 makeofferlist.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<title>生成产品三级分类</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body>
<%
data_path="../../../" 'ACC连接数据库路径，对SQL无效
dir="no"
numid="no"
%>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../../../inc/classcount.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<!--#include file="../makerole.asp"-->
<%
'过滤内容中出现的html代码，引用时用 “RemoveHTML(调用内容)”
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
'定义结束。
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select productshow_type2 from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
If rs.Eof Then
Response.Write("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
Response.End()
End If
If Not rs.Eof Then
pencat=rs("productshow_type2")
rs.Close
End If
If Request("page")<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
If Request("page2")<>"" Then
If Cint(Request("page2"))<1 Then
currentPage2=1
Else
currentPage2=Cint(Request("page2"))
End If
Else
currentPage2=1
End If
'************** 读取一级分类 ***************
MaxPerPage=1
If Request("all")="all" Then
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select * from Websen_class_3 order by typeid_2 desc"),conn,1,1
ElseIf Request("all")="update" Then
id1=replace(Request("id1"),"'","")
id2=replace(Request("id2"),"'","")
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select * from Websen_class_3 Where typeid_2 between "&id1&" and "&id2&" order by typeid_2 desc"),conn,1,1
End If
If not rs.Eof Then
rs.Pagesize=MaxPerPage
mpage=rs.Pagecount '得到总页数
If currentPage>mpage Then
Response.Write "生成完成，完成时间"&Now()&"</b> "
Response.end
End If
rs.Move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("typeid_2")
tytid=rs("typeID")
sttid=rs("sortID")
End If
End If
rs.Close
If ttid="" Then
ttid=0
End If
If tytid="" Then
tytid=0
End If
If sttid="" Then
sttid=0
End If
Response.Write "<b>已生成/要生成的三级分类:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
If mpage<currentPage Then
Response.Write "，完成时间"&Now()&"</b> "
Else
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If ttid=0 Then
sorttype="select Websen_class_2.typeid,Websen_class_2.typename,Websen_class_1.sort,Websen_class_1.sortid from Websen_class_2,Websen_class_1 where Websen_class_2.typeid="&tytid&" and Websen_class_1.sortid=Websen_class_2.sortid"
Set rssorttype=Server.CreateObject("adodb.recordSet")
rssorttype.Open sorttype,conn,1,1
If not rssorttype.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
rssorttype.Close
End If
Else
sorttype="select Websen_class_3.typeid_2,Websen_class_3.typename_2,Websen_class_2.typeid,Websen_class_2.typename,Websen_class_1.sort,Websen_class_1.sortid from Websen_class_3,Websen_class_2,Websen_class_1 where Websen_class_3.typeid_2="&ttid&" and Websen_class_2.typeid=Websen_class_3.typeid and Websen_class_1.sortid=Websen_class_2.sortid"
Set rssorttype=Server.CreateObject("adodb.recordset")
rssorttype.Open sorttype,conn,1,1
If not rssorttype.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"productshow/trade/"&rssorttype("sortid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
HOPE_Type=HOPE_Type&" <small>></small> "
HOPE_Type=HOPE_Type&rssorttype("typename_2")
sortname=rssorttype("typename_2")
rssorttype.Close
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'商品比较标签#HOPE_BJ(typeid)#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'参数：typeid----1 为横向分单元格显示；0--为纵向分行显示
Function HOPE_BJ(typeid)
If typeid<=0 Then
typeid=0
Else
typeid=1
End If
strs=""
strs=" <script type='text/javascript' src='"&HOPE_InstallDir&"compare.js'></script><script language='javascript' >function zhu(str){ if(str.checked){ document.getElementById('searchwordb').value= document.getElementById('searchwordb').value+str.value; }else{ document.getElementById('searchwordb').value=document.getElementById('searchwordb').value.replace(str.value,''); } } </script> <div> <input type='text' id='searchwordb' style='display:none' value=''/><input type='text' id='installurlb' style='display:none; width:12;height:1' value="&HOPE_InstallDir&" /> <input type='text' id='typeid' style='display:none; width:12;height:1' value="&typeid&" /> </div> <div id='search_resultb'></div>"
HOPE_BJ=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'************** 生成HTML页 开始 ***************
msg_per_page=15
If Request("all")="all" or Request("all")="update" Then
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select Websen_productshow.*,Websen_corporation.id as corid,Websen_corporation.msn,Websen_corporation.flag as corflag,Websen_corporation.qymc,Websen_corporation.tm,Websen_corporation.[user],Websen_corporation.tm,Websen_corporation.country,Websen_corporation.sf,Websen_corporation.city,Websen_corporation.web,Websen_corporation.gradeid,Websen_corporation.url,Websen_corporation.trust_score from Websen_productshow,Websen_corporation where Websen_productshow.typeid_2="&ttid&" and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.flag=1 order by Websen_corporation.trust_score"),conn,1,1
End If
If not rs.Eof Then
totalrec=RS.RecordCount'总记录条数
rs.pagesize=msg_per_page '每页数
mpage2=rs.pagecount '得到总页数
rowcount=msg_per_page
rs.move (currentPage2-1)*MaxPerPage
If mpage2>=currentPage2 Then
tttid=currentPage2
End If
End If
%>
<!--#include file="../../../inc/headpage_html.asp"-->
<%
Set rssort1=Server.CreateObject("adodb.recordSet")
rssort1.Open ("select * from Websen_class_1 where sortID="&sttid&""),conn,1,1
Set rssort=Server.CreateObject("adodb.recordSet")
rssort.Open ("select * from Websen_class_2 where typeID="&tytid&""),conn,1,1
Set rssort2=Server.CreateObject("adodb.recordSet")
rssort2.Open ("select * from Websen_class_3 where typeID_2="&ttid&""),conn,1,1
'************** 开始读取内容开始 ***************
If rs.Eof Then
HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无产品信息</div><br>"
Else
i=1
HOPE_body=HOPE_body&"<script type='text/javascript' src='"&HOPE_InstallDir&"autokind/showmsgrole.js'></script><script language='vbscript'>sub AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"autokind/showmsgrole.asp'/> "
do while not rs.Eof and rowcount > 0
jjcom = jjcom + 1
If jjcom mod 2 =0 Then
colors="#FFFFFF"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -