📄 maketrade.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 rs1=Server.CreateObject("adodb.recordSet")
rs1.Open ("select brand_sort from Websen_worldec_Temp where yx_selected=1"),conn,1,1
If rs1.Eof Then
Response.Write("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
Response.End()
End If
If Not rs1.Eof Then
pencat=rs1("brand_sort")
rs1.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_1 order by sortID 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
sortid=rs("sortid")
sortname=rs("sort")
End If
End If
rs.Close
If sortid="" Then
sortid=0
End If
Response.Write "<b>已生成/要生成的一级分类:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
response.Write sortid
'^^^^^^^^^^^^^^^^^^^^^^^^^^返回一级分类页面 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If mpage<currentPage Then
Response.Write "，完成时间"&Now()&"</b> "
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_2.asp>"
HOPE_type=HOPE_type&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td>"
HOPE_type=HOPE_type&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>"
sqltype="SELECT top 12 * FROM Websen_class_2 WHERE sortid="&sortid
Set rstype=Server.CreateObject("ADODB.Recordset")
rstype.Open sqltype,conn,1,1
If Not rstype.Eof Then
j=1
Do While Not rstype.Eof
'^^^^^^^^^^^^^^^^^^^^^^^^^ end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^ start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^显示第一类的所有的二级分类^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_type=HOPE_type&" <td height=10 valign=top>"
HOPE_type=HOPE_type&" <A href="""&sortid&"-"&rstype("typeid")&".html"" class=M onclick='AjaxSearchtr("&rstype("typeid")&")'><span style=' font-size:12px; color:#003278'>"&rstype("typename")&"</span></A>"
HOPE_type=HOPE_type&" </td> "
If j MOD 4 = 0 Then
HOPE_type=HOPE_type&"</TR><tr>"
End If
rstype.Movenext
j=j+1
Loop
Set rstype=Nothing
End If
HOPE_type=HOPE_type&"</TABLE></td></tr></table>"
'获取替换标签的内容^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
msg_per_page=15
If Request("all")="all" Then
Set rs=Server.CreateObject("adodb.recordset")
rs.Open ("select * from websen_post where type_class1="&sortid&" 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"-->
<%
'HOPE_body用于显示页面的主题分类信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
end if
'进行分页处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'HOPE_body用于显示页面的主题分类信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"<br>"&vbCrlf
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'>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR>"&vbCrlf
HOPE_body=HOPE_body&"<TD>"&vbCrlf
HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=4 width='100%' border=0>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR>"&vbCrlf
HOPE_body=HOPE_body&"<TD class=M noWrap align=middle>"&vbCrlf
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="&sortid&"-p"&blockPage-10&".html onclick=AjaxSearchtrp("&sortid&","&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="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&blockPage&")>["&blockPage&"]</a> "
End If
blockPage=blockPage+1
i = i + 1
Loop
If blockPage > totalpage Then
HOPE_body=HOPE_body&" <span disabled>后10页→】</span>"
Else
HOPE_body=HOPE_body&" <a href="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&blockPage&")>后10页→</a><span disabled>】</span>"
End If
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&" 页<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="&sortid&"-p"&blockPage-10&".html onclick=AjaxSearchtrp("&sortid&","&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="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&blockPage&")>["&blockPage&"]</a> "
End If
blockPage=blockPage+1
i = i + 1
Loop
If blockPage > totalpage Then
HOPE_body=HOPE_body&" <span disabled>后10页→】</span>"
Else
HOPE_body=HOPE_body&" <a href="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&blockPage&")>后10页→</a><span disabled>】</span>"
End If
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&" 页<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>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
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/brand_1_page.asp' />"&vbCrlf
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&"brand/trade/"&sortid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/brand_1.asp?id="&sortid&"></script>"
fout.Close
End If
'生成分页页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"brand/trade/"&sortid&"-p"&tttid&".html"))
fout.Write pencat&"<script src="&HOPE_InstallDir&"autokind/brand_1_page.asp?pages="&tttid&","&sortid&"></script>"
fout.Close
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
else
Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"brand/trade/"&sortid&".html"))
sort_save.Write pencat&"<script src="&HOPE_InstallDir&"autokind/brand_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="&Cint(currentPage)&"&page2="&Cint(currentPage2+1)&"'>"
Else
Response.Write "<meta http-equiv=Refresh content='0; URL=maketrade.asp?all="&Request("all")&"&page="&Cint(currentPage+1) &"'>"
End If
End If
Set rs=nothing
conn.Close
Set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -