create_index_ok.asp

K风搜索 2.1商业版 完整功能版 后台http://XXXXXX/admin/ 管理帐号：admin 管理密码：admin 安全密码： ks21 网站设置http://XXXXXX/

<!--#include file="../setup.asp"-->
<!--#include file="login_admin.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
if session("rank")<>1 then
response.write "<Script>window.alert('您的管理员级别不能操作！');history.go(-1);</Script>"
end if
%>
<!--#include file="conn.asp"-->
<%
dim fso,ktemplate,ksearch
set fso=createobject("scripting.filesystemobject")
set ktemplate=fso.opentextfile(server.mappath("..\template\create_index.asp"))
ksearch=ktemplate.readall
ktemplate.close
set ktemplate=nothing
set fso=nothing


set rs=server.createobject("adodb.recordset") 
rs.open "select * from sort where sort_id=0",conn,1,1
if rs.eof and rs.bof then
sort_list=""
else
do while not rs.eof
sort_list=sort_list & "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
sort_list=sort_list & "<tr>"
sort_list=sort_list & "<td width='33%' height='50'>"
if not rs.eof then
if rs("move_id")>0 then
sort_list=sort_list & "<span style='font-size: 14px'><a href='dir"&rs("move_url")&"'><b>"&rs("sort")&"</b></a></span>"
else
sort_list=sort_list & "<span style='font-size: 14px'><a href='dir/"&rs("id")&"/'><b>"&rs("sort")&"</b></a></span>"
end if
sort_list=sort_list & "<br>"
sort_list=sort_list & "<span style='line-height: 150%'>"
set rss=conn.execute("select * from sort where sort_id="&rs("id")&" and show=1 order by id")
if rss.eof and rss.bof then
'
else
do while not rss.eof 
if rss("move_id")>0 then
sort_list=sort_list & "<a href='dir"&rss("move_url")&"'>"&rss("sort")&"</a> "
else
sort_list=sort_list & "<a href='dir/"&rs("id")&"/"&rss("id")&"/'>"&rss("sort")&"</a> "
end if
rss.movenext 
loop
end if
rss.close 
set rss = nothing
sort_list=sort_list & "</span>"
rs.movenext
end if
sort_list=sort_list & "</td>"


sort_list=sort_list & "<td width='33%'>"
if not rs.eof then
if rs("move_id")>0 then
sort_list=sort_list & "<span style='font-size: 14px'><a href='dir"&rs("move_url")&"'><b>"&rs("sort")&"</b></a></span>"
else
sort_list=sort_list & "<span style='font-size: 14px'><a href='dir/"&rs("id")&"/'><b>"&rs("sort")&"</b></a></span>"
end if
sort_list=sort_list & "<br>"
sort_list=sort_list & "<span style='line-height: 150%'>"
set rss=conn.execute("select * from sort where sort_id="&rs("id")&" and show=1 order by id")
if rss.eof and rss.bof then
'
else
do while not rss.eof 
if rss("move_id")>0 then
sort_list=sort_list & "<a href='dir"&rss("move_url")&"'>"&rss("sort")&"</a> "
else
sort_list=sort_list & "<a href='dir/"&rs("id")&"/"&rss("id")&"/'>"&rss("sort")&"</a> "
end if
rss.movenext 
loop
end if
rss.close 
set rss = nothing
sort_list=sort_list & "</span>"
rs.movenext
end if
sort_list=sort_list & "</td>"


sort_list=sort_list & "<td width='33%'>"
if not rs.eof then
if rs("move_id")>0 then
sort_list=sort_list & "<span style='font-size: 14px'><a href='dir"&rs("move_url")&"'><b>"&rs("sort")&"</b></a></span>"
else
sort_list=sort_list & "<span style='font-size: 14px'><a href='dir/"&rs("id")&"/'><b>"&rs("sort")&"</b></a></span>"
end if
sort_list=sort_list & "<br>"
sort_list=sort_list & "<span style='line-height: 150%'>"
set rss=conn.execute("select * from sort where sort_id="&rs("id")&" and show=1 order by id")
if rss.eof and rss.bof then
'
else
do while not rss.eof 
if rss("move_id")>0 then
sort_list=sort_list & "<a href='dir"&rss("move_url")&"'>"&rss("sort")&"</a> "
else
sort_list=sort_list & "<a href='dir/"&rs("id")&"/"&rss("id")&"/'>"&rss("sort")&"</a> "
end if
rss.movenext 
loop
end if
rss.close 
set rss = nothing
sort_list=sort_list & "</span>"
rs.movenext
end if
sort_list=sort_list & "</td>"


sort_list=sort_list & "</tr>"
sort_list=sort_list & "</table>"
loop  
end if
rs.close
set rs = nothing


ksearch=replace(ksearch,"[ksearch]WebSite_Title[/ksearch]",WebSite_Title)
ksearch=replace(ksearch,"[ksearch]Web_path[/ksearch]",Web_path)
ksearch=replace(ksearch,"[ksearch]sort_list[/ksearch]",sort_list)

dim khtml
set fso=createobject("scripting.filesystemobject")
set khtml=fso.createtextfile(server.mappath("..\dir.asp"),true)
khtml.writeline ksearch
khtml.close
set khtml=nothing
set fso=nothing
conn.close
set conn=Nothing
response.write "<Script>window.alert('生成分类首页成功！');history.go(-1);</Script>"
%>