📄 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无效
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"-->
<%
'获取取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select brand_type 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("brand_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 Websen_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 Websen_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
'处理生成的内容信息每页显示10条信息
msg_per_page=15
If Request("all")="all" or Request("all")="update" Then
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select * from Websen_post where type_class2="&ttid&" and flag=1 order by id desc"),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="&ttid&""),conn,1,1
Set rstype=Server.CreateObject("ADODB.Recordset")
rstype.Open ("select * from Websen_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/brand_3.asp>"
HOPE_Type=HOPE_Type&"<TABLE width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""blackborder"">"
HOPE_Type=HOPE_Type&"<TR><TD align=middle>"
HOPE_Type=HOPE_Type&"<TABLE cellSpacing=0 cellPadding=0 width=""95%"" border=0>"
HOPE_Type=HOPE_Type&"<TR vAlign=top>"
Do while not rstype.Eof
HOPE_Type=HOPE_Type&"<TD vAlign=top width='25%'><a class=c href='"&HOPE_InstallDir&"brand/offerlist/"&rstype("sortid")&"-"&rstype("typeid")&"-"&rstype("typeid_2")&".html' onclick='AjaxSearchtr("&rstype("typeid_2")&")'><span style=' font-size:12px; color:#003278'>"&rstype("typename_2")&"</font></a>"
HOPE_Type=HOPE_Type&"<font class=s> "
'用于显示属于该第三级分类中的信息总量
Set prors=Server.CreateObject("ADODB.Recordset")
prosql="select count(id)as CountPro from Websen_post where type_class2="&rstype("typeid_2")&" flag=1"
prors.Open prosql,conn,1,1
If prors.Eof Then
HOPE_Type=HOPE_Type&""
End If
If not prors.Eof Then
If prors("CountPro")<=0 Then
HOPE_Type=HOPE_Type&""
Else
HOPE_Type=HOPE_Type&"<font style='font-size:12px; color:#666666'>("&prors("CountPro")&")</font>"
prors.Close
End If
End If
HOPE_Type=HOPE_Type&"</font></td>"
a=a+1
If a=4 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
'--------------------------循环显示品牌信息--------------------------------------------------------------
HOPE_body=HOPE_body&"<SCRIPT language=javascript>function killErrors(){return true;}window.onerror = killErrors;</SCRIPT>"
If rs.Eof Then
HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无品牌信息!</div><br>"
Else
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'/>"
HOPE_body=HOPE_body&"<TABLE width='100%' height=600 border=0 align=center cellPadding=0 cellSpacing=0>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
for i=1 to 10
HOPE_body=HOPE_body&"<TR >"
for j=1 to 3
if rs.eof then
exit for
end if
username=rs("username")
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from Websen_corporation where [User]='"&username&"'"
rsmp.open sqlmp,conn,1,1
logo=rsmp("C_logo")
rsmp.close
set rsmp=nothing
HOPE_body=HOPE_body&"<TD width='33%' valign='top'>"&vbCrlf
HOPE_body=HOPE_body&"<table width='170' height='110' border='0' cellpadding='0' cellspacing='1' bgcolor='#B7B7B7'><tr><td height='85' valign='middle' bgcolor='#FFFFFF'>"
HOPE_body=HOPE_body&"<A href="&HOPE_InstallDir&"brand/offerdetail/"&rs("type_class1")&"-"&rs("type_class2")&"-"&rs("type_class3")&"-"&rs("id")&".html target=_blank><img src='../../../vipcom/"&logo&"' width='170' height='60'></a>"
HOPE_body=HOPE_body&"</td></tr><tr><td height='25' bgcolor='#F5F5F5' class='HE'>"
HOPE_body=HOPE_body&"<A href="&HOPE_InstallDir&"brand/offerdetail/"&rs("type_class1")&"-"&rs("type_class2")&"-"&rs("type_class3")&"-"&rs("id")&".html target=_blank>"&left(rs("project"),12)&"</a> "
HOPE_body=HOPE_body&"</td></tr></table>"&vbCrlf
rs.Movenext
next
i=i+1
HOPE_body=HOPE_body&"</TR>"&vbCrlf
next
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -