موصى به: ASP يستدعي خدمات الويب ASP استدعاء خدمات الويب ٪ وظيفة collwebservices (surl ، smethodname ، soapmessage ، xmlstring) callWebServices = fals
تحويل JavaScript:
<script>
/*
************************************
* وصف المعلمة:
* Str: السلسلة المراد تحويلها
* العلم: مارك ، 0 ونصف إلى كامل ، غير 0 ونصف إلى كامل
* نوع قيمة الإرجاع: سلسلة
************************************
*/
وظيفة dbc2sbc (str ، flag) {
var i ؛
var result = '' ؛
if (str.length <= 0) {Alert ('error in string parameter') ؛ return false ؛}
لـ (i = 0 ؛ i <str.length ؛ i ++)
{str1 = str.charcodeat (i) ؛
إذا (str1 <125 &&! flag)
النتيجة+= string.fromcharcode (str.charcodeat (i) +65248) ؛
آخر
النتيجة+= string.fromcharcode (str.charcodeat (i) -65248) ؛
}
نتيجة العودة
}
</script>
//مثال:
<script>
تنبيه (DBC2SBC (AAABC ، 0)) ؛
document.write (DBC2SBC (ABCDEFG ، 0))
</script>
تحويل ASP:
<٪
'*********************************
'* الوصف المعلمة:
'* str: السلسلة المراد تحويلها
'* العلم: مارك ، هو 0 ونصف لتحويل الكل ، وهو غير 0 ونصف لتحويل الجميع
'* نوع قيمة الإرجاع: سلسلة
'*********************************
وظيفة DBC2SBC (STR ، العلم)
خافت أنا
إذا len (str) <= 0 ثم
msgbox 'خطأ في المعلمة السلسلة'
وظيفة الخروج
إنهاء إذا
لأني = 1 إلى لين (str)
Str1 = ASC (Mid (Str ، I ، 1))
إذا str1> 0 و str1 <= 125 وليس العلم بعد ذلك
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR ، I ، 1)-23680)
آخر
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR ، I ، 1))+23680)
إنهاء إذا
التالي
وظيفة نهاية
٪>
مشاركة: 6 رموز عملية لـ ASP للتحكم في قاعدة بيانات XML رقم 1-إنشاء بيانات قاعدة بيانات XML؟ XMLDOC = server.createObjCet (microsoft.xmldom) xmld