fso_a-z.asp

全站生成htm静态页面

<!--#include file="function.asp"-->
<%CheckAdmin3%>
<!--#include file=Conn.asp-->
<!--#include file="config.asp"-->
<%
Set fso = CreateObject("Scripting.FileSystemObject")
'**********读取模板文件
if application("load_singeraz")<>"ok" then
tmp = Server.MapPath("AZ.HTM")
Set tmp = fso.OpenTextFile(tmp)
DO While not tmp.AtEndOfStream
application("t_singeraz")=tmp.ReadAll
Loop
tmp.close
set tmp=nothing
application("load_singeraz")="ok"
end if
'**********读取模板文件完成
set rs = Server.CreateObject("ADODB.Recordset")
if request("id")<>"" then
ID=request("id")
filepath="../index/"&ID&".htm"
sql = "SELECT NClassID,NClass FROM Nclass where  Abcd='"&ID&"' order by Abcd"
elseif request("k")<>"" then

k=request("k")
sql = "SELECT NClassID,NClass FROM Nclass where  Abcd='"&chr(k)&"' order by Abcd"
filepath="../index/"&chr(k)&".htm"
else
k=65
sql = "SELECT NClassID,NClass FROM Nclass where  Abcd='"&chr(k)&"' order by Abcd"
filepath="../index/"&chr(k)&".htm"
end if
rs.open sql,conn,1,1

if not rs.eof then
i=0
do while not rs.eof
i=i+1

str111=str111&"<td width=30>"&i&" </td><td width=130><a href='../mtv/"&rs("NClassID")&"_1.htm'>"&rs("NClass")&"</a></td>"
 if i mod 3 =0 then
    str111=str111&"<TR align=middle>"

end if
rs.movenext
loop
end if
pencat=application("t_singeraz")
pencat=replace(pencat,"{webname}",webname)
pencat=replace(pencat,"{weburl}",weburl)
pencat=replace(pencat,"{master}",master)
pencat=replace(pencat,"{masterQQ}",masterQQ)
pencat=replace(pencat,"SINGERLIST_A-Z",str111)
setf = Server.MapPath(filepath)
Set setf = fso.OpenTextFile(setf,2,True)
Setf.WriteLine pencat
if request("id")<>"" then
application("load_singeraz")=""
else
i=k+1
if i>90 then

else
if i=90 then
RESPONSE.WRITE("A-Z 生成完成")
application("load_singeraz")=""
end if
response.write("<script>location.href='fso_A-Z.asp?k="&i&"'</script>")
end if
end if
RESPONSE.WRITE("A-Z 生成完成")
%>