コードコピーは次のとおりです。
<％@言語= vbscriptcodepage = 936％>
<％
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++Wrance's picture system directory direct reading version 1.0++++++++++++++++++++++++++++++++++++
'++++++++++ demo：http：//www.cnecg.com/pic.asp+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++これは無料のプログラムです。自由に変更できます。提案を投稿する+++++++++++++
'++++++++++++メール：[email protected]、QQ：74028 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'以下は変更です
constuploaddir = "/ecg/upload/news/" 'ファイルを保存するためのディレクトリ
constmaxperpage =ページごとに30'Numberのディスプレイ
consttitle = "+++ __ランスの画像システムディレクトリ直接読み取りversion_" 'タイトル
'コンポーネントがインストールされているかどうかを確認してください
functionisobjinstalled（strclassstring）
isobjinstalled = false
err = 0
dimxtestobj
setxtestobj = server.createobject（strclassstring）
if0 = errthenisobjinstalled = true
setxtestobj =何もない
err = 0
エンド機能
dimstrfilename
dimtotalput、currentPage、TotalPages
dimtruepath、fso、folder、thefile、thisfile、thisfile、filecount、totlesize
strfilename = "？"
ifrequest（ "page"）<> "" then
currentPage = cint（request（ "page"））
それ以外
currentPage = 1
endif
truepath = server.mappath（uploaddir）
ifnotisobjinstalled（ "scripting.filesystemobject"）then
response.write "<b> <fontcolor = red>サーバーはFSO（scripting.filesystemobject）をサポートしていません！この関数は使用できません</font> </b>"
それ以外
setFSO = createObject（ "Scripting.filesystemObject"）
％>
<html>
<head>
<title> <％= title％> </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<styletype = "text/css">
<！ -
。フォント{
フォントサイズ：12px;
色：＃000000;
テキスト装置：なし;
テキストアライグ：センター;
垂直アライイン：中央;
ラインハイト：140％;
}
A：link {
フォントサイズ：12px;
色：＃000000;
テキスト装置：下線;
}
A：ホバー{
フォントサイズ：12px;