⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 customer.asp

📁 客户管理系统的代码示例。“数据库”目录下为客户管理系统的数据库 备份文件；“源代码”目录下为系统各功能页面脚本代码。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="DBCn.asp"-->
<%
	set  rs=server.createobject("adodb.recordset")				'创建数据库记录集对象
	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('尚未有任何记录！系统将自动创建一个新记录');"		'警告
				response.write"location.href='Add.asp';"			'跳转到创建新客户
				response.write "</script>"					'JavaScript结束
				response.end								'停止解析，立即执行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								'停止解析，立即执行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			'执行操作
			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		'执行操作
			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				'执行操作
		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						'执行操作
		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" >&nbsp;<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>
&nbsp;&nbsp;
<select name="S_Relation" class="text100" id="S_Relation">
          <option value="包含" selected>包含</option>
          <option value="不包含">不包含</option>
</select>
&nbsp;&nbsp;
<input name="T_SearchText" type="text" id="T_SearchText" size="20" maxlength="50">
&nbsp;
<input name="Search" type="submit" class="button_all" id="Search" value="查询"></TD>
      </TR>
	  </form>
    <TR>
      <TD height="16" colspan="12" valign="top" >&nbsp;</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>国&nbsp;&nbsp;&nbsp; 家: 
          <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>电&nbsp;&nbsp;&nbsp; 话:
          <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%>">&nbsp;&nbsp;&nbsp;
12

⌨️ 快捷键说明

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