<!--#include file="dbconn.asp"--> <% function ReadFile(filename) on error resume next err.clear 'ASP的一種校錯方法 Const ForReading = 2 Const Create = false Dim FSO DIM TS DIM filepath DIM thefile Dim content
'---------------操作地址
Set FSO=server.createobject("scripting.filesystemobject") filepath=server.MapPath("temp") ./記錄本存放的文件夾
if err.number<>0 then response.Write "目錄不存在" response.End end if
'filename="test.txt" ---------test.txt為你從數據庫里讀出的文件名 thefile=filepath&"/"&filename Set TS = FSO.OpenTextFile(thefile,1)
do until Ts.AtEndOfStream Response.Write (""&TS.ReadLine&"") response.write("<br>") loop
Set TS = Nothing Set FSO = Nothing end function %>
<% dim id dim filename id=6 Set rs=Server.CreateObject("ADODB.Recordset") sql="select * from yuan where id="&id rs.open sql,cn,1,1 filename=rs("fileload") %>
