ASP جمع الوظائف الشائعة الاستخدام

طريقة OLEDB لفتح اتصال بيانات SQL

sub opensqlbyoledb

عند استئناف الخطأ التالي

تعيين conn = server.createBject (adodb.connection)

Conn.Open Provider = SQLOLEDB.1 ؛

إذا err.number <> 0 ثم

err.clear

Response.write (<div align = 'center'> يتم توصيل قاعدة البيانات بخطأ ، يرجى الاتصال بالمسؤول! </viv>)

استجابة.

إنهاء إذا

نهاية الفرعية

"تشغيل قاعدة البيانات -وظائف مرتبطة

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] OpenReadrs RS ، SQL ، otype

"الوظيفة: افتح النوع المقابل لمجموعة البيانات وقراءة العملية فقط

المعلمة:

مجموعة RS Open RS

تم تنفيذ بيان SQL

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

Sub OpenReadRs (RS ، SQL)

إذا لم يكن isObject (RS) ثم

تعيين rs = server.createObject (adodb.oldset)

Rs.OOPEN SQL ، CONN ، 1،1

إنهاء إذا

نهاية الفرعية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] OpenWriters RS ، SQL

"الوظيفة: افتح النوع المقابل لمجموعة البيانات ، يمكنك كتابة العملية

المعلمة:

مجموعة RS Open RS

تم تنفيذ بيان SQL

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

Sub Openwriters (RS ، SQL)

إذا لم يكن isObject (RS) ثم

تعيين rs = server.createObject (adodb.oldset)

Rs.OOPEN SQL ، CONN ، 1،3

إنهاء إذا

نهاية الفرعية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] endrs rs

"الوظيفة: أغلق النوع المقابل لمجموعة البيانات

المعلمة:

مجموعة RS Open RS

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

endrs الفرعية (روبية)

إذا isObject (RS) ثم

Rs.Close: تعيين روبية = لا شيء

إنهاء إذا

نهاية الفرعية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] endconn

"الوظيفة: أغلق اتصال قاعدة البيانات

المعلمة: لا شيء

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

الطرف الفرعي

إذا isObject (conn) ثم

conn.close: تعيين conn = لا شيء

إنهاء إذا

نهاية الفرعية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] execsql sql

"الوظيفة: تنفيذ بيان SQL

المعلمة:

تم تنفيذ بيان SQL

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

sub execsql (SQL)

conn.execute (SQL)

نهاية الفرعية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] Selecalone SQL

"الوظيفة: استعلام حقل واحد

المعلمة:

تم تنفيذ بيان SQL

"العائد: قيمة حقل الاستعلام

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

SELICALONE (SQL)

مختارون خافت

تعيين selectaloners = const.execute (SQL)

SELICALONE = SelectAloners (0)

endrs selectaloners

نهاية

"تشغيل السلسلة وظائف ذات صلة

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] issafestr str

"الوظيفة: تحديد ما إذا كانت سلسلة آمنة ، استخدم في حقول خاصة مثل التسجيل وتسجيل الدخول

المعلمة:

سلسلة Str لاكتشافها

'العودة: صحيح = الأمان ، خطأ = غير آمن

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

إيسافست (Str)

Dim S_Badstr ، n ، أنا

s_badstr = '& <>؟ ٪ ، ؛

n = len (S_Badstr)

ISSAFESTER = صحيح

لأني = 1 إلى ن

إذا instr (str ، mid (s_badstr ، i ، 1))> 0 ثم

ISSAFESTER = خطأ

مخرج

إنهاء إذا

التالي

نهاية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] htmltoencode str

"الوظيفة: رمز HTML

المعلمة:

يحتاج Str إلى تشفير سلسلة

'العودة: سلسلة رمز

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

htmltoencode (str) ''

إذا لم يكن isnull (str) و str <> ثم

str = استبدال (str ، & ، & amp ؛)

str = استبدال (str ،> ، & gt ؛)

str = استبدال (str ، <، & lt ؛)

str = استبدال (str ، chr (32) ،)

str = استبدال (str ، chr (9) ، & nbsp ؛)

str = استبدال (str ، chr (34) ، & quot ؛)

