📄 html_makepr.asp
字号:
<!--#include file="INC/HTMLPRODUCT.ASP"--><!--#include file="admin.ASP"-->
<%
dim title
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 1 * from Bs_Sysdata"
rs_news.open sqltext4,conn,1,1
title=rs_news("BsCompanyName")
rs_news=nothing
rs_news.close
page=Trim(Request.QueryString("Page"))
Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Title>管理中心</title>"
Response.Write "<Meta Http-Equiv=""Content-Type"" Content=""Text/Html; CharSet=Gb2312"">"
Response.Write "<Link Type=""Text/Css"" Rel=""StyleSheet"" Href=""Images/style.css"">"
Response.Write "</Head>"
If Request("Page")<>"" Then
If Cint(Request("Page"))<1 Then
CurrentPage=1
Else
CurrentPage=Cint(Request("Page"))
End If
End If
If Request("Page")="" Then
CurrentPage=0
End If
Dim Rs1,Sql1,Moban
Set Rs1=Server.CreateObject("ADODB.RecordSet")
Sql1 ="Select Mb From Moban where ID=2 "
Set Rs1=Conn.Execute (Sql1)
Moban=Rs1("Mb")
Moban1=Moban
strsmallclass="<TABLE cellSpacing=0 cellPadding=0 width=99% border=0>"
set rsbig = server.CreateObject ("adodb.recordset")
sql="select * from BigClass"
rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
Response.Write "栏目正在建设中……"
else
i=1
do while not rsbig.eof
strsmallclass=strsmallclass&"<TR><TD language=javascript onmouseup=""opencat(cat10"&i&"000, img10"&i&"000);"" id=item$pval[catID]) style=""CURSOR: hand"" width=34 height=24 align=center><IMG id=img10"&i&"000 src=img/class1.gif width=20 height=20></TD><TD width=662><a href='List_"&rsbig("BigClassID")&"_1.html'>"&rsbig("BigClassName")&"</a></TD></TR><TR>"
strsmallclass=strsmallclass&"<TD id=cat10"&i&"000 "
if rsbig("BigClassName")=BigClassName then
strsmallclass=strsmallclass&"style='DISPLAY' "
else
strsmallclass=strsmallclass&"style='DISPLAY: none' "
end if
strsmallclass=strsmallclass&"colspan=2>"
set rsSmall = server.CreateObject ("adodb.recordset")
sqls="select * from SmallClass where BigClassName='" & rsbig("BigClassName") & "' order by SmallClassID"
rsSmall.open sqls,conn,1,1
if rsSmall.eof and rsSmall.bof then
strsmallclass=strsmallclass&"没有小类"
else
j=1
do while not rsSmall.eof
strsmallclass=strsmallclass&" <IMG height=20 src=img/class3.gif width=26 align=absMiddle border=0><a href=Slist_"&rsSmall("SmallClassId")&"_1.html>"&rsSmall("SmallClassName")&"</a><BR>"
rsSmall.movenext
j=j+1
loop
end if
rsSmall.close
set rsSmall=nothing
strsmallclass=strsmallclass&"</TD></TR>"
rsbig.movenext
i=i+1
loop
rsbig.close
set rsbig=nothing
end if
strsmallclass=strsmallclass&"</TABLE>"
set rsRoot=server.createobject("adodb.recordset")
sql="select * From MenuClass where Depth=0 and ShowOnTop=True order by RootID"
rsRoot.open sql,conn,1,1
strtitle=""
do while not rsRoot.eof
ParentID=rsroot("classID")
strtitle=strtitle&"<li><a href="& rsroot("linkurl") &">"& rsroot("Classname") &"</a>"
strtitle=strtitle&"</strong><ul>"
set rsRoot1=server.createobject("adodb.recordset")
sql1="select * From MenuClass where Depth=1 and ShowOnTop=True and ParentID="& ParentID &" order by RootID"
rsRoot1.open sql1,conn,1,1
do while not rsRoot1.eof
strtitle=strtitle&"<li><a href="& rsroot1("linkurl")&">"& rsroot1("Classname")&"</a></li>"
RSROOT1.MOVENEXT
LOOP
RSROOT1=NOTHING
RSROOT1.CLOSE
strtitle=strtitle&"</ul>"
strtitle=strtitle&"</li>"
RSROOT.MOVENEXT
LOOP
RSROOT=NOTHING
RSROOT.CLOSE
Rs.open("Select * From Product order by UpDatetime Desc"),Conn,1,1
If Rs.Eof And Rs.bof Then
body=body&"<DIV style=float:left; text-align:center;border:10px solid silver;margin:0;>"
body=body&"<DL class=feature-lei>"
body=body&"<DT>"
body=body&"<DD><font color=#777777>暂时没有产品</font></DD></DL></DIV>"
PageCount1=1
Totalnumber=0
Else
Maxperpage=4
Rs.Pagesize=MaxperPage
PageCount1=Rs.PageCount
Rs.Move (CurrentPage-1)*MaxperPage
Totalnumber=Rs.RecordCount
N=0
'分页程序
plist_bottom=plist_bottom&"<table border=""0"" cellpadding=""0"" cellspacing=""0"">"
plist_bottom=plist_bottom&"<TBODY>"
plist_bottom=plist_bottom&"<TR>"
plist_bottom=plist_bottom&"<td width=""260"" align=""center"" valign=""middle"">"
plist_bottom=plist_bottom&"<b>"&Rs("ClassID")&"</b> "
plist_bottom=plist_bottom&"共有<b>"&Totalnumber&"</b>部 "
plist_bottom=plist_bottom&"当前:第<b>"&CurrentPage&"</b>页/共<b>"&PageCount1&"</b>页</td>"
plist_bottom=plist_bottom&"<td width=""160"" align=""left"" valign=""middle"">"
Pageno=CurrentPage
If cint(Pageno)>1 Then
plist_bottom=plist_bottom&"<a href=ProductList_1.html title=""首页"">"
End If
plist_bottom=plist_bottom&"首页</a> "
If Cint(Pageno)>1 Then
plist_bottom=plist_bottom&"<a href=ProductList_"&Pageno-1&".html title=""上一页"">"
End If
plist_bottom=plist_bottom&"上一页</a> "
If Cint(Pageno)< PageCount1 Then
plist_bottom=plist_bottom&"<a href=ProductList_"&Pageno+1&".html title=""下一页"">"
End If
plist_bottom=plist_bottom&"下一页</a> "
If Cint(Pageno)< Pagecount1 Then
plist_bottom=plist_bottom&"<a href=ProductList_"&PageCount1&".html title=""尾页"">"
End If
plist_bottom=plist_bottom&"尾页</a></td>"
plist_bottom=plist_bottom&"<td width=""80"" align=""left"" valign=""middle""><select name=""select"" style=""font-size: 8pt"" onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"
For I=1 to PageCount1
Selected=""
If Currentpage=I Then
Selected=" Selected"
End If
plist_bottom=plist_bottom&"<option value=ProductList_"&I&".html"&Selected&">第"&I&"页</option>"
Next
plist_bottom=plist_bottom&"</select>"
plist_bottom=plist_bottom&"</td></TR></TBODY></TABLE>"
'主页面
body=body&"<DIV id=featured-sites>"
Row_Count=1
do while not rs.eof
N=N+1
Dta=FormatDateTime(Rs("UpDateTime"),2)
Til=Rs("Title")
Clas=Rs("BigClassName")
Hit=Rs("Hits")
body=body&"<DIV class=bel>"
body=body&"<DIV class=mbcon>"
body=body&"<DIV class=dp1><A href=Product_"&Rs("id")&".html target=_blank><IMG height=100 src=../"&Rs("DefaultPicUrl")&" width=110 align=left border=0></A></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV>"
body=body&"<DIV class=dtt1><B><A href=Product_"&rs("id")&".html target=_blank>"&Rs("title")&"</A></B>"
body=body&"<P>产品编号："&Rs("Product_ID")&"</P><P>产品规格："&Rs("Spec")&"</P><P>产品类别："&Rs("BigClassName")&"</P></DIV>"
body=body&"<DIV class=dtt1><B><A href=Product_"&rs("id")&".html target=_blank class=button_shou></A><A href=Product_"&rs("id")&".html target=_blank class=button_gou></A></B><P> </P>"
body=body&"<P>产品售价："&Rs("Price")&"</P><P>产品备注："&Rs("Memo")&"</P><P>产品信息："&Rs("tui")&"</P></DIV>"
body=body&"<DIV class=x></DIV></DIV></DIV>"
if row_count mod 2 =0 then
body=body&"<br>"
end if
row_count=row_count+1
if n>=MaxPerPage then exit do
rs.movenext
loop
rs.close
end if
body=body&"</DIV>"
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 6 * from FriendLinks where linktype=2 and ISOK=true order by id desc"
rs_Product.open sqltext,conn,1,1
strleft=""
do while not rs_product.eof
strleft=strleft&"<li class=Fs_KstdLi>·<a href="& rs_Product("siteurl") &" target=_blank>"& rs_Product("sitename") &"</b></a></li>"
rs_product.movenext
loop
rs_product.close
set rs_product=nothing
Moban=Replace(Moban,"<!-strleft->",strleft)
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
Moban=Replace(Moban,"<!-strsearch->",strsearch)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
Moban=Replace(Moban,"<!-body->",body)
Moban=Replace(Moban,"<!-plist_bottom->",plist_bottom)
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("Html/ProductList_"&Request("Page")&".html"))
Fout.Write Moban
Fout.Close
If CurrentPage<PageCount1 Then
Response.Write "·<b>生成第 <font color=#FF0000> "&CurrentPage&" </font> 页</b><br>·<b>共有 <font color=#FF0000>"&PageCount1&"</font> 页</b>"
Response.Write "<Meta http-equiv=Refresh content='0; URL=Html_Makepr.asp?page="&Cint(CurrentPage+1)&"'>"
End If
If CurrentPage=PageCount1 Then
Response.Write "<body>"
Response.Write "<p><br>"
Response.Write "·<b>成功：生成 <font color=""#FF0000"">"&CurrentPage&"</font> 页</b><br>"
Response.Write "·此类共有 <font color=""#ff0000"">"&PageCount1&"</font> 页,自动关闭窗口！"
Response.Write "<script LANGUAGE=""JavaScript"">"
Response.Write "<!--"
Response.Write "setTimeout('window.close();', 700);"
Response.Write "// -->"
Response.Write "</script>"
Response.Write "</p>"
Response.Write "</body>"
End If
Rs1.Close
Set Rs1=nothing
Set Rs=nothing
Conn.Close
Set Conn=nothing
Response.Write "</html>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -