موصى به: مجموعة مفيدة من الوظائف في تطوير ASP (3) مجموعة من الوظائف المفيدة في تطوير ASP مفيدة للغاية ، يرجى الاحتفاظ بها! "*********************************************" شريحة محتوى-تقسيم سطر "********************************************** (محتوى byval ، محتوى byval) dim ts ، i ، l contentNums = int (
مجموعة من الوظائف المفيدة في تطوير ASP مفيدة للغاية ، يرجى الاحتفاظ بها!
'******************************************
ترشيح الارتباطات التشعبية
'******************************************
وظيفة checkurl (Byval Chkststr)
DIM STR: STR = chksstr
str = trim (str)
إذا isnull (str) ثم
checkurl =
وظيفة الخروج
إنهاء إذا
قاتمة إعادة
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = (d) (ocument/.cookie)
str = re.replace (str ، 1ocument cookie)
re.pattern = (d) (ocument/.write)
str = re.replace (Str ، 1Ocument Write)
re.pattern = (s) (البرنامج النصي :)
str = re.replace (str ، 1script)
re.pattern = (s) (نص)
str = re.replace (str ، 1script)
re.pattern = (o) (bject)
str = re.replace (str ، 1bject)
re.pattern = (a) (pplet)
str = re.replace (str ، 1pplet)
re.pattern = (e) (mbed)
str = re.replace (str ، 1mbed)
تعيين إعادة = لا شيء
str = استبدال (str ،> ،>)
str = استبدال (str ، <، <)
checkurl = str
وظيفة نهاية
'******************************************
اسم ملف التصفية
'******************************************
Function FixName (upfilext)
إذا كان isempty (upFileSte) ثم الخروج وظيفة
FixName = ucase (upfilext)
FixName = استبدال (FixName ، chr (0) ،)
FixName = استبدال (FixName ،. ،)
FixName = استبدال (FixName ، ASP ،)
FixName = استبدال (FixName ، ASA ،)
FixName = استبدال (FixName ، ASPX ،)
FixName = استبدال (FixName ، CER ،)
FixName = استبدال (FixName ، CDX ،)
FixName = استبدال (FixName ، HTR ،)
وظيفة نهاية
'******************************************
تصفية الشخصيات الخاصة
'******************************************
وظيفة checkstr (Byval Chkststr)
DIM STR: STR = chksstr
إذا isnull (str) ثم
checkstr =
وظيفة الخروج
إنهاء إذا
str = استبدال (str ، & ، &)
str = استبدال (str ، '،')
str = استبدال (str ،،)
قاتمة إعادة
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = (w) (هنا)
str = re.replace (str ، 1)
re.pattern = (s) (المنتخب)
str = re.replace (str ، 1elect)
re.pattern = (i) (nsert)
str = re.replace (str ، 1nsert)
re.pattern = (c) (REAET)
str = re.replace (Str ، 1Reate)
re.pattern = (D) (ROP)
str = re.replace (str ، 1rop)
re.pattern = (أ) (لتر)
str = re.replace (str ، 1lter)
re.pattern = (d) (eLete)
str = re.replace (str ، 1elete)
re.pattern = (u) (pdate)
str = re.replace (str ، 1pdate)
re.pattern = (/s) (أو)
str = re.replace (str ، 1or)
تعيين إعادة = لا شيء
checkstr = str
وظيفة نهاية
'******************************************
استعادة الشخصيات الخاصة
'******************************************
وظيفة uncheckstr (Byval Str)
إذا isnull (str) ثم
uncheckstr =
وظيفة الخروج
إنهاء إذا
str = استبدال (str ، '،')
str = استبدال (str ،،)
قاتمة إعادة
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = (w) (هنا)
str = re.replace (str ، 1)
re.pattern = (s) (المنتخب)
str = re.replace (str ، 1elect)
re.pattern = (i) (nsert)
str = re.replace (str ، 1nsert)
re.pattern = (c) (REAET)
str = re.replace (Str ، 1Reate)
re.pattern = (D) (ROP)
str = re.replace (str ، 1rop)
re.pattern = (أ) (لتر)
str = re.replace (str ، 1lter)
re.pattern = (d) (eLete)
str = re.replace (str ، 1elete)
re.pattern = (u) (pdate)
str = re.replace (str ، 1pdate)
re.pattern = (/s) (أو)
str = re.replace (str ، 1or)
تعيين إعادة = لا شيء
str = استبدال (str ، & ، &)
unchecstr = str
وظيفة نهاية
'******************************************
تحويل رمز HTML
'******************************************
وظيفة htmlencode (استعادة byval)
DIM STR: STR = استعادة
إذا لم يكن isnull (str) ثم
str = استبدال (str ،> ،>)
str = استبدال (str ، <، <)
str = استبدال (str ، chr (9) ،)
str = استبدال (str ، chr (32) ،)
str = استبدال (str ، chr (39) ، ')
str = استبدال (str ، chr (34) ،)
str = استبدال (str ، chr (13) ،)
str = استبدال (str ، chr (10) ، <br/>)
htmlencode = str
إنهاء إذا
وظيفة نهاية
'******************************************
"رمز التحويل العكسي HTML
'******************************************
وظيفة htmldecode (استعادة byval)
DIM STR: STR = استعادة
إذا لم يكن isnull (str) ثم
str = استبدال (str ،> ،>)
str = استبدال (str ، <، <)
str = استبدال (str ، ، chr (9))
str = استبدال (str ، ، chr (32))
str = استبدال (str ، '، chr (39))
str = استبدال (str ، ، chr (34))
str = استبدال (str ، ، chr (13))
str = استبدال (str ، <br/> ، chr (10))
htmldecode = str
إنهاء إذا
وظيفة نهاية
'******************************************
"استرداد والشخصية
'******************************************
وظيفة ClearHTML (راحة بيفال)
DIM STR: STR = استعادة
إذا لم يكن isnull (str) ثم
str = استبدال (str ، & ، &)
clearhtml = str
إنهاء إذا
وظيفة نهاية
'******************************************
مرشح النص
'******************************************
وظيفة ubbfilter (راحة بيفال)
DIM STR: STR = استعادة
إذا لم يكن isnull (str) ثم
str = استبدال (str ، </textarea> ، </textarea>)
Ubbfilter = str
إنهاء إذا
وظيفة نهاية
'******************************************
مرشح رمز HTML
'******************************************
وظيفة editdehtml (محتوى byval)
editdehtml = المحتوى
إذا لم يكن isnull (editdehtml) ثم
editdehtml = uncheckstr (editdehtml)
editdehtml = استبدال (editdehtml ، & ،)
editdehtml = استبدال (editdehtml ، <، <،)
editdehtml = استبدال (editdehtml ،> ،>)
editdehtml = استبدال (editdehtml ، chr (34) ،)
editdehtml = استبدال (editdehtml ، chr (39) ، ')
إنهاء إذا
وظيفة نهاية
'******************************************
وظيفة تحويل التاريخ
'******************************************
دالة datetoStr (DateTime ، ShowType)
Dim Dateemonth ، المؤرخ ، DateHour ، Dateminute ، DateWeek ، Datesecond
Dim FullWeekday ، Shortweekday ، Fullmonth ، Shortmonth ، TimeZone1 ، TimeZone2
Timezone1 =+0800
Timezone2 =+08: 00
FullWeekday = Array (الأحد ، الاثنين ، الثلاثاء ، الأربعاء ، الجمعة ، السبت)
يوم قصير = صفيف (الشمس ، الاثنين ، الثلاثاء ، الأربعاء ، الخميس ، الجمعة ، السبت)
FullMonth = Array (يناير ، فبراير ، مارس ، أبريل ، مايو ، يونيو ، يوليو ، أغسطس ، سبتمبر ، أكتوبر ، نوفمبر ، ديسمبر)
رونثز القصيرة = صفيف (يناير ، فبراير ، مارس ، أبريل ، مايو ، يونيو ، يوليو ، أغسطس ، سبتمبر ، أكتوبر ، نوفمبر ، ديسمبر)
قاعدة بيانات = شهر (DateTime)
مؤرخة = اليوم (DateTime)
DateHour = ساعة (DateTime)
dateminute = دقيقة (DateTime)
DateWeek = أيام الأسبوع (DateTime)
Datesecond = الثاني (DateTime)
إذا كان LEN (DATEMONTH) <2 ثم قاعدة البيانات = 0 و DATEMONTH
إذا كان لين (مؤرخ) <2 ثم مؤرخ = 0 ومؤرخ
إذا كان len (dateminute) <2 ثم dateminute = 0 & dateminute
حدد Case Showtype
حالة YMD
DatetoStr = السنة (DateTime)-و Datemonth- & Dateday
حالة YMD H: ia
Dim Dateampm
إذا كان DateHour> 12 ثم
DateHour = DateHour-12
dateampm = pm
آخر
DateHour = DateHour
dateampm = am
إنهاء إذا
إذا كان Len (DateHour) <2 ثم DateHour = 0 & DateHour
DatetoStr = Year (DateTime)-& Datemonth- & Dateday & DateHour: & dateminute & dateampm
حالة YMD H: i: s
إذا كان Len (DateHour) <2 ثم DateHour = 0 & DateHour
إذا كان Len (datesecond) <2 ثم datesecond = 0 & datesecond
DatetoStr = Year (DateTime)-& Datemonth- & Dateday & DateHour: & dateminute: & datesecond
قضية ymdhis
Datesecond = الثاني (DateTime)
إذا كان Len (DateHour) <2 ثم DateHour = 0 & DateHour
إذا كان Len (datesecond) <2 ثم datesecond = 0 & datesecond
DatetoStr = Year (DateTime) و DateMonth & Dateday & DateHour & DateMinute & Datesecond
حالة YM
DatetoStr = يمين (السنة (DateTime) ، 2) و DateMonth
القضية د
DatetoStr = مؤرخ
حالة YMD
DatetoStr = يمين (السنة (DateTime) ، 4) و Datemonth & Dateday
حالة mdy
قاتمة يوم
حدد حالة مؤرخة
الحالة 1
Dayend = st
الحالة 2
Dayend = nd
الحالة 3
Dayend = RD
حالة أخرى
Dayend = th
نهاية الاختيار
DatetoStr = FullMonth (Datemonth-1) & Dateday & Dayend & Right (السنة (DateTime) ، 4)
Case W ، dmy H: i: s
Datesecond = الثاني (DateTime)
إذا كان Len (DateHour) <2 ثم DateHour = 0 & DateHour
إذا كان Len (datesecond) <2 ثم datesecond = 0 & datesecond
DatetoStr = ShortWeekday (DateWeek-1) ، & Dateday & Left (FullMonth (DateMonth-1) ، 3) & Right (Year (DateTime) ، 4) & DateHour: & dateminute:
حالة YM-DTH: أنا: ق
إذا كان Len (DateHour) <2 ثم DateHour = 0 & DateHour
إذا كان Len (datesecond) <2 ثم datesecond = 0 & datesecond
DatetoStr = Year (DateTime)-& Datemonth- & Datedayt & DateHour: & dateminute: & datesecond & timezone2
حالة أخرى
إذا كان Len (DateHour) <2 ثم DateHour = 0 & DateHour
DatetoStr = Year (DateTime)-& Datemonth- & Dateday & DateHour: & dateminute
نهاية الاختيار
وظيفة نهاية
'******************************************
وظيفة ترقيم الصفحات
'******************************************
قاتمة فيرستورتكوت ، اختصار
firstshortcut = false
الوظيفة المتعددة (الأرقام ، الذروة ، curpage ، url_add ، aname ، النمط)
curpage = int (curpage)
الأرقام = int (الأرقام)
عنوان URL DIM
url = request.servervariables (script_name) و url_add
multipage =
صفحة خافتة ، إزاحة ، pagei
"إذا int (أرقام)> int (الزخرف) ثم
الصفحة = 9
إزاحة = 4
الصفحات الخافتة ، من صفحة ، تطرح
إذا كانت الأرقام mod cint (perpage) = 0 ثم
الصفحات = int (الأرقام/الذروة)
آخر
الصفحات = int (الأرقام/الذروة) +1
إنهاء إذا
FromPage = Curpage Offset
TOPAGE = CARPAGE+PAGE-OFSET-1
إذا صفحة> صفحات ثم
من صفحة = 1
topage = الصفحات
آخر
إذا من صفحة <1 ثم
TOPAGE = CARPAGE+1-FORMOMPAGE
من صفحة = 1
إذا (topage-frompage) <page و (topage-frompage) <pages ثم topage = page
TOPAGE ELSEIF> الصفحات ثم
frompage = curpage-pages +topage
topage = الصفحات
if (topage-frompage) <page و (topage-frompage) <pages ثم من page = pages page+1
إنهاء إذا
إنهاء إذا
multipage = <div class = page style = & style> <ul>
"إذا كانت curpage <> 1 ثم multipage = multipage & <li class = pagel> <a href = & url & page = 1 class = pagelbutton title = first page> </a> </li>
multipage = multipage <li class = pagenumber>
إذا كان curpage <> 1 ثم multipage = multipage <a href = & urlPage = 1 title = style first page = text-decoration: none> <</a> |
إذا لم يكن Firstshortcut ثم اختصار = AccessKey = ، Else Exhaltcut =
إذا كان curpage <> 1 ثم multipage = multipage <a href = & urlpage = & curpage-1 title = pagestyle السابق = text-decoration: none ؛ & stortcut> </a>
ل pagei = من صفحة إلى topage
إذا pagei <> curpage ثم
multipage = multipage <a href = & urlpage = & pagei & aname> & pagei </a> |
آخر
multipage = multipage <strong> & pagei </strong>
إذا pagei <> pages ثم multipage = multipage |
إنهاء إذا
التالي
إذا لم يكن firstshortcut ثم اختصار = AccessKey =. اختصار آخر =
إذا كانت صفحات curpage <> multipage = multipage <a href = & urlpage = & curpage+1 title = next pagestyle = text-decoration: none & heatcut> </a>
إذا كانت صفحات curpage <> multipage = multipage <a href = & urlpage = & pages و aname title = style page style = text-decoration: none >> </a>
multipage = multipage </li>
إذا int (pages)> int (صفحة) ثم
'multipage = multipage & <li> ... </li> <li> <a href = & url & page = & pages & aname &> & pages & </a> </li>
'end if
"إذا كانت الصفحات <> curpage ثم multipage = multipage & <li class = pager> <a href = & url & page = & aname & class = pagerbutton title = last page> </a> </li>
multipage = multipage </ul> </viv>
'end if
firstshortcut = صحيح
وظيفة نهاية
المشاركة: الوظيفة العامة لـ ASP لتحديد ما إذا كانت قيمة قاعدة البيانات فارغة نظرًا لخصائص مختلفة من الحقول المختلفة ، فإن طرق تحديد ما إذا كان الحقل فارغًا أيضًا مختلفة. فيما يلي وظيفة عامة ، تتجنب ألم نوع الحقل. "تحقق من المتغير ليس وظيفة فارغة ISBLANK (BYREF TEMPVAR)" افتراضيًا ، افترض أنها ليست فارغة isBlank = false "الآن تحقق من المتغير ر