<% 明示的なオプション
「**********************************************
'説明: 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"--> <%
Dim objXml、objperson
Dim strErr Set objXml = Server.CreateObject("MSXML2.DOMDocument")
Set objperson = New Cls_person ' Cls_person オブジェクトを生成 If Request.Form("btnOk") ＜＞ "" then
If LoadXmlDoc(objXml, C_XMLFILE, False, strErr) then '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"))
objPersonal.Email = CheckStrInput(Request.Form("txtEmail"))
objPerson.QQ = CheckStrInput(Request.Form("txtQQ"))
objperson.Company = CheckStrInput(Request.Form("txtCompany"))
If Not objPerson.AddToXml(objXml) then ' Cls_person クラスの AddToXml メソッドを呼び出してデータを追加します 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-type" CONTENT="text/html;charset=GB2312"/>
＜リンク rel="stylesheet" href="contact.css" type="text/css">
＜スクリプト言語＝”javascript”＞
<!--
関数 CheckForm()
{
true を返します。
}
//-->
＜/スクリプト＞
＜/頭＞
＜ボディ＞
<% = strErr %>
＜div class="title">連絡先情報を追加＜/div＞
<form name="form1" method="post" action="add.asp" onsubmit="return CheckForm()">
＜テーブル align="center" width="100%" cellpacing="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＞
＜/フォーム＞
＜/BODY＞
＜/HTML＞
<%
objperson = なしを設定します
%> | 