📄 cust.htm

📁 Windows Web脚本开发指南/(美) Dan Heflin, Todd Ney著的源码
💻 HTM
字号:
<html>

<head>
<title>Customer Information</title>
</head>
<SCRIPT LANGUAGE="JavaScript" src="http://server/ScriptLibrary/RS.HTM"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
     RSEnableRemoteScripting("http://server/ScriptLibrary");
</SCRIPT>

<body bgcolor="#66CCFF">
<p align="center"><b><font face="Arial" size="6" color="#FFFFFF">Customer
Information</font></b></p>
<form name="frmCust" id="frmCust">
<table border="0" width="100%">
  <tr>
    <td width="15%">Customer ID:</td>
    <td width="85%" colspan="5"><input type="text" name="txtCustID" id="txtCustID" size="20" maxlength="50">&nbsp;&nbsp;
      <input type="button" value="Get Customer" name="btnGetCust" onclick="displayCustByID()"></td>
  </tr>
  <tr>
    <td width="15%">Name:</td>
    <td width="30%" colspan="2"><input type="text" maxlength="10" id="txtFirstName" size="26" name="txtFirstName"></td>
    <td width="55%" colspan="3"><input type="text" maxlength="20" id="txtLastName" size="26" name="txtLastName"></td>
  </tr>
  <tr>
    <td width="15%">Address:</td>
    <td width="85%" colspan="5"><input type="text" maxlength="60" name="txtAddress" size="86"></td>
  </tr>
  <tr>
    <td width="15%">City:</td>
    <td width="21%"><input type="text" maxlength="15" name="txtCity" size="20"></td>
    <td width="9%">State/Prov:</td>
    <td width="12%"><input type="text" maxlength="15" name="txtState" size="10"></td>
    <td width="10%">Zip Code:</td>
    <td width="33%"><input type="text" maxlength="10" name="txtZip" size="13"></td>
  </tr>
  <tr>
    <td width="15%">Country:</td>
    <td width="21%"><input type="text" maxlength="15" id="txtCountry" size="20" name="txtCountry"></td>
    <td width="9%">&nbsp;Phone:</td>
    <td width="55%" colspan="3"><input type="text" maxlength="24" id="txtPhone" size="20" name="txtPhone"></td>
  </tr>
</table>
<br>
<div align="center">
  <center>
  <table border="0" width="317">
    <tr>
      <td width="78" align="center"><input type="button" value="&lt;&lt; First" name="btnFirst" onclick="displayFirstCust()"></td>
      <td width="79" align="center"><input type="button" value="&lt; Prev" name="btnPrevious" onclick="displayPrevCust()"></td>
      <td width="79" align="center"><input type="button" value="Next &gt;" name="btnNext" onclick="displayNextCust()"></td>
      <td width="79" align="center"><input type="button" value="Last &gt;&gt;" name="btnLast" onclick="displayLastCust()"></td>
    </tr>
  </table>
  </center>
</div>
<br>
</form>
<script language="JavaScript">
var aspDoc = "http://server/custinfo/custinfo.asp"
var strDataPassedIn = null;
var strOrgCustID;

