📄 client.asp
字号:
<%
%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<%
set rs=server.createobject("adodb.recordset") '创建数据库记录集对象
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('尚未有任何记录！系统将自动创建一个新记录');" '警告
response.write"location.href='NewClient.asp';" '跳转到创建新客户
response.write "</script>" 'JavaScript结束
response.end '停止解析，立即执行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 '停止解析，立即执行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") '客户国家区号
ClientCity =rs("ClientCity") '客户城市
ClientAcode =rs("ClientAreacode") '客户区号
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") '记录创建者ID
OpenFlag =rs("ClientOpenFlag") '公开标识
ClientOperatorID=rs("ClientRevisorID") '最后修改者ID
ClientCreateDate=rs("ClientCreateDate") '记录创建日期
ClientUpdateDate=rs("ClientReviseDate") '最后修改时间
rs.close '记录集关闭，为读取新数据做准备
Sqlstr = "select * from [User] where UserID=" & ClientCreatorID '根据创建者ID从User表中读取数据
rs.open Sqlstr,conn,3,2 '执行数据库操作
if not (rs.bof or rs.eof) then '如果记录不为空
ClientCreatorName = rs("UserName") '读取创建者名到全局变量
ClientCreatorSnum = rs("UserSection") '读取创建者部门ID到全局变量
else '如果记录为空，说明所给数据有误
ClientCreatorName = "未知" '则创建者名为未知
ClientCreatorSnum = 0 '部门ID为0， 表示这两个数据是未知的
end if
rs.close '记录集关闭，为读取新数据做准备
Sqlstr = "select * from Section where SectionID =" & ClientCreatorSnum '根据创建者部门ID从Section表中读取相应数据
rs.open Sqlstr,conn,3,2 '执行数据库操作
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 '执行数据库操作
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 '执行操作
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 '执行操作
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 '执行操作
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 '执行操作
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 '执行操作
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 '执行操作
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 '执行操作
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 '执行操作
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("国家/地区","国家区号","省份/直辖市","城市","城市区号","邮编","详细地址","电话","传真","电子邮箱","公司主页","公司年收入","员工人数","开户银行","银行帐号","增值税开票名","增值税号","增值税开户银行","增值税银行帐号","增值税开户地址","增值税开户电话")
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>国家/地区:
<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>国家 区号:
<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>区号:
<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 + -