コードコピーは次のとおりです。
<%@言語= 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;