fso:
<%
Dim fso,fil
Const ForWriting=8
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fil=fso. OpenTextFile(Server.MapPath("show.htm"),ForWriting,True)
fil.WriteLine("<html><head><title>fso生成</title></head><body>")
Set conn=Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
…… '连接打开数据库
Do While Not rs.EOF
fil.WriteLine("数据:"&rs(0)&<br>)
rs.MoveNext
Loop
fil.WriteLine("</body></heml>")
fil.close
Response.Write "show.htm"
%>