<% Opción explícita
'************************************************
'Descripción: 37080308 libreta de direcciones
' 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 Set objXml = Server.CreateObject("MSXML2.DOMDocument")
Establecer objPerson = New Cls_Person ' Generar objeto Cls_Person If Request.Form("btnOk") ＜＞ "" Entonces
Si LoadXmlDoc(objXml, C_XMLFILE, False, strErr) Entonces 'Cargar archivo XML' Asigne valor al atributo correspondiente 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"))
Si no es objPerson.AddToXml(objXml) Then ' Llame al método AddToXml de la clase Cls_Person para agregar datos AddErr strErr, objPerson.GetLastError
Demás
AddErr strErr, "Añadir correctamente"
Response.Write "＜script language=""javascript""＞opener.location.reload();＜/script＞"
Terminar si
Terminar si
Terminar si
Establecer objXml = Nada
%>
<HTML>
＜CABEZA＞
＜TÍTULO＞＜% = C_TÍTULO %＞＜/TÍTULO＞
＜META HTTP-EQUIV="tipo de contenido" CONTENT="text/html;charset=GB2312"/>
＜enlace rel="hoja de estilo" href="contacto.css" tipo="texto/css"＞
＜lenguaje de escritura="javascript"＞
<!--
función VerificarForm()
{
devolver verdadero;
}
//-->
＜/guión＞
＜/CABEZA＞
＜CUERPO＞
<% = strErr %>
＜div class="title"＞Agregar información de contacto＜/div＞
<nombre del formulario="form1" método="post" action="add.asp" onsubmit="return CheckForm()">
＜table align="center" width="100%" cellspace="1" cellpadding="2" border="0" bgcolor="#666600">
＜tr bgcolor="#ffffff"＞
＜td width="25%" bgcolor="#e5e5e5" align="right"＞＜b＞Nombre: ＜/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＞Nombre en 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＞Teléfono móvil: ＜/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＞Correo electrónico:＜/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＞Empresa: ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtCompany" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Company)%＞"＞＜/td＞
＜/tr＞
＜/mesa＞
＜br＞
<div align="centro">
＜tipo de entrada="enviar" nombre="btnOk" valor="Enviar"＞
＜tipo de entrada="botón" nombre="btnClose" valor="Cerrar" onclick="javascript:return window.close();"＞
＜/div＞
＜/formulario＞
＜/CUERPO＞
＜/HTML＞
<%
Establecer objPerson = Nada
%> | 