<%
Response.Buffer = True
on error resume next
Dim Conn
Sub OpenConn()
Dim DataURL
set Conn=server.createobject("ADODB.CONNECTION")
DataURL=server.mappath("inc/ookk.asp")
Conn.open"provider=microsoft.jet.oledb.4.0;data source="&DataURL
if err then
Response.Write "conn error!"
Response.End()
end if
End Sub
Sub CloseConn()
Conn.Close
Set Conn = Nothing
End Sub
%>
<%
'-------生成所有大类和小类壁纸列表,大类列表页：/cars/'c_ename'/wallpaper_1.html,小类列表页：/cars/'c_ename'/'m_name'_wallpaper_1.htm
dim filename,rs,sql,title,key,mfile
Dim nextpage '上一页
Dim prepage '下一页
filename="web.asp"
maxfsopage=100
page=trim(request("page"))
if page="" or (not isnumeric(page)) then
page=1
else
page=cint(page)
end if
set rs=server.CreateObject("adodb.recordset")
openconn()
FsoForAll
Response.write("")
set rs=nothing
closeconn()
'---生成所有壁纸显示页
function FsoForAll()
Dim indexstr
indexstr=""
sql="select id,title,keywords from news1"
rs.open sql,conn,1,1
total=rs.recordcount
if (total mod maxfsopage =0) then
totalpage=total/maxfsopage
else
totalpage=int(total/maxfsopage)+1
end if
if page<=totalpage then
Response.Write "生成显示页: "&page&"/"&totalpage&"
"
else
Response.Write "生成显示页 OK! Total: "&totalpage&" page Click to Index"
set rs=nothing
closeconn()
response.End()
end if
rs.move (page-1)*maxfsopage
y=1
do while not rs.eof and y<=maxfsopage
key=rs("keywords")
title=rs("title")
Dim nextid
Dim preid
nextid=getNextID(rs("id"))
preid=getPreID(rs("id"))
If nextid=0 Then
nextpage="没有了"
Else
nextpage=""&gettitle(nextid)&""
End If
If preid=0 Then
prepage="没有了"
Else
prepage=""&gettitle(preid)&""
End If
mfile="/news/090427_"&rs("id")&".html"
indexstr=indexstr & ""&rs("title")&"" & "
"
FsoInfo
y=y+1
rs.movenext
loop
rs.close
Call fsoindex(indexstr)
end function
Function getNextID(id)
Dim rs
Dim sql
sql="select top 1 id from news1 where id>"&id&" order by id asc"
Set rs=conn.execute(sql)
If rs.eof Then
getNextID=0
Else
getNextID=rs(0)
End If
End Function
function getTitle(id)
Dim rs
Dim sql
sql="select title from news1 where id="&id&" order by id asc"
Set rs=conn.execute(sql)
If rs.eof Then
getTitle="err"
Else
getTitle=rs(0)
End if
end function
Function getPreID(id)
Dim rs
Dim sql
sql="select top 1 id from news1 where id<"&id&" order by id desc"
Set rs=conn.execute(sql)
If rs.eof Then
getPreID=0
Else
getPreID=rs(0)
End If
End Function
function FsoInfo()
Set fso=CreateObject("Scripting.FileSystemObject")
finame=server.mappath("user.html")
Set objCountFile = fso.OpenTextFile(finame,1,True)
source=objCountFile.readall
source=replace(source,"$title$",title)
source=replace(source,"$key$",key)
source=replace(source,"$nextpage$",nextpage)
source=replace(source,"$prepage$",prepage)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(mfile),True)
objCountFile.Write source
set fso=nothing
set objCountFile=nothing
set objFSO=nothing
response.write("write: "&mfile&"
")
response.flush
end Function
Function fsoindex(str)
Dim filename
filename="/link.html"
Dim objFso,objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write str
Set objCountFile=nothing
set objFSO=nothing
response.write("write: "&filename&"
")
response.flush
End Function
%>