<%
ريم ######################################################################################### ###################
Rem ## إخفاء وقت التنفيذ
فرعي __HideTimeOver()
خافت tTimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000، 3، صحيح)
Response.Write(vbCrLf & "<!--وقت التنفيذ: " & tTimeOver & "ميلي ثانية-->")
نهاية الفرعية
ريم ######################################################################################### ###################
ريم ######################################################################################### ###################
Rem ## فتح اتصال قاعدة البيانات
الدالة f__OpenConn()
خافت كونستر
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات ="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
تعيين conn = Server.CreateObject("Adodb.Connection")
conn.open connstr
وظيفة النهاية
ريم ######################################################################################### ######################################################################################################
##############################################################################
Rem ## إغلاق اتصال قاعدة البيانات
الدالة f__CloseConn()
إذا كان IsObject(conn) ثم
تعيين كون = لا شيء
نهاية إذا
وظيفة النهاية
ريم ######################################################################################### ###################
ريم ######################################################################################### ###################
Rem ## تحويل HTML
وظيفة لHTML(شارع)
نتيجة خافتة
النتيجة = سلسلة & ""
النتيجة = استبدال (النتيجة، ">"، ">")
النتيجة = استبدال (النتيجة، "<"، "<")
النتيجة = استبدال (النتيجة، ""، "")
النتيجة = استبدال (النتيجة، """"، """)
النتيجة = استبدال (النتيجة، CHR (13)، "")
النتيجة = استبدال (النتيجة، CHR(10)، "<br>")
النتيجة = استبدال (النتيجة، CHR(39)، "'")
toHtml = النتيجة
وظيفة النهاية
ريم ######################################################################################### ###################
ريم ######################################################################################### ###################
Rem ## تحويل عدد صحيح طويل
الدالة toLng(strNum، الافتراضي)
نتيجة خافتة
إذا كانت strNum <> "" و IsNumeric(strNum) إذن
النتيجة = CLng(strNum)
آخر
toNum = الافتراضي
نهاية إذا
toLng = النتيجة
وظيفة النهاية
ريم ######################################################################################### ###################
http://bizhi.downcodes.com/
ريم ######################################################################################### ###################
Rem ## تحويل نوع العملة
وظيفة toCur(strNum، الافتراضي)
نتيجة خافتة
إذا كانت strNum <> "" و IsNumeric(strNum) إذن
النتيجة = CCur(strNum)
آخر
toNum = الافتراضي
نهاية إذا
toCur = النتيجة
وظيفة النهاية
ريم ######################################################################################### ###################
ريم ######################################################################################### ###################
Rem ## ترميز استبدال SQL
الدالة toSqlr(str)
شارع = شارع & ""
str = استبدال (str، "'"، "")
str = استبدال (str، """"، "")
toSqlr = str
وظيفة النهاية
ريم ######################################################################################### ######################################################################################################
##############################################################################
Rem ## ترميز SQL
الدالة toSql(str)
شارع = شارع & ""
str = استبدال (str، "'"، "''")
toSql = str
وظيفة النهاية
ريم ######################################################################################### ######################################################################################################
##############################################################################
Rem ## تحويل رقم إلى عدد ثابت من الأرقام، وملء أي أرقام مفقودة بـ 0
الدالة ConvertNumber(strNum)
strNum = strNum & ""
ديم إيلين، آي ماكس إل، إيلديف، النتيجة
إيلين = لين (strNum)
آي ماكس إل=8
iLdiv = iMaxL - iLen
النتيجة = سلسلة (iLdiv، "0") & strNum
تحويل رقم = النتيجة
وظيفة النهاية
ريم ######################################################################################### ###################
%>