str = استبدال (str ، chr (39) ، &#39 ؛)

str = استبدال (str ، chr (13) ،)

str = استبدال (str ،، &#115 ؛ cript)

str = استبدال (str ، &#115 ؛ ، &#115 ؛)

htmltoencode = str

إنهاء إذا

نهاية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] encodetohtml str

"الوظيفة: رمز HTML

المعلمة:

يحتاج Str إلى أن تكون سلسلة مشفرة

'العودة: سلسلة عكسية ترميز

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

encodetohtml (Str)

إذا لم يكن isnull (str) و str <> ثم

str = استبدال (str ، & amp ؛ ،، &)

str = استبدال (str ، & gt ؛ ،>)

str = استبدال (str ، & lt ؛ ، <)

str = استبدال (str ،، chr (32))

str = استبدال (str ، & nbsp ؛ ، chr (9))

str = استبدال (str ، & quot ؛ ، chr (34))

str = استبدال (str ، &#39 ؛ ، chr (39))

str = استبدال (str ،، chr (13))

str = استبدال (str ، &#115 ؛ cript ،)

str = استبدال (str ، &#115 ؛ ، &#115 ؛)

EncodeToHtml = str

إنهاء إذا

نهاية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] gottopic str ، strlen

"الوظيفة: اختبر طول السلسلة stroln ، يتم حساب الأحرف الصينية بطول 2

المعلمة:

يحتاج Str إلى اعتراضه

'strlen التقاطع طول

"العودة: السلسلة بعد طول طول ستار

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

GetTopic (Str ، Strlen)

إذا str = إذن

gottopic =

مخرج

إنهاء إذا

Dim L ، T ، C ، أنا

L = Len (Str)

t = 0

لأني = 1 إلى ل

C = ABS (ASC (MID (STR ، I ، 1)))))))

إذا ج> 255 ثم

t = t+2

آخر

t = t+1

إنهاء إذا

إذا t> = strlen ثم

gottopic = left (str ، i) & ...

الخروج ل

آخر

gottopic = str

إنهاء إذا

التالي

نهاية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] DateFormattime TVAR ، Style

"الوظيفة: تنسيق الوقت

المعلمة:

يحتاج TVAR إلى سلسلة وقت التنسيق

نوع تنسيق stype

'العودة: سلسلة وقت التنسيق

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

DateFormattime (TVAR ، Style)

Dim TT ، Syear ، Smnon ، Sday ، Shour ، Sminute ، ssecond

إذا لم يكن iSdate (tvar) ثم DateFormattime =: الخروج

tt = tvar

Syear = السنة (TT)

smonth = يمين (0 والشهر (TT) ، 2)

SDAY = يمين (0 واليوم (TT) ، 2)

شور = يمين (0 & ساعة (TT) ، 2)

sminute = يمين (0 والدقيقة (TT) ، 2)

ssecond = اليمين (0 والجنس (TT) ، 2)

حدد نمط الحالة

الحالة 1'2006-3-13

DateFormattime = syear & -& smonth & -& sday

القضية 2 '13 مارس 2006

DateFormattime = syear & year و smnth & monthly & sday و day

الحالة 3 '2006031313120123

DateFormattime = Syear & Smonth & Sday & Shour & Sminute & ssecond

حالة أخرى

DateFormattime = tt

نهاية الاختيار

نهاية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] isnum str

"الوظيفة: سواء كان رقمًا

المعلمة:

يحتاج Str إلى الحكم على String

'العودة: صحيح = الرقم ، خطأ = غير روتيني

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

isnum (str) '

إذا str <> و isnumberic (str) ثم

isNum = صحيح

آخر

isNum = خطأ

إنهاء إذا

نهاية

'الإخراج تصحيح الوظائف ذات الصلة

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] mesgoback str

"الوظيفة: منبثق المعلومات والعودة

المعلمة:

يحتاج Str إلى الحكم على String

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

Sub Mesgoback (Str)

Response.write (<language = 'java'> ALERT ('& str &') ؛ history.back () ؛ </>)

استجابة.

نهاية الفرعية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] mesgourl str ، url

"الوظيفة: منبثق المعلومات والعودة

المعلمة:

يحتاج Str إلى الحكم على String

عنوان قفزة عنوان URL

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

subsgourl (str ، url)

Response.write (<language = 'java'> ALERT ('& str &') ؛ local.href = '& url &' ؛ </>)

استجابة.

نهاية الفرعية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[sub] debug خاطئ

"الوظيفة: ناتج التصحيح

المعلمة:

'خطأ يريد معلومات الإخراج

'العودة: لا قيمة الإرجاع

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

تصحيح الأخطاء الفرعية (Ingrong) "تصحيح الأخطاء

استجابة. write (جي)

استجابة.

نهاية الفرعية

وظائف الوظائف ذات الصلة

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] getip

"الوظيفة: احصل على IP للمستخدم

المعلمة:

' لا أحد

'العودة: المستخدم الحالي IP

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

getip ()

dim userip

userip = request.servervariables (http_x_forwarded_for)

إذا userip = ثم userip = request.servervariables (Remote_addr)

getip = userip

نهاية

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

'[] geturl

'الوظيفة: احصل على اسم المجال الحالي

المعلمة:

' لا أحد

"العودة: اسم المجال الحالي

'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، *************

geturl ()

geturl = request.servervariables (server_name)

نهاية