يمكن إرجاع استخدام محرري النص إلى Java ، لكن الكثير من الناس لم يكونوا مهتمين بمحرري النصوص في ذلك الوقت. مقالة اليوم تدور حول تحرير ملفات تحرير. دعنا نتعرف على ذلك مع محرر قناة التكنولوجيا الجديدة الخاطئة!
#العنوان = بناء الجملة الشائع ووظائف ASP
#معلومات
بعض بناء الجملة شائع الاستخدام والوظائف المخصصة في ASP
#الفرز = ن
#t = === بناء جملة شائع لـ ASP ===
#t =======================================
#t = قاعدة البيانات ذات الصلة
#t = الاتصال بالوصول إلى قاعدة البيانات
<٪
Dim Dbname ، Conn
dbname "^!" حدد مسار قاعدة البيانات والاسم
تعيين conn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0 ؛ data source =" & server.mappath (dbname)
٪>
#t = الاتصال بقاعدة بيانات MS SQL
<٪
قاتمة كون
تعيين conn = server.createObject ("adodb.connection")
conn.open "Provider = sqloledb ؛ مصدر البيانات = اسم خادم SQL أو عنوان IP ؛ UID = حساب تسجيل الدخول إلى قاعدة البيانات ؛ pwd = كلمة مرور قاعدة البيانات ؛ قاعدة البيانات = اسم قاعدة البيانات"
٪>
#t = إنشاء مجموعة سجلات
set ^! = server.createObject ("adodb.recordset")
#t = تنفيذ أوامر SQL
Rs.Open SQL ، Conn ، 1،1
#t = تنفيذ أوامر SQL
conn.execute ("^!")
#t = RS ينفذ أوامر SQL مباشرة
تعيين rs = conn.execute ("^!")
#t = أغلق مجموعة السجلات
Rs.close
تعيين روبية = لا شيء
#t = أغلق قاعدة البيانات
conn.close
تعيين conn = لا شيء
#t =======================================
#t = servervariables ذات الصلة
#t = احصل على عنوان الصفحة السابقة
request.servervariables ("http_referer")
#t = خذ اسم الخادم 1
request.ServerVariables ("server_name")
#t = خذ اسم الخادم 2
request.servervariables ("http_host")
#t = احصل على خادم IP
request.ServerVariables ("local_addr")
#t = احصل على IP للمستخدم
request.ServerVariables ("Remote_host")
#t = احصل على IP1 الحقيقي للمستخدم
request.ServerVariables ("REMOTE_ADDR")
#t = احصل على وظيفة IP الحقيقية للمستخدم
وظيفة getRealip ()
getRealip = request.servervariables ("http_x_forwarded_for")
إذا (getRealip = "") ثم getRealip = request.ServerVariables ("REMOTE_ADDR")
وظيفة نهاية
#t = احصل على منفذ الخادم
request.ServerVariables ("Server_port")
#t = احصل على نظام تشغيل الخادم
request.ServerVariables ("OS")
#t = احصل على المسار المطلق للخادم
request.ServerVariables ("Appl_Physical_Path")
#t = خذ المسار المطلق 1 من هذا الملف
requet.servervariables ("path_translated")
#t = خذ المسار المطلق 2 من هذا الملف
server.mappath (request.servervariables ("script_name"))
#t = خذ المسار النسبي 1 من هذا الملف
request.ServerVariables ("url")
#t = خذ المسار النسبي 2 من هذا الملف
request.ServerVariables ("Script_Name")
#t = خذ المسار النسبي 3 من هذا الملف
request.servervariables ("path_info")
#t = المعلمات بعد شريط العناوين
request.ServerVariables ("Query_String")
#t = الحصول على معلومات نظام الخادم
request.servervariables ("http_user_agent")
#t = اكتشاف مكون الخادم
<٪
وظيفة isobjinstalled (strclassstring)
عند استئناف الخطأ التالي
isobjinstalled = false
خطأ = 0
قاتمة xtestobj
SET XTESTOBJ = Server.CreateBject (StrClassString)
إذا (0 = err) ثم isobjinstalled = true
تعيين xtestobj = لا شيء
خطأ = 0
وظيفة نهاية
"إذا (isobjinstalled (" persits.upload ") = صحيح) ثم
'Response.write "دعم مكونات aspupload"
'آخر
"الاستجابة. المكون" مكون aspupload غير مدعوم "
'end if
٪>
#t = احصل على لغة العميل
^! request.servervariables ("http_accept_language")
#t = الحصول على معلومات العميل: http_user_agent
^! request.servervariables ("http_user_agent")
#t = احصل على قيمة عنصر قيمة النموذج
request.form ("^!")
#t = احصل على القيمة التي تم تمريرها بواسطة عنوان URL
request.querystring ("^!")
#t = احصل على عنوان عنوان URL الكامل
وظيفة geturl ()
geturl = "http: //" & request.servervariables ("server_n ... .ServerVariables (" url ")
if (request.servervariables ("query_string") <> "") ثم geturl = geturl & "؟"
وظيفة نهاية
#t =======================================
#t = وظائف مخصصة
#t = مرشح أحرف HTML
<٪
'Filter html function function
وظيفة htmlencode (STR)
إذا (str <> "") ثم
str = استبدال (str ، "&" ، "&")
str = استبدال (str ، ">" ، ">")
str = استبدال (str ، "<" ، "<")
str = استبدال (str ، chr (32) ، "")
str = استبدال (str ، chr (9) ، "")
str = استبدال (str ، chr (34) ، "" ")
str = استبدال (str ، chr (39) ، "'')
str = استبدال (str ، chr (13) ، "")
str = استبدال (str ، chr (10) & chr (10) ، "
")
str = استبدال (str ، chr (10) ، "
")
str = استبدال (str ، chr (255) ، "")
إنهاء إذا
htmlencode = str
وظيفة نهاية
٪>
#t = تحقق مما إذا تم إرسال الصفحة السابقة من هذا الموقع
<٪
تحقق مما إذا كانت الصفحة السابقة قد تم تقديمها من هذا الموقع
"العودة: صحيح ، خطأ
'==================================================================================
وظيفة isselfrefer ()
dim shttp_referer ، sserver_name
shttp_referer = cstr (request.servervariables ("http_referer")))
sserver_name = cstr (request.servervariables ("server_name")))
if (mid (shttp_referer ، 8 ، len (sserver_name)) = sserver_name) ثم
isselfrefer = صحيح
آخر
isselfrefer = false
إنهاء إذا
وظيفة نهاية
٪>
#t = مسح جميع علامات HTML
<٪
"مسح علامات HTML
وظيفة StripHTML (HTMLSTR)
قاتمة regex
تعيين regex = جديد regexp
regex.ignorecase = صحيح
regex.global = صحيح
regex.pattern = "<.+؟>"
htmlstr = regex.replace (htmlstr ، "")
htmlstr = استبدال (htmlstr ، "<" ، "<")
htmlstr = استبدال (htmlstr ، ">" ، ">")
htmlstr = استبدال (htmlstr ، chr (10) ، "")
htmlstr = استبدال (htmlstr ، chr (13) ، "")
StripHtml = htmlstr
تعيين regex = لا شيء
وظيفة نهاية
٪>
#t = خذ طول السلسلة
<٪
ابحث عن وظيفة طول السلسلة
وظيفة getLength (STR)
طول خافت
لأني = 1 إلى لين (str)
إذا (ASC (Mid (Str ، i ، 1)) <0 أو ASC (Mid (Str ، i ، 1))> 256) ثم
الطول = الطول+2
آخر
الطول = الطول+1
إنهاء إذا
التالي
getLength = الطول
وظيفة نهاية
٪>
#t = اعتراض سلسلة الطول المحدد
<٪
"اعتراض سلسلة الطول المحدد ، واستخدم الطول الإضافي بدلاً من ...
وظيفة strleft (Str ، Strlen)
إذا (str = "") ثم
strleft = ""
وظيفة الخروج
إنهاء إذا
Dim L ، T ، C ، أنا
str = استبدال (استبدال (استبدال (استبدال (str (str ، "" ، "") ، "") ، "" "، chr (34)) ،"> "،"> ") ،" <"،" <"،" <")
L = Len (Str)
t = 0
لأني = 1 إلى ل
C = ABS (ASC (MID (STR ، I ، 1)))))
إذا (C> 255) ثم
t = t+2
آخر
t = t+1
إنهاء إذا
إذا (t> strlen) ثم
strleft = اليسار (str ، i) و "..."
الخروج ل
آخر
strleft = str
إنهاء إذا
التالي
strleft = استبدال (استبدال (استبدال (strleft ، "" ، "") ، chr (34) ، "") ، ">" ، ">") ، "<" ، "<" ، "<")
وظيفة نهاية
٪>
#t = احصل على معلمات التقديم الآمنة
<٪
'==================================================================================
فحص حقن SQL
دالة الوظيفة: تصفية عروض أسعار فردية في معلمات الأحرف ، الحكم على المعلمات الرقمية ، إذا لم يكن نوعًا رقميًا ، ثم قم بتعيين 0
معنى المعلمة: str ---- المعلمات المراد ترشيحها
'strtype --- نوع المعلمة ، مقسمة إلى نوع الحرف والنوع الرقمي ، نوع الحرف هو "s" والنوع الرقمي هو "i"
'==================================================================================
وظيفة checkstr (str ، strtype)
قاتمة strtmp
strtmp = ""
إذا (strtype = "s") ثم
strtmp = استبدال (trim (str) ، "'" ، "' '')
elseif (strtype = "i") ثم
إذا (isnumeric (str) = false) ثم str = false
strtmp = str
آخر
strtmp = str
إنهاء إذا
checkstr = strtmp
وظيفة نهاية
٪>
#t = مرشح الأحرف السيئة (Badword)
<٪
مرشح الأحرف السيئة (الكلمات السيئة)
وظيفة chkbadwords (fString)
باهت الكلمات السيئة ، bwords ، أنا
Badwords = "أنا اللعنة | اللعنة عليك | اللعنة عليه | اللعنة | كلب | الكلب | العضو التناسلي النسوي | ديك | السلحفاة | الاغتصاب | الجنس | عذراء | zemin | فالون | هونغزي | الموضة"
إذا (لا (isnull (كلمات سيئة) أو isnull (fString))) ثم
bwords = انقسام (كلمات سيئة ، "|")
ل I = 0 إلى Ubound (Bwords)
fString = استبدال (fstring ، bwords (i) ، سلسلة (len (bwords (i)) ، "*"))
التالي
chkbadwords = fString
إنهاء إذا
وظيفة نهاية
٪>
#t = إنشاء كلمة مرور مخصصة عشوائية
<٪
'إنشاء كلمة مرور مخصصة عشوائية
وظيفة makepassword (maxlen)
قاتمة strnewpass
خافت Whatsnext ، العلوي ، السفلي ، intcounter
عشوائي
لـ Intcounter = 1 إلى Maxlen
WhatsNext = int ((1 - 0 + 1) * rnd + 0)
إذا (whatsnext = 0) ثم
'شخصية
العلوي = 90
أقل = 65
آخر
العلوي = 57
أقل = 48
إنهاء إذا
strnewpass = strnewpass & chr (int (((أعلى - أقل + 1) * rnd + lower))
التالي
Makepassword = strnewpass
وظيفة نهاية
'Response.write makepassword (8)
٪>
#t = حافظ على التنسيق inhtml عند ملء textarea
<٪
'==================================================================================
قم بإزالة تنسيق HTML ، يستخدم لإزالة القيمة من قاعدة البيانات وملء مربع الإدخال
"ملاحظة: value ="؟ " يجب أن يكون هذا اقتباسات مزدوجة هنا
'==================================================================================
وظيفة InhTML (STR)
قاتمة ستيم
Stemp = str
inhtml = ""
إذا isnull (stemp) = صحيح إذن
وظيفة الخروج
إنهاء إذا
Stemp = استبدال (Stemp ، "&" ، "&")
Stemp = استبدال (Stemp ، "
"، chr (13))
Stemp = استبدال (Stemp ، "<" ، "<")
Stemp = استبدال (Stemp ، ">" ، ">")
Stemp = استبدال (Stemp ، "" "، Chr (34))
inhtml = Stemp
وظيفة نهاية
٪>
#t = وظيفة التحقق من التعبير العادية
<٪
"وظيفة التحقق من التعبير الجدول العادي تعبير جماعي-strng-string للتحقق
'==================================================================================
وظيفة regexptest (فارن ، strng)
Dim regex ، Retval 'إنشاء متغير.
تعيين regex = جديد regexp 'إنشاء تعبير منتظم.
regex.pattern = وضع مجموعة.
regex.ignorecase = set false 'ما إذا كان حساس الحالة.
Retval = regex.test (strng) 'إجراء اختبار بحث.
regexptest = retval 'قيمة الإرجاع ، إذا لم تتطابق ، فإنها تُرجع خطأ ، إذا كانت متطابقة صحيحة
تعيين regex = لا شيء
وظيفة نهاية
٪>
#t = إنشاء سلاسل عشوائية
<٪
"توليد سلاسل عشوائية
وظيفة rndcode ()
رمز DIM ، كمية
CODESET = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
كمية = 62 'عدد النصوص
عشوائي
Dim Vcode (10) ، vcodes ، i
لأني = 0 إلى 9
vCode (i) = int (rnd * causeSt)
vCodes = vcodes & mid (codeset ، vcode (i) + 1 ، 1)
التالي
rndcode = vcodes
وظيفة نهاية
٪>
#t =======================================
#t = العمليات المتعلقة بـ FSO
#t = تحديد ما إذا كان الدليل موجودًا
<٪
وظيفة isfloderexist (stroldername)
set fso = server.createObject ("scripting.filesystemObject")
إذا (fso.folderexists (stroldername)) ثم
isfloderexist = صحيح
آخر
isfloderexist = false
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
٪>
#t = إنشاء دليل
<٪
CreateFolder (StrolderName)
set fso = server.createObject ("scripting.filesystemObject")
if (fso.folderexists (strolderName) = false) ثم
fso.createfolder (stroldername)
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
٪>
#t = حذف الدليل
<٪
وظيفة DELETEFOLDER (StrolderName)
set fso = server.createObject ("scripting.filesystemObject")
إذا (fso.folderexists (stroldername)) ثم
fso.deletefolder (stroldername)
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
٪>
#t = تحديد ما إذا كان الملف موجودًا
<٪
وظيفة isfilexist (strfilename)
set fso = server.createObject ("scripting.filesystemObject")
إذا (fso.filexists (strfilename)) ثم
isfilexist = صحيح
آخر
isfilexist = false
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
٪>
#t = حذف الملف
<٪
وظيفة deletefile (strfilename)
set fso = server.createObject ("scripting.filesystemObject")
إذا (fso.filexists (strfilename)) ثم
fso.deletefile (strfilename)
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
٪>
#t =======================================
#t = عدة وظائف شائعة الاستخدام من قبل لصوص ASP
<٪
وظيفة BYTETOSTR (VIN)
Dim Streturn ، I ، thischarcode ، innercode ، Hight8 ، Low8 ، NextCharcode
streturn = ""
لأني = 1 إلى lenb (vin)
thischarcode = ASCB (MIDB (VIN ، I ، 1))
إذا (thischarcode <& h80) ثم
Streturn = Streturn & CHR (thischarcode)
آخر
NextCharCode = ASCB (MIDB (VIN ، I+1،1))
Streturn = Streturn & CHR (CLNG (thischarcode) * & H100 + Cint (NextCharCode))
i = i + 1
إنهاء إذا
التالي
bytetostr = streturn
وظيفة نهاية
وظيفة gethttppageContent (url ، الطريقة ، sendstr)
استرجاع قاتمة
set Retrieval = server.createObject ("Microsoft.xmlhttp")
مع استرجاع
طريقة مفتوحة ، url ، false ، "" ، ""
.SetRequestHeader "نوع المحتوى" ، "التطبيق/X-WWW-Form-urlencoded"
.
gethttppageContent = .ResponseBody
تنتهي
تعيين استرجاع = لا شيء
gethttppageContent = bytetostr (gethttppageContent)
وظيفة نهاية
وظيفة regexptext (strng ، regstr)
Dim regex ، المباراة ، المباريات ، retstr
تعيين regex = جديد regexp
regex.pattern = regstr
regex.ignorecase = صحيح
regex.global = صحيح
تعيين المطابقات = regex.execute (strng)
لكل مباراة في المباريات
Retstr = Retstr & regex.replace (match.value ، "$ 1") & "،"
التالي
regexptext = retstr
تعيين regex = لا شيء
وظيفة نهاية
وظيفة StreambyTestobstr (Strbody ، CodeBase)
قاتمة objstream
تعيين OBJStream = server.createBject ("Adodb.stream")
مع objstream
.type = 1
. وضع = 3
.يفتح
. كتابة strbody
.position = 0
.type = 2
.charset = codebase
StreambyTestobstr = .readtext
.يغلق
تنتهي
اضبط OBJStream = لا شيء
وظيفة نهاية
٪>
من خلال ملف التحرير حول EditPlus الذي قدمه محرر قناة التكنولوجيا الجديدة ، أعتقد أن كل شخص لديه فهم معين. إذا كنت ترغب في معرفة المزيد من المحتوى التقني ، فيرجى الاستمرار في الانتباه إلى قناة التكنولوجيا الجديدة!