?? customer.asp
字號:
<!--#include file="DBCn.asp"-->
<%
set rs=server.createobject("adodb.recordset") '創(chuàng)建數據庫記錄集對象
ClientID=request("ClientID") '獲得需要顯示的客戶ID
if ClientID = "" Then '如果未指明訪問客戶ID
Sqlstr = "select top 1 * from Customer" '則顯示第一個客戶信息
rs.open Sqlstr,conn,3,2 '讀取數據庫
if rs.bof or rs.eof then '如果沒有記錄,說明還沒有任何的客戶記錄
response.write "<script language=javascript>" 'Javascript開始
response.write"alert('尚未有任何記錄！系統將自動創(chuàng)建一個新記錄');" '警告
response.write"location.href='Add.asp';" '跳轉到創(chuàng)建新客戶
response.write "</script>" 'JavaScript結束
response.end '停止解析，立即執(zhí)行JavaScript
end if
else '如果指明訪問客戶ID
Sqlstr = "select * from Customer where ID ="&ClientID '則將對應的客戶信息從數據庫中讀出
rs.open Sqlstr,conn,3,2 '讀取數據庫
if rs.bof or rs.eof then '如果記錄為空，說明該記錄不存在或者沒有公開
response.write "<script language=javascript>" 'Javascript開始
response.write"alert('暫時無記錄！');" '警告
response.write"location.href='Main.asp';" '跳轉到菜單頁面
response.write "</script>" 'JavaScript結束
response.end '停止解析，立即執(zhí)行JavaScript
end if
end if
'如果數據順利讀取，則將數據賦于各個全局變量
ClientID =rs("ID") '客戶ID
ClientName =rs("Name") '客戶名稱
ClientEmail =rs("Email") '客戶Email
ClientNation=rs("Nation") '客戶國家
ClientPro =rs("Province") '客戶省份
ClientHpage =rs("HomePage") '客戶主頁
ClientPcode =rs("Postcode") '客戶郵編
ClientIncome=rs("YearIncome") '客戶年收入
ClientEmpNum=rs("EmpNum") '客戶雇員人數
ClientTel =rs("Phone") '客戶電話
ClientFax =rs("Fax") '客戶傳真
ClientAdd =rs("Address") '客戶地址
ClientABank =rs("AccountBank") '客戶開戶銀行
ClientANum =rs("AccountNum") '客戶銀行帳號
rs.close '記錄集關閉，為讀取新數據做準備
'頁面標識處理
rspre=0 '前頁標識
rsnext=0 '下一頁標識
rsfisrt=0 '第一頁標識
rslast=0 '最后一頁標識
Sqlstr = "select top 1 ID from Customer where ID<"&ClientID&" order by ID desc" '從數據庫中讀取前一個客戶數據
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
if not (rs.bof or rs.eof) then '如果不為空
rspre=1 '置前頁標識
ClientPreID = rs("ID") '并獲得前頁客戶ID
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select top 1 ID from Customer where ID>"&ClientID&" order by ID" '從數據庫中讀取后一個客戶數據
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
if not (rs.bof or rs.eof) then '如果不為空
rsnext=1 '置下一頁標志
ClientNextID = rs("ID") '獲得后一頁客戶ID
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select count(ID) as Rnum from Customer where ID<"&ClientID '讀取當前客戶記錄的位置
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
Rnum = rs("Rnum") '得到當前客戶記錄的位置
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select count(ID) as Totalnum, max(ID) as LastID, min(ID) as FirstID from Customer" '獲得客戶最小、最大ID和客戶記錄總數
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
Totalnum = rs("Totalnum") '獲得客戶記錄總數
FirstID = rs("FirstID") '獲得最小客戶ID
LastID = rs("LastID") '獲得最大客戶ID
rs.close '記錄集關閉，為讀取新數據做準備
if FirstID<>ClientID then '如果客戶ID不等于最小客戶ID
rsfirst = 1 '置第一頁標識
end if
if LastID<>ClientID then '如果客戶ID不等于最大客戶ID
rslast = 1 '置最后一頁標識
end if
set rs=nothing '釋放記錄集對象
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>客戶管理系統</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
</HEAD>
<LINK href="css.css" rel=stylesheet>
<BODY><BR>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<FORM name=Searchclient action=list.asp method=post>
<TR>
<TD width="149" height="24" valign="top" colspan="2" bgcolor="#566CDB" >
<font face="黑體" size="3">客戶詳細信息</font></TD>
<TD colspan="10" align="right" valign="middle" bgcolor="#DDDDDD" > <select name="S_SearchOption" class="text100" id="S_SearchOption">
<option value="0">客戶名稱</option>
<%
'生成下拉列表
SqlAttachNameTab = Array("國家","省/市","地址")
for i=1 to 3
%>
<option value="<%=i%>"><%=SqlAttachNameTab(i-1)%></option>
<%
next
%>
</select>
<select name="S_Relation" class="text100" id="S_Relation">
<option value="包含" selected>包含</option>
<option value="不包含">不包含</option>
</select>
<input name="T_SearchText" type="text" id="T_SearchText" size="20" maxlength="50">
<input name="Search" type="submit" class="button_all" id="Search" value="查詢"></TD>
</TR>
</form>
<TR>
<TD height="16" colspan="12" valign="top" > </TD>
</TR>
<FORM name=saveclient action=save.asp method=post>
<TR>
<TD height="30" colspan="12" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>客戶名稱:
<input name="T_ClientName" type="text" id="T_ClientName" size="45" maxlength="50" value="<%=ClientName%>">
<input name="T_ClientNameID" type="hidden" value=<%=ClientID%>>
</FONT></TD>
</TR>
<TR>
<TD height="30" colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>國 家:
<input name="T_ClientNation" type="text" id="T_ClientNation" size="15" maxlength="30" value="<%=ClientNation%>">
</FONT></TD>
<TD colspan="9" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>省/市:
<input name="T_ClientPro" type="text" id="T_ClientPro" size="15" maxlength="30" value="<%=ClientPro%>">
</FONT></TD>
</TR>
<TR>
<TD height="30" colspan="12" align="left" valign="middle" >
<FONT face=Wingdings
color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>詳細地址:
<input name="T_ClientAdd" type="text" id="T_ClientAdd" size="90" maxlength="120" value="<%=ClientAdd%>">
</FONT></TD>
</TR>
<TR>
<TD height="30" colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>公司主頁:</FONT><span class="style1">
<input name="T_ClientHpage" type="text" id="T_ClientHpage" size="22" maxlength="50" value="<%=ClientHpage%>">
</span></TD>
<TD colspan="6" align="left" valign="middle" >
<FONT face=Wingdings
color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>電子郵箱:</FONT><span class="style1">
<input name="T_ClientEmail" type="text" id="T_ClientEmail" size="28" maxlength="50" value="<%=ClientEmail%>"></span></TD>
</TR>
<TR>
<TD height="30" colspan="3" align="left" valign="middle" >
<FONT face=Wingdings
color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>電 話:
<input name="T_ClientTel" type="text" id="T_ClientTel" size="22" maxlength="30" value="<%=ClientTel%>">
</FONT></TD>
<TD colspan="2" align="left" valign="middle" >
<FONT face=Wingdings
color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>傳真:
<input name="T_ClientFax" type="text" id="T_ClientFax" size="18" maxlength="30" value="<%=ClientFax%>">
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -