<% خيار صريح
'******************************************************************************************************************************************************************
'الوصف: 37080308 دفتر العناوين
المؤلف: gwd 2002-11-05
'******************************************************************************************************************************************************************
%＞ ＜!--#include file="pub/funcxml.asp"--＞
<!--#include file="pub/constpub.asp"-->
<!--#include file="pub/funcpub.asp"-->
＜!--#include file="pub/class/clsPerson.asp"--＞ ＜%
خافت objXml، objPerson
مجموعة خافت strErr objXml = Server.CreateObject("MSXML2.DOMDocument")
Set objPerson = New Cls_Person ' إنشاء كائن Cls_Person إذا Request.Form("btnOk") ＜＞ "" ثم
إذا كان LoadXmlDoc(objXml, C_XMLFILE, False, strErr) ثم "تحميل ملف XML" قم بتعيين قيمة للسمة المقابلة objPerson.Name = CheckStrInput(Request.Form("txtName"))
objPerson.Nick = CheckStrInput(Request.Form("txtNick"))
objPerson.Mobile = CheckStrInput(Request.Form("txtMobile"))
objPerson.Tel = CheckStrInput(Request.Form("txtTel"))
objPerson.Email = CheckStrInput(Request.Form("txtEmail"))
objPerson.QQ = CheckStrInput(Request.Form("txtQQ"))
objPerson.Company = CheckStrInput(Request.Form("txtCompany"))
إذا لم يكن objPerson.AddToXml(objXml) ثم ' اتصل بأسلوب AddToXml لفئة Cls_Person لإضافة بيانات AddErr strErr، objPerson.GetLastError
آخر
AddErr strErr، "تم الإضافة بنجاح"
Response.Write "＜script language=""javascript""＞opener.location.reload();＜/script＞"
نهاية إذا
نهاية إذا
نهاية إذا
تعيين objXml = لا شيء
%>
<أتش تي أم أل>
<الرأس>
＜TITLE＞＜% = C_TITLE %＞＜/TITLE＞
＜META HTTP-EQUIV="content-type" CONTENT="text/html;charset=GB2312"/>
＜رابط rel="stylesheet" href="contact.css" type="text/css"＞
＜ لغة سكريبت = "جافا سكريبت"＞
<!--
دالة CheckForm()
{
عودة صحيحة؛
}
//-->
＜/ نص ＞
＜/الرأس＞
＜الجسم＞
<% = strErr %>
＜div class="title"＞إضافة معلومات الاتصال＜/div＞
<اسم النموذج = "form1" طريقة = "post" action = "add.asp" onsubmit = "return CheckForm ()">
＜جدول محاذاة = "المركز" العرض = "100%" تباعد الخلايا = "1" خلية الحشو = "2" الحدود = "0" bgcolor = "#666600">
＜tr bgcolor="#ffffff"＞
＜td width = "25%" bgcolor = "#e5e5e5" محاذاة = "يمين"＞＜b＞الاسم: ＜/b＞＜/td＞
＜td width = "75%" ＞＜ نوع الإدخال = "نص" اسم = "txtName" حجم = "25" فئة = "إدخال" قيمة = "＜%=CheckStrOutput(objPerson.Name)%＞"＞＜/td ＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞ الاسم باللغة الإنجليزية: ＜/b＞＜/td＞
＜td＞＜نوع الإدخال = "نص" اسم = "txtNick" حجم = "25" فئة = "إدخال" قيمة = "＜%=CheckStrOutput(objPerson.Nick)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞ الهاتف المحمول: ＜/b＞＜/td＞
＜td＞＜نوع الإدخال = "نص" اسم = "txtMobile" حجم = "25" فئة = "إدخال" قيمة = "＜%=CheckStrOutput(objPerson.Mobile)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor = "#e5e5e5" محاذاة = "يمين" ＞＜b＞الهاتف: ＜/b＞＜/td＞
＜td＞＜نوع الإدخال = "نص" اسم = "txtTel" حجم = "25" فئة = "إدخال" قيمة = "＜%=CheckStrOutput(objPerson.Tel)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor = "#e5e5e5" محاذاة = "يمين" ＞＜b＞البريد الإلكتروني: ＜/b＞＜/td＞
＜td＞＜نوع الإدخال = "نص" اسم = "txtEmail" حجم = "25" فئة = "إدخال" قيمة = "＜%=CheckStrOutput(objPerson.Email)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor = "#e5e5e5" محاذاة = "يمين" ＞＜b＞QQ:＜/b＞＜/td＞
＜td＞＜نوع الإدخال = "نص" اسم = "txtQQ" حجم = "25" فئة = "إدخال" قيمة = "＜%=CheckStrOutput(objPerson.QQ)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞الشركة: ＜/b＞＜/td＞
＜td＞＜نوع الإدخال = "نص" اسم = "txtCompany" حجم = "25" فئة = "إدخال" قيمة = "＜%=CheckStrOutput(objPerson.Company)%＞"＞＜/td＞
＜/tr＞
＜/الجدول＞
<br>
<div محاذاة = "المركز">
＜نوع الإدخال = "إرسال" الاسم = "btnOk" القيمة = "إرسال"＞
＜نوع الإدخال = "زر" اسم = "btnClose" قيمة = "إغلاق" عند النقر = "javascript:return window.إغلاق ()؛"＞
＜/شعبة＞
＜/النموذج＞
＜/الجسم＞
＜/HTML＞
<%
تعيين objPerson = لا شيء
%> | 