<! - #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)%>