推奨:FCKEDITORを使用するためのASP設定ヒント1. fckconfig.jsファイルをデフォルト言語で開き(FCKEDITORフォルダーと比較して以下)、自動検出言語を非検出に変更し、デフォルト言語を簡素化された中国語に変更します。 fckconfig.defaultlanguage = 'zh-cn'; 2.フォントリストでFCKCONFIG.jsファイルを開きます。
<% '=================================================================
'編集者:Zhang Hui
'プログラマコード:WJ008
'編集時間:2008年6月1日
'アドレスをフォローしてください:www.wj008.net
'関数で使用されるすべてのファイルアドレスは絶対アドレスを使用します
'===========================================================================================
'loadfile(byvalファイル)既存のファイルをロードし、文字列を生成してファイルのコンテンツを返します。
'savetofile(byval strbody、byvalファイル)変更されたファイルを保存、strbodyは新しい文字列です
'delfile(byvalファイル)既存のファイルを削除します
'既存のファイルをロードすると、ファイルはファイルパスです
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function loadfile(byvalファイル)
DIM OBJSTREAM
エラーの再開時に次に再開します
objstream = server.createobject(adodb.stream)を設定します
err.number = -2147221005の場合
respons.write残念ながら、ホストはadodb.streamをサポートせず、このプログラムを使用できません
err.clear
Response.End
ifを終了します
objstreamで
.type = 2
.mode = 3
。開ける
.loadfromfileファイル
err.number <> 0の場合
respons.write file&file&opinedできない場合は、存在するかどうかを確認してください!
err.clear
Response.End
ifを終了します
.charset = gb2312
.position = 2
loadfile = .readText
。近い
で終わります
objstream = Nothingを設定します
エンド関数
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function savetofile(byval strbody、byvalファイル) '開いたファイルを保存し、ファイルは保存されたファイルパス、strbodyは保存されたコンテンツです
DIM OBJSTREAM
エラーの再開時に次に再開します
objstream = server.createobject(adodb.stream)を設定します
err.number = -2147221005の場合
respons.write <div align = 'center'>残念ながら、ホストはadodb.streamをサポートせず、このプログラムを使用することはできません</div>
err.clear
Response.End
ifを終了します
objstreamで
.type = 2
。開ける
.charset = gb2312
.position = objstream.size
.writeText = strbody
.savetofileファイル、2
。近い
で終わります
objstream = Nothingを設定します
エンド関数
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function delfile(byvalファイル)
Dim objfilesys
エラーの再開時に次に再開します
objfilesys = server.createobject(scripting.filesystemobject)を設定します
objfilesys.fileexists(file)の場合、 'ファイルが存在する場合は、ファイルパスとしてファイルを削除します
objfilesys.deletefileファイル
ifを終了します
err.number <> 0の場合
Response.Writeファイルとファイルを削除できません。ファイルはシステムによって使用されている場合があります!
err.clear
Response.End
ifを終了します
objfilesys =何も設定しません
エンド関数
'ファイルが存在するかどうかを確認してください
function checkfile(sfilename)
checkfile = false
Dim objfilesys
エラーの再開時に次に再開します
objfilesys = server.createobject(scripting.filesystemobject)を設定します
objfilesys.fileexists(sfileName)の場合、 'ファイルが存在する場合、ファイルパスとしてファイルを削除します
checkfile = true
ifを終了します
objfilesys =何も設定しません
エンド関数
'フォルダーが存在するかどうかを確認してください
関数checkfolder(chk_path)
fso = server.createObject(scripting.filesystemObject)を設定します
fso.folderexists(chk_path)= falseの場合
checkfolder = false
それ以外
checkfolder = true
ifを終了します
エンド関数
'ファイルの接尾辞名を取得します
function getFileExt(sfileName)
getFileExt = ucase(Mid(sfileName、instrrev(sfileName、。)+1))
エンド関数
'**********************************************
'機能:ASPアップロード脆弱性/0保護
'関数名:TrueStre(Filetrue)
'パラメーター:sfileNameファイル名
'返品値:法的ファイルの場合はtrueを返し、それ以外の場合はfalseを返します
'**********************************************
関数ISTRUEFILENAME(SFILENAME)
dim str_len、pos
str_len = len(sfilename)
pos = strust(sfilename、chr(0))
pos = 0またはpos = str_lenの場合
ISTRUEFILENAME = true
それ以外
ISTRUEFILENAME = false
ifを終了します
エンド関数
'**********************************************
'機能:アップロードされた画像ファイル(JPEG、GIF、BMP、PNG)が本当に画像であるかどうかを検出します
'関数名:TrueStre(Filetrue)
'パラメーター:sfileNameファイル名(ここでファイル名はフォルダーの物理的なフルパスです)
'戻り値:それが実際に画像ファイルである場合、それはtrueを返します、それ以外の場合はfalseを返します
'**********************************************
関数isimgfile(sfilename)
const adtypebinary = 1
薄暗いリターン
dim jpg(1):jpg(0)= cbyte(&hff):jpg(1)= cbyte(&hd8)
DIM BMP(1):BMP(0)= CBYTE(&H42):BMP(1)= CBYTE(&H4D)
DIM PNG(3):PNG(0)= CBYTE(&H89):PNG(1)= CBYTE(&H50):PNG(2)= CBYTE(&H4E):PNG(3)= CBYTE(&H47)
DIMGIF(5):GIF(0)= CBYTE(&H47):GIF(1)= CBYTE(&H49):GIF(2)= CBYTE(&H46):GIF(3)= CBYTE(&H39):GIF(4)= CBYTE(&H38):GIF(5)= CBYTE(&H61)
エラーの再開時に次に再開します
共有:ドメイン名クエリASPバージョンのデータベースインターフェイスエラーの%履歴書
前のページの合計123ページ次のページ