<！ - ＃include file = dbconn.asp->
<％
function readfile（filename）
エラーの再開時に次に再開します
err.clear
'ASPのエラー修正方法
const forreading = 2
const create = false
薄暗いfso
薄暗いts
薄暗いfilepath
ファイルを薄暗くします
薄暗いコンテンツ
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
fso = server.createObject（scripting.filesystemObject）を設定します
filepath = server.mappath（temp）./folderはレコード帳に保存されています
err.number <> 0の場合
Response.writeディレクトリは存在しません
Response.End
ifを終了します
'filename=test.txt ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
thefile = filepath＆/＆＆＆filename
ts = fso.opentextfile（thefile、1）をset
ts.AtendofStreamまで行います
respons.write（＆ts.readline＆）
Response.Write（<br>）
ループ
ts =何も設定しません
FSO =何も設定しません
エンド関数
％>
<％
DIMID
薄暗いファイル名
ID = 6
rs = server.createObject（adodb.Recordset）を設定します
sql = select * from yuan where id =＆id
rs.open sql、cn、1,1
filename = rs（fileload）
％>
<％readfile（filename）％>