<% Opção Explícita
'*********************************************
'Descrição: catálogo de endereços 37080308
' Autor: 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 Definir objXml = Server.CreateObject("MSXML2.DOMDocument")
Set objPerson = New Cls_Person ' Gera objeto Cls_Person If Request.Form("btnOk") ＜＞ "" Then
Se LoadXmlDoc(objXml, C_XMLFILE, False, strErr) Então 'Carregar arquivo XML' Atribua valor ao atributo correspondente 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("txtEmpresa"))
If Not objPerson.AddToXml(objXml) Then ' Chame o método AddToXml da classe Cls_Person para adicionar dados AddErr strErr, objPerson.GetLastError
Outro
AddErr strErr, "Adicionar com sucesso"
Response.Write "＜script language=""javascript""＞opener.location.reload();＜/script＞"
Terminar se
Terminar se
Terminar se
Definir objXml = Nada
%>
<HTML>
＜CABEÇA＞
＜TÍTULO＞＜% = C_TÍTULO %＞＜/TÍTULO＞
＜META HTTP-EQUIV="content-type" CONTENT="text/html;charset=GB2312"/>
＜link rel="stylesheet" href="contact.css" type="text/css"＞
＜linguagem script="javascript"＞
<!--
função CheckForm()
{
retornar verdadeiro;
}
//-->
＜/roteiro＞
＜/CABEÇA＞
＜CORPO＞
<% = strEr%>
＜div class="title"＞Adicionar informações de contato＜/div＞
<form name="form1" method="post" action="add.asp" onsubmit="return CheckForm()">
＜table align="center" width="100%" cellpacing="1" cellpadding="2" border="0" bgcolor="#666600">
＜tr bgcolor="#ffffff"＞
＜td width="25%" bgcolor="#e5e5e5" align="right"＞＜b＞Nome: ＜/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＞Nome em inglês: ＜/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＞Celular: ＜/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＞Tel: ＜/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＞E-mail：＜/b＞＜/td＞
＜td＞＜input type="text" name="txtEmail" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Email)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" alinhar="direita"＞＜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＞Empresa: ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtEmpresa" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Company)%＞"＞＜/td＞
＜/tr＞
＜/tabela＞
＜br＞
<div alinhar="centro">
＜input type="enviar" nome="btnOk" valor="Enviar"＞
＜input type="button" name="btnClose" value="Fechar" onclick="javascript:return window.close();"＞
</div>
＜/formulário＞
＜/CORPO＞
＜/HTML＞
<%
Definir objPerson = Nada
%> | 