<% ตัวเลือกที่ชัดเจน
-
'คำอธิบาย: สมุดที่อยู่ 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
Dim strErr ตั้ง objXml = Server.CreateObject("MSXML2.DOMDocument")
ตั้งค่า objPerson = New Cls_Person ' สร้างวัตถุ Cls_Person If 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 = ไม่มีเลย
-
<HTML>
＜หัว><
＜TITLE>＜% = C_TITLE %><＜/TITLE>
＜META HTTP-EQUIV="ประเภทเนื้อหา" CONTENT="text/html;charset=GB2312"/>
＜link rel="stylesheet" href="contact.css" type="text/css"">
<ภาษาสคริปต์="จาวาสคริปต์">
-
ฟังก์ชัน CheckForm()
-
กลับเป็นจริง;
-
-
＜/สคริปต์><
＜/หัว><
<ร่างกาย>
<% = strErr %>
＜div class="title"><เพิ่มข้อมูลการติดต่อ<//div>
<ชื่อแบบฟอร์ม = "form1" method = "โพสต์" action = "add.asp" onsubmit = "return CheckForm ()">
＜table align="center" width="100%" cellspacing="1" cellpadding="2" border="0" bgcolor="#666600">
<tr bgcolor="#ffffff">
＜td width="25%" bgcolor="#e5e5e5" align="right"></b>ชื่อ: ＜/b>＜/td>
＜td width="75%"＞＜input type="text" name="txtName" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Name)%">">＜/td >
</tr>
<tr bgcolor="#ffffff">
＜td bgcolor="#e5e5e5" align="right"></b>ชื่อภาษาอังกฤษ: ＜/b>＜/td>
＜td＞＜input type="text" name="txtNick" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Nick)%">">＜/td">
</tr>
<tr bgcolor="#ffffff">
＜td bgcolor="#e5e5e5" align="right"></b>โทรศัพท์มือถือ: ＜/b>＜/td>
＜td＞＜input type="text" name="txtMobile" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Mobile)%">">＜/td">
</tr>
<tr bgcolor="#ffffff">
＜td bgcolor="#e5e5e5" align="right"></b>โทรศัพท์: ＜/b>＜/td>
＜td＞＜input type="text" name="txtTel" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Tel)%">">＜/td">
</tr>
<tr bgcolor="#ffffff">
＜td bgcolor="#e5e5e5" align="right"></b>อีเมล：</b>＜/td>
＜td＞＜input type="text" name="txtEmail" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Email)%">">＜/td">
</tr>
<tr bgcolor="#ffffff">
＜td bgcolor="#e5e5e5" align="right"></b>QQ：＜/b>＜/td>
＜td＞＜input type="text" name="txtQQ" size="25" class="input" value="＜%=CheckStrOutput(objPerson.QQ)%">">＜/td">
</tr>
<tr bgcolor="#ffffff">
＜td bgcolor="#e5e5e5" align="right"></b>บริษัท: ＜/b>＜/td>
＜td><＜input type="text" name="txtCompany" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Company)%">">＜/td">
</tr>
＜/โต๊ะ><
<br>
<div align="center">
＜input type="submit" name="btnOk" value="Submit">
＜input type="button" name="btnClose" value="Close" onclick="javascript:return window.close();">
＜/div><
＜/แบบฟอร์ม＞
＜/ร่างกาย><
＜/HTML><
-
ตั้งค่า objPerson = ไม่มีเลย
%> | 