الموصى بها: الوظيفة العامة لـ ASP لتحديد ما إذا كانت قيمة قاعدة البيانات فارغة نظرًا لخصائص مختلفة من الحقول المختلفة ، فإن طرق تحديد ما إذا كان الحقل فارغًا أيضًا مختلفة. فيما يلي وظيفة عامة ، تتجنب ألم نوع الحقل. "تحقق من المتغير ليس وظيفة فارغة ISBLANK (BYREF TEMPVAR)" افتراضيًا ، افترض أنها ليست فارغة isBlank = false "الآن تحقق من المتغير ر
مجموعة من الوظائف المفيدة في تطوير ASP مفيدة للغاية ، يرجى الاحتفاظ بها!
'******************************************
"قطع المحتوى - انقسام سطر
'******************************************
تقسيم الوظائف (محتوى byval ، byval contentNums)
Dim TS ، أنا ، ل
contentNums = int (contentNums)
إذا isnull (محتوى) ثم الخروج وظيفة
أنا = 1
TS = 0
لأني = 1 إلى لين (المحتوى)
l = lace (منتصف (المحتوى ، أنا ، 5))
إذا l = <br/> ثم
TS = TS+1
إنهاء إذا
l = lace (منتصف (المحتوى ، i ، 4))
إذا l = <br> ثم
TS = TS+1
إنهاء إذا
l = lace (منتصف (المحتوى ، i ، 3))
إذا l = <p> ثم
TS = TS+1
إنهاء إذا
إذا ts> contentNums ثم الخروج من أجل
التالي
إذا ts> contentNums ثم
المحتوى = اليسار (المحتوى ، I-1)
إنهاء إذا
splitlines = المحتوى
وظيفة نهاية
'******************************************
"قطع المحتوى - مقسمة حسب الحرف
'******************************************
وظيفة CutStr (Byval Str ، Byval Strlen)
Dim L ، T ، C ، أنا
إذا isnull (str) ثم cutStr =: وظيفة الخروج
L = Len (Str)
strlen = int (strlen)
t = 0
لأني = 1 إلى ل
C = ASC (Mid (Str ، I ، 1))
إذا كان C <0 أو C> 255 ثم t = t+2 else t = t+1
إذا t> = strlen ثم
cutstr = اليسار (str ، i) ...
الخروج ل
آخر
cutstr = str
إنهاء إذا
التالي
وظيفة نهاية
'******************************************
حذف العلامة المرجعية
'******************************************
وظيفة delquote (strcontent)
إذا isnull (strcontent) ثم وظيفة الخروج
قاتمة إعادة
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern =/[QUOTE //201 (.
strcontent = re.replace (strcontent ،)
re.pattern =/[quote = (. [^/]]*)/] (.
strcontent = re.replace (strcontent ،)
تعيين إعادة = لا شيء
delquote = strcontent
وظيفة نهاية
'******************************************
احصل على IP العميل
'******************************************
وظيفة getip ()
Dim Strip ، IP_ARY ، Strip_List
Strip_list = استبدال (request.servervariables (http_x_forwarded_for) ، '،)
إذا instr (strip_list ،،) <> 0 ثم
ip_ary = split (strip_list ،،)
الشريط = ip_ary (0)
آخر
الشريط = Strip_List
إنهاء إذا
إذا كان الشريط = فارغ ثم الشريط = استبدال (request.servervariables (Remote_addr) ، '،)
getip = الشريط
وظيفة نهاية
تم جمع هذه المقالة وتجميعها بواسطة Design Home
'******************************************
احصل على معلومات متصفح العميل
'******************************************
وظيفة getBrowser (Strua)
Dim arrinfo ، strtype ، temp1 ، temp2
strtype =
strua = lace (strua)
arrinfo = صفيف (غير ملوك ، غير ملوك)
الحكم المتصفح
إذا instr (strua ، mozilla)> 0 ثم arrinfo (0) = mozilla
إذا instr (Strua ، ICAB)> 0 ثم arrinfo (0) = ICAB
إذا
إذا instr (strua ، الروابط)> 0 ثم arrinfo (0) = الروابط
إذا instr (strua ، eLinks)> 0 ثم arrinfo (0) = eLinks
إذا instr (strua ، jbrowser)> 0 ثم arrinfo (0) = jbrowser
إذا instr (Strua ، konqueror)> 0 ثم arrinfo (0) = konqueror
إذا instr (strua ، wget)> 0 ثم arrinfo (0) = wget
إذا instr (Strua ، اسأل Jeeves)> 0 أو Instr (Strua ، Teoma)> 0 ثم Arrinfo (0) = اسأل Jeeves/Teoma
إذا instr (strua ، wget)> 0 ثم arrinfo (0) = wget
إذا
إذا instr (strua ، gecko)> 0 ثم
strtype = [gecko]
arrinfo (0) = موزيلا
إذا
إذا instr (strua ، netscape)> 0 ثم arrinfo (0) = netscape
إذا instr (Strua ، Firefox)> 0 ثم arrinfo (0) = Firefox
إذا instr (strua ، chimera)> 0 ثم arrinfo (0) = chimera
إذا instr (Strua ، Camino)> 0 ثم arrinfo (0) = كامينو
إذا instr (strua ، galeon)> 0 ثم arrinfo (0) = galeon
إذا instr (strua ، k-meleon)> 0 ثم arrinfo (0) = k-meleon
arrinfo (0) = arrinfo (0)+strtype
إنهاء إذا
إذا instr (strua ، bot)> 0 أو instr (strua ، crawl)> 0 ثم
strtype = [bot/crawler]
arrinfo (0) =
إذا instr (strua ، grub)> 0 ثم arrinfo (0) = grub
إذا instr (strua ، googlebot)> 0 ثم arrinfo (0) = GoogleBot
إذا instr (Strua ، msnbot)> 0 ثم arrinfo (0) = MSN BOT
إذا instr (strua ، slurp)> 0 ثم arrinfo (0) = yahoo! تسرع في الشراب
arrinfo (0) = arrinfo (0)+strtype
إنهاء إذا
إذا instr (Strua ، AppleWebkit)> 0 ثم
strtype = [AppleWebKit]
arrinfo (0) =
إذا instr (strua ، omniweb)> 0 ثم arrinfo (0) = omniweb
إذا instr (Strua ، Safari)> 0 ثم arrinfo (0) = Safari
arrinfo (0) = arrinfo (0)+strtype
إنهاء إذا
إذا instr (strua ، msie)> 0 ثم
strtype = [msie
temp1 = mid (strua ، (instr (strua ، msie) +4) ، 6)
temp2 = instr (temp1 ،؛)
temp1 = اليسار (temp1 ، temp2-1)
strtype = strtype & temp1]
arrinfo (0) = Internet Explorer
إذا
إذا
إذا instr (Strua ، WebTV)> 0 ثم arrinfo (0) = WebTV
إذا instr (strua ، myie2)> 0 ثم arrinfo (0) = myie2
إذا instr (Strua ، Maxthon)> 0 ثم arrinfo (0) = maxthon
إذا instr (strua ، gosurf)> 0 ثم arrinfo (0) = gosurf
إذا instr (strua ، netcaptor)> 0 ثم arrinfo (0) = netcaptor
إذا instr (strua ، sleipnir)> 0 ثم arrinfo (0) = sleipnir
إذا instr (Strua ، Avant Browser)> 0 ثم arrinfo (0) = Avantbrowser
إذا instr (Strua ، Greenbrowser)> 0 ثم arrinfo (0) = GreenBrowser
إذا instr (strua ، slimbrowser)> 0 ثم arrinfo (0) = slimbrowser
arrinfo (0) = arrinfo (0)+strtype
إنهاء إذا
'حكم نظام التشغيل
إذا instr (Strua ، Windows)> 0 ثم arrinfo (1) = Windows
إذا instr (Strua ، Windows CE)> 0 ثم arrinfo (1) = Windows CE
إذا instr (Strua ، Windows 95)> 0 ثم arrinfo (1) = Windows 95
إذا instr (Strua ، Win98)> 0 ثم arrinfo (1) = Windows 98
إذا instr (Strua ، Windows 98)> 0 ثم arrinfo (1) = Windows 98
إذا instr (Strua ، Windows 2000)> 0 ثم arrinfo (1) = Windows 2000
إذا instr (Strua ، Windows XP)> 0 ثم arrinfo (1) = Windows XP
إذا instr (Strua ، Windows NT)> 0 ثم
arrinfo (1) = Windows nt
إذا instr (Strua ، Windows NT 5.0)> 0 ثم arrinfo (1) = Windows 2000
إذا instr (Strua ، Windows NT 5.1)> 0 ثم arrinfo (1) = Windows XP
إذا instr (Strua ، Windows NT 5.2)> 0 ثم arrinfo (1) = Windows 2003
إنهاء إذا
إذا instr (strua ، x11)> 0 أو instr (strua ، unix)> 0 ثم arrinfo (1) = unix
إذا instr (Strua ، Sunos)> 0 أو instr (Strua ، Sun OS)> 0 ثم arrinfo (1) = Sun OS
إذا instr (strua ، powerpc)> 0 أو instr (strua ، ppc)> 0 ثم arrinfo (1) = powerpc
إذا instr (strua ، macintosh)> 0 ثم arrinfo (1) = mac
إذا instr (strua ، mac osx)> 0 ثم arrinfo (1) = macosxx
إذا instr (strua ، freebsd)> 0 ثم arrinfo (1) = freeBsd
إذا instr (Strua ، Linux)> 0 ثم arrinfo (1) = Linux
إذا strua (strua ، palmsource)> 0 أو instr (strua ، palmos)> 0 ثم arrinfo (1) = palmos
إذا instr (strua ، wap)> 0 ثم arrinfo (1) = wap
'Arrinfo (0) = Strua
getBrowser = arrinfo
وظيفة نهاية
'******************************************
'حساب الأرقام العشوائية
'******************************************
وظيفة عشوائية (intlength)
قاتمة سترسيد ، الطول ، نقاط البيع ، شارع ، أنا
strseed = abcdefghijklmnopqrstuvwxyz1234567890
الطول = لين (strseed)
str =
عشوائي
لأني = 1 إلى الطول
str = str+mid (strseed ، int (beetlength*rnd) +1،1)
التالي
Randomstr = str
وظيفة نهاية
'******************************************
"أغلقت UBB تلقائيًا
'******************************************
وظيفة CLOFUBB (strContent)
dim arrtags ، i ، openpos ، rainepos ، re ، strmatchs ، j ، match
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
arrtags = صفيف (رمز ، اقتباس ، قائمة ، لون ، محاذاة ، خط ، حجم ، ب ، أنا ، يو ، html)
ل I = 0 إلى Ubund (Arrtags)
OpenPos = 0
rainpos = 0
re.pattern =/[+arrtags (i)+(= [^/[/]]+|)/]
تعيين strmatchs = re.execute (strcontent)
لكل مباراة في Strmatchs
OpenPos = OpenPos+1
التالي
re.pattern =/[/+arrtags (i)+/]
تعيين strmatchs = re.execute (strcontent)
لكل مباراة في Strmatchs
rainepos = closepos+1
التالي
لـ J = 1 إلى OpenPos-Closepos
strcontent = strcontent+[/+arrtags (i)+]
التالي
التالي
CLOSUBB = strContent
وظيفة نهاية
'******************************************
"إغلاق HTML تلقائيًا
'******************************************
وظيفة CloseHtml (strcontent)
dim arrtags ، i ، openpos ، rainepos ، re ، strmatchs ، j ، match
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
arrtags = صفيف (p ، div ، span ، table ، ul ، font ، b ، u ، i ، h1 ، h2 ، h3 ، h4 ، h5 ، h6)
ل I = 0 إلى Ubund (Arrtags)
OpenPos = 0
rainpos = 0
re.pattern =/<+arrtags (i)+([^/</>]+|)/
تعيين strmatchs = re.execute (strcontent)
لكل مباراة في Strmatchs
OpenPos = OpenPos+1
التالي
re.pattern =/</+arrtags (i)+//>
تعيين strmatchs = re.execute (strcontent)
لكل مباراة في Strmatchs
rainepos = closepos+1
التالي
لـ J = 1 إلى OpenPos-Closepos
strcontent = strcontent+</+arrtags (i)+>
التالي
التالي
CloseHtml = strcontent
وظيفة نهاية
'******************************************
اقرأ الملف
'******************************************
وظيفة loadfromfile (ملف byval)
قاتمة objstream
قفص rtext
rtext = صفيف (0 ،)
عند استئناف الخطأ التالي
تعيين OBJStream = server.createBject (ADODB.Stream)
إذا أخطأ بعد ذلك
rtext = صفيف (err.number ، err.description)
loadfromfile = rtext
err.clear
وظيفة الخروج
إنهاء إذا
مع objstream
.type = 2
. وضع = 3
.يفتح
.charset = UTF-8
.position = objstream.size
.loadfromfile server.mappath (ملف)
إذا err.number <> 0 ثم
rtext = صفيف (err.number ، err.description)
loadfromfile = rtext
err.clear
وظيفة الخروج
إنهاء إذا
rtext = صفيف (0 ، .readtext)
.يغلق
تنتهي
loadfromfile = rtext
اضبط OBJStream = لا شيء
وظيفة نهاية
'******************************************
"حفظ الملف
'******************************************
وظيفة SaveTofile (Byval Strbody ، ملف Byval)
قاتمة objstream
قفص rtext
rtext = صفيف (0 ،)
عند استئناف الخطأ التالي
تعيين OBJStream = server.createBject (ADODB.Stream)
إذا أخطأ بعد ذلك
rtext = صفيف (err.number ، err.description)
err.clear
وظيفة الخروج
إنهاء إذا
مع objstream
.type = 2
.يفتح
.charset = UTF-8
.position = objstream.size
.riteText = strbody
.savetofile server.mappath (ملف) ، 2
.يغلق
تنتهي
rtext = صفيف (0 ، احفظ الملف بنجاح!)
savetofile = rtext
اضبط OBJStream = لا شيء
وظيفة نهاية
'******************************************
عملية تعديل إضافة المجال
'******************************************
وظيفة dbquest (الجدول ، dbarray ، العمل)
dim addcount ، tempdb ، i ، v
إذا كان الإجراء <> أدخل أو إجراء <> تحديث ثم الإجراء = إدراج
إذا كان الإجراء = إدراج ثم v = 2 آخر v = 3
إذا لم يكن Isarray (dbarray) ثم
dbquest = -1
وظيفة الخروج
آخر
SET TEMPDB = server.createObject (ADODB.RecordSet)
عند استئناف الخطأ التالي
TempDB.Open Table ، Conn ، 1 ، v
إذا أخطأ بعد ذلك
dbquest = -2
وظيفة الخروج
إنهاء إذا
إذا كان الإجراء = إدراج ثم tempdb.addnew
AddCount = Ubound (Dbarray ، 1)
ل I = 0 إلى AddCount
tempdb (dbarray (i) (0)) = dbarray (i) (1)
التالي
tempdb.update
tempdb.close
تعيين tempdb = لا شيء
dbquest = 0
إنهاء إذا
وظيفة نهاية
'******************************************
تحقق مما إذا كانت مكونات النظام مثبتة
'******************************************
وظيفة checkoBjinstalled (strclassstring)
عند استئناف الخطأ التالي
درجة الحرارة الخافتة
خطأ = 0
Dim TMPOBJ
تعيين tmpobj = server.createBject (strclassstring)
temp = err
إذا temp = 0 أو temp = -2147221477 ثم
CheckObjinstalled = صحيح
elseif temp = 1 أو temp = -2147221005 ثم
CheckObjinstalled = false
إنهاء إذا
err.clear
تعيين tmpobj = لا شيء
خطأ = 0
وظيفة نهاية
'******************************************
"القاضي خادم Microsoft.xmldom
'******************************************
وظيفة getxmldom
عند استئناف الخطأ التالي
درجة الحرارة الخافتة
getxmldom = microsoft.xmldom
خطأ = 0
Dim TMPOBJ
تعيين tmpobj = server.createBject (getxmldom)
temp = err
إذا temp = 1 أو temp = -2147221005 ثم
getxmldom = msxml2.domdocument.5.0
إنهاء إذا
err.clear
تعيين tmpobj = لا شيء
خطأ = 0
وظيفة نهاية
'******************************************
"القاضي خادم MSXML2.ServerXMLHTTP
'******************************************
وظيفة getxmlhttp
عند استئناف الخطأ التالي
درجة الحرارة الخافتة
getxmlhttp = msxml2.serverxmlhttp
خطأ = 0
Dim TMPOBJ
SET TMPOBJ = server.createBject (getxmlHTTP)
temp = err
إذا temp = 1 أو temp = -2147221005 ثم
getxmlhttp = msxml2.serverxmlhttp.5.0
إنهاء إذا
err.clear
تعيين tmpobj = لا شيء
خطأ = 0
وظيفة نهاية
'******************************************
"تصفية الكلمات الرئيسية القمامة
'******************************************
Function Filterspam (STR ، PATH)
عند استئناف الخطأ التالي
filterspam = false
قاتمة spamxml ، spamitem
تعيين spamxml = server.createBject (getxmldom)
إذا أخطأ بعد ذلك
err.clear
وظيفة الخروج
إنهاء إذا
spamxml.async = خطأ
spamxml.load (server.mappath (path))
إذا كان spamxml.parseerror.errorcode = 0 ثم
لكلملشة في spamxml.selectnodes (// مفتاح)
if Instr (LCASE (STR) ، LCASE (spamitem.text)) <> 0 ثم
filterspam = صحيح
وظيفة الخروج
إنهاء إذا
التالي
إنهاء إذا
تعيين spamxml = لا شيء
وظيفة نهاية
'***************************************************************
الغرض: تحقق من النموذج العادي
"أدخل: معرف
"العودة: النجاح صحيح
'***************************************************************
وظيفة checkregexp (المصدر ، الفقرة)
إذا الفقرة = [اسم المستخدم] ثم
الفقرة =^[. a-za-z0-9/u4e00-/u9fa5]+
إنهاء إذا
إذا كانت الفقرة = [كلمة المرور] ثم
الفقرة =^[A-Z0-9]+
إنهاء إذا
إذا الفقرة = [البريد الإلكتروني] ثم
para =^([0-9a-za-z] ([-./w]*[0-9a-za-z])*@([0-9a-za-z] [-/w]*/.)+[a-za-z]*)
إنهاء إذا
إذا الفقرة = [الصفحة الرئيسية] ثم
para =^[a-za-z]+: // [a-za-z0-9 /-/./]+؟/*
إنهاء إذا
إذا الفقرة = [nojapan] ثم
الفقرة = [/u3040-/u30ff]+
إنهاء إذا
إذا الفقرة = [GUID] ثم
para =^/w {8}/-/w {4}/-/w {4}/-/w {4}/-/w {4}/-/w {12}
إنهاء إذا
قاتمة إعادة
تعيين re = جديد regexp
re.global = صحيح
re.pattern = الفقرة
re.ignorecase = false
checkRegexp = re.test (المصدر)
وظيفة نهاية
'*****************************************************
احصل على عدد الأشخاص عبر الإنترنت
'*****************************************************
وظيفة getOnline
getOnline = 1
إذا كان LEN (Application (Space_Cookiename_OnlinEcount))> 0 ثم
إذا كان Datediff (s ، Application (Space_Cookiename_UseronLinEcounttime) ، الآن ())> 60 ثم
application.lock ()
التطبيق (Space_Cookiename_Online) = التطبيق (Space_Cookiename_OnlinEcount)
التطبيق (Space_Cookiename_onlinEcount) = 1
التطبيق (Space_Cookiename_onlinEcountkey) = Randstr (2)
التطبيق (Space_Cookiename_UseronLinEcounttime) = الآن ()
application.unlock ()
آخر
إذا كانت الجلسة (Space_CookienameUserOnlineKey) <> Application (Space_Cookiename_OnlinEcountkey) ثم
application.lock ()
Application (Space_Cookiename_OnlinEcount) = Application (Space_Cookiename_OnlinEcount) +1
application.unlock ()
الجلسة (Space_CookienameUserOnlineKey) = Application (Space_Cookiename_OnlinEcountkey)
إنهاء إذا
إنهاء إذا
آخر
application.lock
التطبيق (Space_Cookiename_online) = 1
التطبيق (Space_Cookiename_onlinEcount) = 1
التطبيق (Space_Cookiename_onlinEcountkey) = Randstr (2)
التطبيق (Space_Cookiename_UseronLinEcounttime) = الآن ()
application.unlock
إنهاء إذا
getOnline = Application (Space_Cookiename_Online)
وظيفة نهاية
٪>
تم جمع هذه المقالة وتجميعها بواسطة Design Home
مشاركة: يقوم ASP بتصدير البيانات من قاعدة البيانات إلى جدول Excel يقوم رمز مثيل ASP بتصدير البيانات مباشرة في قاعدة البيانات إلى جدول بيانات Excel. !-#تضمين ملف = ../conn.asp-- ٪ dim s ، sql ، اسم الملف ، fs ، myfile ، x set fs = server.createObject (scripting.filesystemobject) '-من الممنوحة أن يتم تخزين ملف Excel الذي تم إنشاؤه على النحو التالي للملف = الخادم.