function displayCustByID(){
var co;
var obj;

	co = RSExecute(aspDoc,"getCustByID", document.frmCust.txtCustID.value);
	if (co.status != 0){
		alert("Error retreiving customer ID " + document.frmCust.txtCustID.value + ".  Error message: " + co.message);
		return;
	}
	loadDataFlds(co.return_value);
}
function displayNextCust(){
var co;

	if (document.frmCust.txtCustID.value == ""){
		return;
	}
	if (strDataPassedIn != null)
		updateData();
		
	co = RSExecute(aspDoc,"getNextCust", document.frmCust.txtCustID.value);
	if (co.status != 0){
		alert("Error retreiving the next for customer ID " + document.frmCust.txtCustID.value + ".  Error message: " + co.message);
		return;
	}
	if (co.return_value == "")
		alert("No more customers");
	else
		loadDataFlds(co.return_value);

}
function displayPrevCust(){
var co;

	if (document.frmCust.txtCustID.value == ""){
		return;
	}

	if (strDataPassedIn != null)
		updateData();

	co = RSExecute(aspDoc,"getPrevCust", document.frmCust.txtCustID.value);
	if (co.status != 0){
		alert("Error retreiving the previous for customer ID " + document.frmCust.txtCustID.value + ".  Error message: " + co.message);
		return;
	}
	if (co.return_value == "")
		alert("At the top of the customer list");
	else
		loadDataFlds(co.return_value);
 		
}
function displayFirstCust(){
var co;
var objCust;

	if (strDataPassedIn != null)
		updateData();

	objCust = RSGetASPObject(aspDoc);
	co = objCust.getFirstCust();
	if (co.status != 0){
		alert("Error retreiving the first customer.  Error message: " + co.message);
		return;
	}
	loadDataFlds(co.return_value);
	if (co.return_value == "")
		alert("No customers in the database");
}
function displayLastCust(){
var co;
var objCust;

	if (strDataPassedIn != null)
		updateData();

	objCust = RSGetASPObject(aspDoc);
	co = objCust.getLastCust();
	if (co.status != 0){
		alert("Error retreiving the last customer.  Error message: " + co.message);
		return;
	}
	loadDataFlds(co.return_value);
	if (co.return_value == "")
		alert("No customers in the database");
}
function loadDataFlds(strData){
var data = new Array();

	strDataPassedIn = strData;
	data = strData.split("<||>");
	if (data == ""){
		strOrgCustID = "";
		document.frmCust.txtFirstName.value = "";
		document.frmCust.txtLastName.value = "";
		document.frmCust.txtAddress.value = "";
		document.frmCust.txtCity.value = "";
		document.frmCust.txtState.value = "";
		document.frmCust.txtZip.value = "";
		document.frmCust.txtCountry.value = "";
		document.frmCust.txtPhone.value = "";
		alert("Could not find customer with ID: " + document.frmCust.txtCustID.value);
	}
	else{	
		strOrgCustID = data[0];
 		document.frmCust.txtCustID.value = data[0];
 		document.frmCust.txtLastName.value = data[1];
 		document.frmCust.txtFirstName.value = data[2];
		document.frmCust.txtAddress.value = data[3];
		document.frmCust.txtCity.value = data[4];
		document.frmCust.txtState.value = data[5];
		document.frmCust.txtZip.value = data[6];
		document.frmCust.txtCountry.value = data[7];
		document.frmCust.txtPhone.value = data[8];
	}	
}
function updateData(){
var strDataEntered;

	if (document.frmCust.txtCustID.value == ""){
		alert("The customer ID is required for an update.");
		return false;
	}
				
	strDataEntered = document.frmCust.txtCustID.value + '<||>' + document.frmCust.txtLastName.value + '<||>' + document.frmCust.txtFirstName.value + '<||>' + document.frmCust.txtAddress.value + '<||>';
	strDataEntered = strDataEntered + document.frmCust.txtCity.value + '<||>' + document.frmCust.txtState.value + '<||>' + document.frmCust.txtZip.value + '<||>' + document.frmCust.txtCountry.value + '<||>' + document.frmCust.txtPhone.value;

	if (strDataPassedIn == strDataEntered){
		return;
	}
	if (strOrgCustID == "")
		return;

	RSExecute(aspDoc,"updateCustData", strOrgCustID + '<||>' + strDataEntered, doCallBack, doErrCallBack, "Update Customer Data - Customer ID" + document.frmCust.txtCustID.value);
	
}
function doCallBack(co){
	if (co.status != 0)
		alert("Update to customer id " + co.return_value + " failed.  Error msg: " + co.message);
	else
		alert("Customer ID " + co.return_value + " update successfully.");
}
function doErrCallBack(co){
var msg;

	msg = "Error updating!  Error message: " + co.message;
	msg = msg + "Raw data :" + co.data;
	alert(msg);
}

</script>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -