?? client.asp
字號:
<%
%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<%
set rs=server.createobject("adodb.recordset") '創(chuàng)建數據庫記錄集對象
ClientID=request("ClientID") '獲得需要顯示的客戶ID
if ClientID = "" Then '如果未指明訪問客戶ID
Sqlstr = "select top 1 * from client where ClientCreatorID=" & User_ID & " order by ClientID" '則顯示第一個客戶信息
rs.open Sqlstr,conn,3,2 '讀取數據庫
if rs.bof or rs.eof then '如果沒有記錄,說明還沒有任何的客戶記錄
response.write "<script language=javascript>" 'Javascript開始
response.write"alert('尚未有任何記錄！系統(tǒng)將自動創(chuàng)建一個新記錄');" '警告
response.write"location.href='NewClient.asp';" '跳轉到創(chuàng)建新客戶
response.write "</script>" 'JavaScript結束
response.end '停止解析，立即執(zhí)行JavaScript
end if
else '如果指明訪問客戶ID
Sqlstr = "select * from client where (ClientCreatorID=" &User_ID& " and ClientID ="&ClientID&") or (ClientID ="&ClientID&" and ClientOpenFlag = 1 )" '則將對應的客戶信息從數據庫中讀出
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='/menu.asp';" '跳轉到菜單頁面
response.write "</script>" 'JavaScript結束
response.end '停止解析，立即執(zhí)行JavaScript
end if
end if
'如果數據順利讀取，則將數據賦于各個全局變量
ClientID=rs("ClientID") '客戶ID
ClientName =rs("ClientName") '客戶名稱
ClientEmail =rs("ClientEmail") '客戶Email
ClientNation=rs("ClientNation") '客戶國家
ClientPro =rs("ClientProvince") '客戶省份
ClientHpage =rs("ClientHomePage") '客戶主頁
ClientNcode =rs("ClientNationCode") '客戶國家區(qū)號
ClientCity =rs("ClientCity") '客戶城市
ClientAcode =rs("ClientAreacode") '客戶區(qū)號
ClientPcode =rs("ClientMailcode") '客戶郵編
ClientIncome=rs("ClientYearIncome") '客戶年收入
ClientEmpNum=rs("ClientEmpNum") '客戶雇員人數
ClientTel =rs("ClientPhoneNum") '客戶電話
ClientFax =rs("ClientFaxNum") '客戶傳真
ClientAdd =rs("ClientAddress") '客戶地址
ClientTaxName=rs("ClientTaxName") '客戶增值稅開票名
ClientTaxNum =rs("ClientTaxCode") '客戶增值稅號
ClientTaxANum=rs("ClientTaxAccNum") '客戶增值稅帳號
ClientTaxABank=rs("ClientTaxBank") '客戶增值稅開戶銀行
ClientTaxAAdd=rs("ClientTaxAddress") '客戶增值稅開戶地址
ClientTaxATel=rs("ClientTaxPhoneNum") '客戶增值稅開戶電話
ClientABank =rs("ClientAccountBank") '客戶開戶銀行
ClientANum =rs("ClientAccountNum") '客戶銀行帳號
ClientCreatorID=rs("ClientCreatorID") '記錄創(chuàng)建者ID
OpenFlag =rs("ClientOpenFlag") '公開標識
ClientOperatorID=rs("ClientRevisorID") '最后修改者ID
ClientCreateDate=rs("ClientCreateDate") '記錄創(chuàng)建日期
ClientUpdateDate=rs("ClientReviseDate") '最后修改時間
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select * from [User] where UserID=" & ClientCreatorID '根據創(chuàng)建者ID從User表中讀取數據
rs.open Sqlstr,conn,3,2 '執(zhí)行數據庫操作
if not (rs.bof or rs.eof) then '如果記錄不為空
ClientCreatorName = rs("UserName") '讀取創(chuàng)建者名到全局變量
ClientCreatorSnum = rs("UserSection") '讀取創(chuàng)建者部門ID到全局變量
else '如果記錄為空，說明所給數據有誤
ClientCreatorName = "未知" '則創(chuàng)建者名為未知
ClientCreatorSnum = 0 '部門ID為0， 表示這兩個數據是未知的
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select * from Section where SectionID =" & ClientCreatorSnum '根據創(chuàng)建者部門ID從Section表中讀取相應數據
rs.open Sqlstr,conn,3,2 '執(zhí)行數據庫操作
if not (rs.bof or rs.eof) then '如果不為空
ClientCreatorSName = rs("SectionName") '讀取部門名到全局變量
else '否則
ClientCreatorSName = "未知" '部門名為未知
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select * from [User] where UserID=" & ClientOperatorID '根據修改者ID從User表中讀取相應的數據
rs.open Sqlstr,conn,3,2 '執(zhí)行數據庫操作
if not (rs.bof or rs.eof) then '如果不為空
ClientOperatorName = rs("UserName") '讀取修改者名到全局變量
else '否則
ClientOperatorName = "未知" '修改者為未知
end if
rs.close '記錄集關閉，為讀取新數據做準備
'頁面標識處理
rspre=0 '前頁標識
rsnext=0 '下一頁標識
rsfisrt=0 '第一頁標識
rslast=0 '最后一頁標識
if ClientCreatorID = User_ID then '瀏覽自己客戶資料
Sqlstr = "select top 1 ClientID from Client where ClientID<"&ClientID&" and ClientCreatorID="&User_ID&" order by ClientID desc" '從數據庫中讀取前一個客戶數據
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
if not (rs.bof or rs.eof) then '如果不為空
rspre=1 '置前頁標識
ClientPreID = rs("ClientID") '并獲得前頁客戶ID
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select top 1 ClientID from Client where ClientID>"&ClientID&" and ClientCreatorID="&User_ID&" order by ClientID" '從數據庫中讀取后一個客戶數據
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
if not (rs.bof or rs.eof) then '如果不為空
rsnext=1 '置下一頁標志
ClientNextID = rs("ClientID") '獲得后一頁客戶ID
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select count(ClientID) as Rnum from Client where ClientID<"&ClientID&" and ClientCreatorID="&User_ID '讀取當前客戶記錄的位置
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
Rnum = rs("Rnum") '得到當前客戶記錄的位置
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select count(ClientID) as Totalnum , max(ClientID) as LastID , min(ClientID) as FirstID from Client where ClientCreatorID="&User_ID '獲得客戶最小、最大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
else
''瀏覽別人記錄程序
Sqlstr = "select top 1 ClientID from Client where ClientID<"&ClientID&" and ClientCreatorID<>"&User_ID&" and ClientOpenFlag = 1 order by ClientID desc" '從數據庫中讀取前一個客戶數據
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
if not (rs.bof or rs.eof) then '如果不為空
rspre=1 '置前頁標識
ClientPreID = rs("ClientID") '并獲得前頁客戶ID
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select top 1 ClientID from Client where ClientID>"&ClientID&" and ClientCreatorID<>"&User_ID&" and ClientOpenFlag = 1 order by ClientID" '從數據庫中讀取后一個客戶數據
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
if not (rs.bof or rs.eof) then '如果不為空
rsnext=1 '置后頁標識
ClientNextID = rs("ClientID") '獲得后頁客戶ID
end if
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select count(ClientID) as Rnum from Client where ClientID<"&ClientID&" and ClientOpenFlag = 1 and ClientCreatorID<>"&User_ID '獲得當前記錄位置
rs.open Sqlstr,conn,3,2 '執(zhí)行操作
Rnum = rs("Rnum") '獲得當前客戶記錄位置
rs.close '記錄集關閉，為讀取新數據做準備
Sqlstr = "select count(ClientID) as Totalnum , max(ClientID) as LastID , min(ClientID) as FirstID from Client where ClientOpenFlag = 1 and ClientCreatorID<>"&User_ID
'獲得客戶最小、最大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 '置最小ID標識
end if
if LastID<>ClientID then '如果客戶ID不等于最大客戶ID
rslast = 1 '置最大ID標識
end if
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>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</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="12" height="24" valign="top" ><Span align=center><img src="../images/DispStation_H.gif" width="11" height="24"></span></TD>
<TD width="137" align="center" valign="middle" bgcolor="#566CDB" >客戶相關信息察看</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("國家/地區(qū)","國家區(qū)號","省份/直轄市","城市","城市區(qū)號","郵編","詳細地址","電話","傳真","電子郵箱","公司主頁","公司年收入","員工人數","開戶銀行","銀行帳號","增值稅開票名","增值稅號","增值稅開戶銀行","增值稅銀行帳號","增值稅開戶地址","增值稅開戶電話")
for i=1 to 21
%>
<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" ><!--DWLayoutEmptyCell--> </TD>
</TR>
<FORM name=saveclient action=saveclient.asp method=post>
<TR>
<TD height="30" colspan="5" 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="30" maxlength="50" value="<%=ClientName%>">
<input name="T_ClientNameID" type="hidden" value=<%=ClientID%>>
</FONT></TD>
<TD colspan="7" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT><FONT face=Wingdings ></FONT></FONT><span class="style1">電子郵箱:
<input name="T_ClientEmail" type="text" id="T_ClientEmail" size="30" maxlength="50" value="<%=ClientEmail%>">
</span></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>國家/地區(qū):
<input name="T_ClientNation" type="text" id="T_ClientNation" size="15" maxlength="30" value="<%=ClientNation%>">
</FONT></TD>
<TD colspan="5" 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>
<TD colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT><FONT face=Wingdings ></FONT></FONT><span class="style1">公司主頁:
<input name="T_ClientHpage" type="text" id="T_ClientHpage" size="30" maxlength="50" value="<%=ClientHpage%>">
</span></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>國家 區(qū)號:
<input name="T_ClientNcode" type="text" id="T_ClientNcode" size="15" maxlength="30" value="<%=ClientNcode%>">
</FONT></TD>
<TD colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>城市</FONT><FONT color=#ff6600>:
<input name="T_ClientCity" type="text" id="T_ClientCity" size="15" maxlength="30" value="<%=ClientCity%>">
</FONT></TD>
<TD colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>區(qū)號:
<input name="T_ClientAcode" type="text" id="T_ClientAcode" size="15" maxlength="30" value="<%=ClientAcode%>">
</FONT></TD>
<TD colspan="2" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>郵編:
<input name="T_ClientPcode" type="text" id="T_ClientPcode" size="15" maxlength="30" value="<%=ClientPcode%>">
</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>公司年收入</FONT><FONT color=#ff6600>:
<input name="T_ClientIncome" type="text" id="T_ClientIncome" size="15" maxlength="30" value="<%=ClientIncome%>">
</FONT></TD>
<TD colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>員工人數:
<input name="T_ClientEmpNum" type="text" id="T_ClientCity4" size="15" maxlength="30" value="<%=ClientEmpNum%>">
</FONT></TD>
<TD colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>電話</FONT><FONT color=#ff6600>:
<input name="T_ClientTel" type="text" id="T_ClientCity5" size="15" maxlength="30" value="<%=ClientTel%>">
</FONT></TD>
<TD width="177" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -