📄 makelist.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无效 %>
<!--#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"-->
<%
If Session("globalecmaster")="" or Session("adminid")="" Then
Response.write "<script language='javascript'>"
Response.write"alert('对不起！请重新登陆！');parent.location.href='"&HOPE_InstallDir&"';</SCRIPT>"
Response.End
End If
%>
<%
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select productshow_type from [Yixiang_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_type")
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 Yixiang_class_2 order by typeID 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 Yixiang_class_2 Where typeID between "&id1&" and "&id2&" order by typeID desc"),conn,1,1
End If
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总页数
rs.move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("typeID")
sttid=rs("sortID")
End If
End If
rs.Close
If ttid="" Then
ttid=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
'商品比较标签#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
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
msg_per_page=15
If Request("all")="all" or Request("all")="update" Then
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select wygkcn_productshow.*,wygkcn_corporation.id as corid,wygkcn_corporation.flag as corflag,wygkcn_corporation.qymc,wygkcn_corporation.tm,wygkcn_corporation.[user],wygkcn_corporation.msn,wygkcn_corporation.gradeid,wygkcn_corporation.tm,wygkcn_corporation.country,wygkcn_corporation.sf,wygkcn_corporation.city,wygkcn_corporation.web,wygkcn_corporation.url,wygkcn_corporation.trust_score from wygkcn_productshow,wygkcn_corporation where wygkcn_productshow.typeid="&ttid&" and wygkcn_corporation.id=wygkcn_productshow.gsid and wygkcn_productshow.typeid_2=0 and wygkcn_productshow.flag=1 order by wygkcn_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 Yixiang_class_1 where sortID="&sttid&""),conn,1,1
Set rssort=Server.CreateObject("adodb.recordSet")
rssort.Open ("select * from Yixiang_class_2 where typeID="&ttid&""),conn,1,1
Set rstype=Server.CreateObject("adodb.recordSet")
rstype.Open ("select * from Yixiang_class_3 where typeid="&ttid&""),conn,1,1
If rstype.Eof Then
'^下级类别导航^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Type=HOPE_Type&""
Else
HOPE_type=HOPE_type&"<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr' style='display:none; width:12;height:1' value="&HOPE_InstallDir&"autokind/pro_3.asp>"
HOPE_Type=HOPE_Type&"<TABLE width=""98%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""0"" class=""blackborder"">"
HOPE_Type=HOPE_Type&"<tr><td>〖<font color=#3287BA><b>"&rssort("typename")&"</b></font>〗</td></tr><TR><TD align=center>"
HOPE_Type=HOPE_Type&"<TABLE cellSpacing=5 cellPadding=0 width=""95%"" border=0>"
HOPE_Type=HOPE_Type&"<TR vAlign=top>"
do while not rstype.Eof
'^查出第三级所含的产品数量^^^^^^^^^^
thiCount=""
Set rsproth=Server.CreateObject("adodb.recordSet")
prothsql="select count(*) as totalpro from wygkcn_productshow where flag=1 and typeid_2="&rstype("typeid_2")
rsproth.Open prothsql,conn,1,1
If not rsproth.Eof Then
If rsproth("totalpro")>0 Then
thiCount="(<font color=red>"&rsproth("totalpro")&"</font>)"
Else
thiCount=""
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Type=HOPE_Type&"<TD vAlign=top width='20%'><a class=c href='"&HOPE_InstallDir&"productshow/offerlist/"&rstype("sortid")&"-"&rstype("typeid")&"-"&rstype("typeid_2")&".html' onclick='AjaxSearchtr("&rstype("typeid_2")&")'>"&rstype("typename_2")&"</a>"
HOPE_Type=HOPE_Type&"<font class=s> "&thiCount&"</font></td>"
a=a+1
If a=5 Then
HOPE_Type=HOPE_Type&"</tr>"
a=0
End If
rstype.movenext
loop
rstype.Close
HOPE_Type=HOPE_Type&"</TABLE></TD></TR></TABLE>"
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rs.Eof Then
HOPE_body=HOPE_body&"<br><br><div align='center' class=s>暂无此类产品信息</div><br>"
Else
i=i+1
HOPE_body=HOPE_body&"<script type='text/javascript' src='"&HOPE_InstallDir&"autokind/showmsgrole.js'></script><script language='vbscript'>sub window_onload() 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
HOPE_body=HOPE_body&"<TABLE width='100%' height=85 border=0 align=center cellPadding=0 cellSpacing=1>"
HOPE_body=HOPE_body&"<TBODY>"
HOPE_body=HOPE_body&"<TR"
If icolor=0 Then
HOPE_body=HOPE_body&" bgColor=#ffffff"
Else
HOPE_body=HOPE_body&" bgColor=#f6f6f6"
End If
HOPE_body=HOPE_body&">"
HOPE_body=HOPE_body&"<TD align=middle width='15%'>"
HOPE_body=HOPE_body&"<TABLE class=porductborder height=64 cellSpacing=0 cellPadding=0 width=64 border=0>"
HOPE_body=HOPE_body&"<TBODY>"
HOPE_body=HOPE_body&"<TR>"
HOPE_body=HOPE_body&"<TD align=center><font color=#cccccc>比较</font><input type='checkbox' name='id' value='"&rs("id")&",' onclick='zhu(this);' />"
If rs("picture")<>"../../UploadFile/nopicture.gif" or rs("picture")<>"" Then
HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html' target=_blank class=s><IMG src='"&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("picture")&"' border=0 height=64 width=64 >"
HOPE_body=HOPE_body&"</A>"
Else
HOPE_body=HOPE_body&"<FONT class=C color=#cecfce>无图</FONT>"
End If
HOPE_body=HOPE_body&"</TD></TR></TBODY></TABLE></TD>"
HOPE_body=HOPE_body&"<TD width='40%' class=cate><A class=M href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank><SPAN class=lh15>"&rs("cpmc")&"</SPAN></A><BR>"
HOPE_body=HOPE_body&"<FONT color=#009900>"
'--是否使用的名片页------------------------------------------------------------
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from yixiang_vipgrade where roleid="&rs("gradeid")
rsmp.open sqlmp,conn,1,1
if not rsmp.eof then
if instr(rsmp("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_body=HOPE_body&"<A href='http://"&rs("user")&"."&weburl1&"' target=_blank><FONT color=#666666>"&rs("qymc")&"</font></A>"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -