contact.htm

来自「Windows Web脚本开发指南/(美) Dan Heflin, Todd N」· HTM 代码 · 共 139 行

HTM

139 行

<html>
<head>
<title>Contact Page</title>
</head>
<script language="JavaScript">
var dbLoc = "D:/WSC BOOK/chpt15/Examples/";
var objContact;
function initPage(){
	objContact = new ActiveXObject("contactinfo.wsc");
	objContact.dbLoc = dbLoc;
}
function retrContactData(){
	if (frmContact.txtRetLName.value == ""){
		alert("Please enter a last name to retreive.");
		return;
	}
	objContact.lName = frmContact.txtRetLName.value;
	objContact.retrieve();
	moveObjectDataToForm();
	if (objContact.id == 0)
		alert("Contact " + frmContact.txtRetLName.value + " not found.");
}
function moveObjectDataToForm(){
	frmContact.txtFName.value = objContact.fName;
	frmContact.txtLName.value = objContact.lName;
	frmContact.txtAddress.value = objContact.address;
	frmContact.txtCity.value = objContact.city;
	frmContact.txtState.value = objContact.state;
	frmContact.txtZipCode.value = objContact.zip;
	frmContact.txtPhoneNumber.value = objContact.phone;
	frmContact.txtEMail.value = objContact.email;
}
function moveFormDataToObject(){
	objContact.fName = frmContact.txtFName.value;
	objContact.lName = frmContact.txtLName.value;
	objContact.address = frmContact.txtAddress.value;
	objContact.city = frmContact.txtCity.value;
	objContact.state = frmContact.txtState.value;
	objContact.zip = frmContact.txtZipCode.value;
	objContact.phone = frmContact.txtPhoneNumber.value;
	objContact.email = frmContact.txtEMail.value;
}
function delContact(){
var sTemp = objContact.lName;

	if (objContact.del()){
		moveObjectDataToForm();
		alert(sTemp + " was deleted.");
	}	
}
function updContact(){
var oldLName;
	if (frmContact.txtLName.value == ""){
		alert("Please enter a last name.");
		return;
	}
    oldLName = objContact.lName;
    moveFormDataToObject();
    if (objContact.update(oldLName))
        alert("Update succeed.");
}
function addContact(){
var data;
    moveFormDataToObject();
	if (frmContact.txtLName.value == ""){
		alert("Please enter a last name.");
		return;
	}
	if (objContact.add())
        alert(objContact.lName + " was inserted successfully.");
}
function clearPage(){
	objContact.clear();
}
</script>
<body onload="initPage()">
<form id="frmContact">
<p align="center"><font size="5">
Contact Information</font>
<table border="0" width="100%">
  <tr>
    <td width="10%">First Name:</td>
    <td width="56%"><input type="text" name="txtFName" maxlength="20" size="20"></td>
  </tr>
  <tr>
    <td width="10%">Last Name:</td>
    <td width="56%"><input type="text" name="txtLName" maxlength="30" size="30"></td>
  </tr>
  <tr>
    <td width="10%">Address:</td>
    <td width="56%"><input type="text" name="txtAddress" maxlength="50" size="50"></td>
  </tr>
  <tr>
    <td width="10%">City:</td>
    <td width="56%"><input type="text" name="txtCity" maxlength="25" size="25"></td>
  </tr>
  <tr>
    <td width="10%">State:</td>
    <td width="56%"><input type="text" name="txtState" maxlength="2" size="2"></td>
  </tr>
  <tr>
    <td width="10%">Zip Code:</td>
    <td width="56%"><input type="text" name="txtZipCode" maxlength="10" size="10"></td>
  </tr>
  <tr>
    <td width="10%">Phone Number:</td>
    <td width="56%"><input type="text" name="txtPhoneNumber" maxlength="20" size="20"></td>
  </tr>
  <tr>
    <td width="10%">E-Mail Address:</td>
    <td width="56%"><input type="text" name="txtEMail" maxlength="255" size="52"></td>
  </tr>
</table>
<table border="0" width="106%">
    <tr>
      <td width="15%"></td>
      <td width="29%"><input type="button" value="Get Contact By Last Name" name="btnRetreive" onclick="retrContactData()"></td>
      <td width="73%"><input type="text" name="txtRetLName" maxlength="30" size="30"></td>
    </tr>
    <tr>
      <td width="15%"></td>
      <td width="29%"><input type="button" value="Add Contact" name="btnAdd" onclick="addContact()"></td>
      <td width="73%"><input type="button" value="Update Contact" name="btnUpdate" onclick="updContact()"></td>
    </tr>
    <tr>
      <td width="15%"></td>
      <td width="29%"><input type="button" value="Delete Contact" name="btnDelete" onclick="delContact()"></td>
      <td width="73%"><input type="reset" value="Clear Page" name="btnClear" onclick="clearPage()"></td>
    </tr>
    <tr>
      <td width="15%"></td>
      <td width="29%"></td>
      <td width="73%"></td>
    </tr>
  </table>
</form>
</body>
</html>

contact.htm - 源码说明

本页面展示了「Windows Web脚本开发指南/(美) Dan Heflin, Todd Ney著的源码」中的 contact.htm 源码文件，采用 HTM 编程语言编写，共 139 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Windows相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?