📄 adminup.asp
字号:
bigclass_id=rs("id")
rs.close
sql="SELECT * from mi222class where bigclass='"& bigclass &"' and smaclass<>'mi222'"
mi222_smaclass_class=""
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
for i=1 to rs.recordcount
mi222_smaclass_class=" <a href=sort_"&rs("id")&"_1.htm>"&rs("smaclass")&"</a> | "&mi222_smaclass_class
if rs.eof then
exit for
end if
rs.movenext
next
else
mi222_smaclass_class="暂无分类！"
end if
rs.close
end if
end if
if smaclass="mi222" then
sql="SELECT * from news where mi222_bigclass='"& bigclass &"' order by id desc"
mi222_dh=bigclass
class_name=bigclass
else
sql="SELECT * from news where mi222_bigclass='"& bigclass &"' and mi222_smaclass='"& smaclass &"' order by id desc"
mi222_dh="<a href=sort_"&bigclass_id&"_1.htm>"&bigclass&"</a> → "&smaclass
class_name=smaclass&"—"&bigclass
end if
rs.Open sql,conn,1,1
rs.PageSize=page_size
page_count=rs.pagecount
if not rs.bof and not rs.eof then
for i=1 to page_count
mi222_cn=FSOFileRead("mi222mb/sort.html")
mi222_news_list=""
rs.close
rs.Open sql,conn,1,1
rs.PageSize=page_size
rs.AbsolutePage=i
for j=1 to page_size
mi222_news_list=mi222_news_list&"<TR class=title5><TD style='BORDER-BOTTOM: #1b7bce 1px dashed' colSpan=2>· <A href=news/news_"&rs("id")&".htm target=_blank>"&rs("mi222_title")&"</A> ["&rs("mi222_time")&"]</TD></TR>"
rs.movenext
if rs.eof then
exit for
end if
next
if i=1 then
if i=page_count then
page_link="首页 | 上一页 | 下一页 | 尾页 | 共篇 | 每页"&page_size&"篇 | 当前1/1页"
else
page_link="首页 | 上一页 | <a href=sort_"&sort_id&"_"&i+1&".htm>下一页</a> | <a href=sort_"&sort_id&"_"&page_count&".htm>尾页</a> | 共"&rs.recordcount&"篇 | 每页"&page_size&"篇 | 当前1/"&page_count&"页"
end if
else
if i<page_count then
page_link="<a href=sort_"&sort_id&"_1.htm>首页</a> | <a href=sort_"&sort_id&"_"&i-1&".htm>上一页</a> | <a href=sort_"&sort_id&"_"&i+1&".htm>下一页</a> | <a href=sort_"&sort_id&"_"&page_count&".htm>尾页</a> | 共篇 | 每页"&page_size&"篇 | 当前"&i&"/"&page_count&"页"
elseif i=page_count then
page_link="<a href=sort_"&sort_id&"_1.htm>首页</a> | <a href=sort_"&sort_id&"_"&i-1&".htm>上一页</a> | 下一页 | 尾页 | 共"&rs.recordcount&"篇 | 每页"&page_size&"篇 | 当前"&i&"/"&page_count&"页"
end if
end if
mi222_cn=replace(mi222_cn,"※一级分类※",bigclass)
if smaclass="mi222" then
mi222_cn=replace(mi222_cn,"※二级分类※","0")
else
mi222_cn=replace(mi222_cn,"※二级分类※",smaclass)
end if
mi222_cn=replace(mi222_cn,"※分类名称※",class_name)
mi222_cn=replace(mi222_cn,"※网站名称※",mi222_name)
mi222_cn=replace(mi222_cn,"※关键词※",class_key)
mi222_cn=replace(mi222_cn,"※网站网址※",mi222_url)
mi222_cn=replace(mi222_cn,"※文章分类※",class_name)
mi222_cn=replace(mi222_cn,"※分类导航※",mi222_smaclass_class)
mi222_cn=replace(mi222_cn,"※网站导航※",mi222_dh)
mi222_cn=replace(mi222_cn,"※文章列表※",mi222_news_list)
mi222_cn=replace(mi222_cn,"※分类列表※",mi222_class())
mi222_cn=replace(mi222_cn,"※网站版权※",mi222_bq)
mi222_cn=replace(mi222_cn,"※页面导航※",page_link)
mi222_cn=replace(mi222_cn,"※站长QQ※",mi222_qq)
mi222_cn=replace(mi222_cn,"※网站Email※",mi222_email)
if mi222_ads_1<>"" then
mi222_cn=replace(mi222_cn,"※广告1※",mi222_ads_1)
end if
if mi222_ads_2<>"" then
mi222_cn=replace(mi222_cn,"※广告2※",mi222_ads_2)
end if
if mi222_ads_3<>"" then
mi222_cn=replace(mi222_cn,"※广告3※",mi222_ads_3)
end if
if mi222_ads_4<>"" then
mi222_cn=replace(mi222_cn,"※广告4※",mi222_ads_4)
end if
if mi222_ads_5<>"" then
mi222_cn=replace(mi222_cn,"※广告5※",mi222_ads_5)
end if
if mi222_ads_6<>"" then
mi222_cn=replace(mi222_cn,"※广告6※",mi222_ads_6)
end if
if mi222_ads_7<>"" then
mi222_cn=replace(mi222_cn,"※广告7※",mi222_ads_7)
end if
if mi222_ads_8<>"" then
mi222_cn=replace(mi222_cn,"※广告8※",mi222_ads_8)
end if
if mi222_ads_9<>"" then
mi222_cn=replace(mi222_cn,"※广告9※",mi222_ads_9)
end if
if mi222_ads_10<>"" then
mi222_cn=replace(mi222_cn,"※广告10※",mi222_ads_10)
end if
FilePath="../sort_"&sort_id&"_"&i&".htm"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(server.mappath(FilePath),true)
Fout.WriteLine mi222_cn
sort_count=sort_count+1
if rs.eof then
exit for
end if
next
rs.close
else
rs.close
mi222_news_list="<TR class=title5><TD style='BORDER-BOTTOM: #1b7bce 1px dashed' colSpan=2>· 暂无文章！</TD></TR>"
mi222_cn=replace(mi222_cn,"※分类名称※",class_name)
mi222_cn=replace(mi222_cn,"※网站名称※",mi222_name)
mi222_cn=replace(mi222_cn,"※关键词※",class_key)
mi222_cn=replace(mi222_cn,"※网站网址※",mi222_url)
mi222_cn=replace(mi222_cn,"※文章分类※",class_name)
mi222_cn=replace(mi222_cn,"※分类导航※",mi222_smaclass_class)
mi222_cn=replace(mi222_cn,"※网站导航※",mi222_dh)
mi222_cn=replace(mi222_cn,"※文章列表※",mi222_news_list)
mi222_cn=replace(mi222_cn,"※分类列表※",mi222_class())
mi222_cn=replace(mi222_cn,"※网站版权※",mi222_bq)
mi222_cn=replace(mi222_cn,"※页面导航※",page_link)
mi222_cn=replace(mi222_cn,"※站长QQ※",mi222_qq)
mi222_cn=replace(mi222_cn,"※网站Email※",mi222_email)
if mi222_ads_1<>"" then
mi222_cn=replace(mi222_cn,"※广告1※",mi222_ads_1)
end if
if mi222_ads_2<>"" then
mi222_cn=replace(mi222_cn,"※广告2※",mi222_ads_2)
end if
if mi222_ads_3<>"" then
mi222_cn=replace(mi222_cn,"※广告3※",mi222_ads_3)
end if
if mi222_ads_4<>"" then
mi222_cn=replace(mi222_cn,"※广告4※",mi222_ads_4)
end if
if mi222_ads_5<>"" then
mi222_cn=replace(mi222_cn,"※广告5※",mi222_ads_5)
end if
if mi222_ads_6<>"" then
mi222_cn=replace(mi222_cn,"※广告6※",mi222_ads_6)
end if
if mi222_ads_7<>"" then
mi222_cn=replace(mi222_cn,"※广告7※",mi222_ads_7)
end if
if mi222_ads_8<>"" then
mi222_cn=replace(mi222_cn,"※广告8※",mi222_ads_8)
end if
if mi222_ads_9<>"" then
mi222_cn=replace(mi222_cn,"※广告9※",mi222_ads_9)
end if
if mi222_ads_10<>"" then
mi222_cn=replace(mi222_cn,"※广告10※",mi222_ads_10)
end if
FilePath="../sort_"&sort_id&"_1.htm"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(server.mappath(FilePath),true)
Fout.WriteLine mi222_cn
sort_count=sort_count+1
end if
set htmlwrite=Nothing
set fso=Nothing
Response.Write "操作结果：文章分类页生成成功！<br>生成数量："& sort_count &"页。<br>文件路径：网站目录\<br>"
end function
'分类生成函数调用函数
function sort_fun(bigclass,smaclass,page_size)
if bigclass="0" then
sql="SELECT * from mi222class"
rz.Open sql,conn,1,1
if rz.bof or rz.eof then
rz.close
response.Write("请添加分类！")
response.End()
else
for i=1 to rz.recordcount
call sort_htm(rz("bigclass"),rz("smaclass"),page_size)
rz.movenext
next
rz.close
end if
elseif smaclass="mi222" then
sql="SELECT * from mi222class where bigclass='"& bigclass &"'"
rz.Open sql,conn,1,1
if rz.bof or rz.eof then
rz.close
response.Write("请添加分类！")
response.End()
else
for i=1 to rz.recordcount
call sort_htm(bigclass,rz("smaclass"),page_size)
rz.movenext
next
rz.close
end if
else
call sort_htm(bigclass,smaclass,page_size)
end if
end function
mi222=trim(request("mi222"))
if mi222="index" then
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD class=title2 align="center" colspan="2">操作结果</TD>
</TR>
<TR bgColor=#ffffff>
<TD width="20"> </td>
<TD><%=index_htm()%><br>
<br>
<a href="adminup.asp"><strong>返回生成页面</strong></a><br></td>
</TR>
</TABLE>
<%
elseif mi222="sort" then
classname=split(trim(request.Form("classname")),";")
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD class=title2 align="center" colspan="2">操作结果</TD>
</TR>
<TR bgColor=#ffffff>
<TD width="20"> </td>
<TD><%=sort_fun(classname(0),classname(1),20)%><br>
<br>
<a href="adminup.asp"><strong>返回生成页面</strong></a><br></td>
</TR>
</TABLE>
<%
elseif mi222="news" then
classname=split(trim(request.Form("classname")),";")
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD class=title2 align="center" colspan="2">操作结果</TD>
</TR>
<TR bgColor=#ffffff>
<TD width="20"> </td>
<TD><%=news_htm(0,classname(0),classname(1))%><br>
<br>
<a href="adminup.asp"><strong>返回生成页面</strong></a><br></td>
</TR>
</TABLE>
<%
else
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD class=title2 align="center">生成页面</TD>
</TR>
<form name="form1" method="post" action="adminup.asp?mi222=index">
<TR bgColor=#ffffff>
<TD height="40">
<input type="submit" name="Submit" value=" 点击生成首页 "></TD>
</TR>
</form>
<form name="form1" method="post" action="adminup.asp?mi222=sort">
<TR bgColor=#ffffff>
<TD height="40">
<select name="classname" id="classname">
<option value="0;0" selected>├生成全部</option>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mi222class order by bigclass,id"
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
%>
<%
for i=1 to rs.recordcount
if rs("smaclass")="mi222" then
%>
<option value=<%=rs("bigclass")&";"&rs("smaclass")%>>├<%=rs("bigclass")%></option>
<%
else
%>
<option value=<%=rs("bigclass")&";"&rs("smaclass")%>> ├ - <%=rs("smaclass")%></option>
<%
end if
rs.movenext
if rs.eof then exit for
next
else
%>
<option value="0">暂无分类信息</option>
<%
end if
rs.close
%>
</select>
<input type="submit" name="Submit" value=" 点击生成分类页 "></TD>
</TR>
</form>
<form name="form1" method="post" action="adminup.asp?mi222=news">
<TR bgColor=#ffffff>
<TD height="40">
<select name="classname" id="classname">
<option value="0;0" selected>├生成全部</option>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mi222class order by bigclass,id"
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
%>
<%
for i=1 to rs.recordcount
if rs("smaclass")="mi222" then
%>
<option value=<%=rs("bigclass")&";"&rs("smaclass")%>>├<%=rs("bigclass")%></option>
<%
else
%>
<option value=<%=rs("bigclass")&";"&rs("smaclass")%>> ├ - <%=rs("smaclass")%></option>
<%
end if
rs.movenext
if rs.eof then exit for
next
else
%>
<option value="0">暂无分类信息</option>
<%
end if
rs.close
%>
</select>
<input type="submit" name="Submit" value=" 点击生成文章页 "></TD>
</TR>
</form>
</TABLE>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -