<!--#include file="conn.asp"-->
<HTML><HEAD><TITLE>生成頁面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3020" name=GENERATOR>
</HEAD>
<BODY bottomMargin=0 leftMargin=0 topMargin=0 rightMargin=0>
<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">
<%
dim id
id=cint(request.querystring("id"))
if id="" then
id="1"
else
id=cint(request.querystring("id"))
end if
Dim totalnumber
sql="select id from table order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.Movefirst
if not rs.eof then
TotalNumber=rs.recordcount
end if
獲取總數可以用一句代碼代替,這個相信朋友自己可以解決.
rs.close
set rs=nothing
Response.Write "<br><br>" & vbNewLine
Response.Write "<table width='400' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td height='50'>總共 <font color='blue'><b>" & totalnumber & "</b></font> 個頁面，正在生成第 <font color='red'><b>" & ID & "</b></font> 個頁面…… </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Flush
If ID > totalnumber Then
Response.Write "恭喜您操作成功!"
Response.Flush
End If
creat(ID)
id=id 1
Response.Write "<meta http-equiv=""refresh"" content=""1;url=?ID="&id&""">"
%>
</BODY>
</HTML>
<%
Function creat(id)
sql="SELECT * from table where id="&ID
set rs=conn.execute(sql)
dim name
name=rs("name")
conn.execute(sql)
rs.close
set rs=nothing
dim fso
dim znwl
dim art
dim fw
set fso=createobject("scripting.filesystemobject")
set znwl=fso.opentextfile(server.mappath("模板頁"))
art=znwl.readall
znwl.close
art=replace(art,"{$name$}",name)
set fw=fso.createtextfile(server.mappath("生成頁存放位置及頁面名稱"),true)
fw.writeline art
fw.close
set fso=nothing
End Function
%>
