موصى به: نصائح إعداد ASP لاستخدام FCKEditor 1. افتح ملف fckconfig.js باللغة الافتراضية (نسبة إلى مجلد FCKEditor ، وهو نفسه أدناه) ، وقم بتغيير لغة الكشف التلقائي إلى عدم الكشف ، وتغيير اللغة الافتراضية إلى صينية مبسطة: رمز البرنامج fckconfig.autodeTectLanguage = خطأ ؛ fckconfig.defaultLanguage = 'Zh-Cn' ؛ 2. افتح ملف fckconfig.js في قائمة الخط ، في قائمة الخطوط
<٪ '================================================================
'تم تجميعها: Zhang Hui
رمز المبرمج: WJ008
وقت التجميع: 1 يونيو 2008
"اتبع العنوان: www.wj008.net
"جميع عناوين الملفات المستخدمة بواسطة الوظائف تستخدم العناوين المطلقة
'=========================================================================================
يقوم LoadFile (ملف byval) بتحميل الملف الموجود ويقوم بإنشاء سلسلة لإرجاع محتوى الملف.
'SaveTofile (Byval Strbody ، ملف Byval) حفظ الملف الذي تم تغييره ، Strbody هو السلسلة الجديدة
'Delfile (ملف byval) حذف الملفات الموجودة
قم بتحميل الملف الموجود ، الملف هو مسار الملف
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
وظيفة loadfile (ملف byval)
قاتمة objstream
عند استئناف الخطأ التالي
تعيين OBJStream = server.createBject (ADODB.Stream)
إذا err.number = -2147221005 ثم
Response.write لسوء الحظ ، لا يدعم مضيفك adodb.stream ولا يمكنه استخدام هذا البرنامج
err.clear
استجابة
إنهاء إذا
مع objstream
.type = 2
. وضع = 3
.يفتح
.LoadFromfile File
إذا err.number <> 0 ثم
Response.write file & file ولا يمكن فتحه ، يرجى التحقق مما إذا كان موجودًا!
err.clear
استجابة
إنهاء إذا
.charset = GB2312
.Position = 2
loadfile = .readtext
.يغلق
تنتهي
اضبط OBJStream = لا شيء
وظيفة نهاية
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
وظيفة SaveTofile (Byval Strbody ، ملف Byval) "حفظ الملف المفتوح ، الملف هو مسار الملف المحفوظ ، strbody هو المحتوى المحفوظ
قاتمة objstream
عند استئناف الخطأ التالي
تعيين OBJStream = server.createBject (ADODB.Stream)
إذا err.number = -2147221005 ثم
استجابة. write <div align = 'center'> للأسف ، لا يدعم مضيفك adodb.stream ، ولا يمكنك استخدام هذا البرنامج </div>
err.clear
استجابة
إنهاء إذا
مع objstream
.type = 2
.يفتح
.charset = GB2312
.position = objstream.size
.riteText = strbody
ملف
.يغلق
تنتهي
اضبط OBJStream = لا شيء
وظيفة نهاية
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
دالة delfile (ملف byval)
قاتمة objfilesys
عند استئناف الخطأ التالي
تعيين objfilesys = server.createBject (scripting.filesystemObject)
إذا كان objfilesys.filexist
ملف objfilesys.deletefile
إنهاء إذا
إذا err.number <> 0 ثم
Response.write file & file ولا يمكن حذفها ، قد يكون الملف قيد الاستخدام من قبل النظام!
err.clear
استجابة
إنهاء إذا
تعيين objfilesys = لا شيء
وظيفة نهاية
تحقق مما إذا كان الملف موجودًا
وظيفة checkfile (sfilename)
checkFile = false
قاتمة objfilesys
عند استئناف الخطأ التالي
تعيين objfilesys = server.createBject (scripting.filesystemObject)
إذا كان objfilesys.filexists (sfilename) ثم 'إذا كان الملف موجودًا ، فقم بحذف ملفه كمسار الملف
CheckFile = صحيح
إنهاء إذا
تعيين objfilesys = لا شيء
وظيفة نهاية
تحقق مما إذا كان المجلد موجود
دالة المراجعة (CHK_PATH)
set fso = server.createObject (scripting.filesystemObject)
إذا fso.folderexists (CHK_PATH) = false ثم
checkfolder = false
آخر
checkfolder = صحيح
إنهاء إذا
وظيفة نهاية
احصل على اسم لاحقة الملف
وظيفة getFilext (sfilename)
getFilext = ucase (mid (sfilename ، instrev (sfilename ،.)+1))
وظيفة نهاية
'**************************************************************
'الوظيفة: ASP تحميل الضعف/0 حماية
اسم الوظيفة: truestr (filetrue)
'المعلمات: اسم ملف sfilename
"قيمة الإرجاع: إرجاع صحيح للملف القانوني ، وإلا إرجاع خطأ
'**************************************************************
وظيفة isTrueFilename (sfilename)
Dim Str_len ، pos
str_len = len (sfilename)
pos = instr (sfilename ، chr (0))
إذا pos = 0 أو pos = str_len ثم
isTrueFilename = صحيح
آخر
isTrueFilename = false
إنهاء إذا
وظيفة نهاية
'************************************************************
"الوظيفة: اكتشف ما إذا كان ملف الصورة المحمّل (JPEG ، GIF ، BMP ، PNG) هو حقًا صورة
اسم الوظيفة: truestr (filetrue)
'المعلمات: اسم ملف sfilename (هنا اسم الملف هو المسار الكامل الفعلي للمجلد)
'قيمة الإرجاع: إذا كان ملف صورة بالفعل ، فسيتم إرجاعه بشكل صحيح ، وإلا فإنه سيعود خطأ
'************************************************************
وظيفة 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)
DIM GIF (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 ٪ على استئناف الخطأ التالي d_exsit dim استرجاع dim dim takenhtml وظيفة geturl (url) set retrieval = server.createObject (microsoft.xmlhttp) مع استرجاع. open get ، url ، false ،.
3 صفحات في إجمالي الصفحة السابقة 123 الصفحة التالية