📄 e_choicecustomer.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'*********************************页面说明区**************************** 
'开发者      			金寿吉     
'首次开发时间			2001-08-31    
'最后一次修改时间		2001-09-04  
'主要功能				选择客户信息
 %>		

<!--#include file="../include/Pubconn.asp"-->    
<!--#include file="../include/PubFun.asp"-->  
<%
'******************************变量的说明**********************************
dim UserName									   				'当前用户名
dim userclass  			 										'表示用户的权限级别
dim userCheck			 										'表示用户是否有审核权限
dim Authors(20)													'表示文档集合的作者
dim DepartID(20)		 										'表示文档集合的部门标识

Dim DataRow														'数据的实际行数	
dim TotalPage			 										'总页数
dim curPage     		 										'当前页
dim NextPage			 										'下一页
dim PrevPage			 										'前一页
dim Keyitem(20,10) 		 										'保存数据的值的数组(行小于20，列小于10)
dim ShowField													'主要显示的字段

'*********************************设置常量和变量的值************************
'bgColor	：表示主页背景颜色									firstclor	：表示奇数行的颜色
'SecondColor：表示偶数行的颜色									MainTable	：主表名(控制对用户的权限)
'budStyle	：表示按纽的样式									TableSql 	：查询表达式
'TableOrder	：表示查询中的排序字样								ShowField 	：主要显示的字段
'MainPage	：对应的详细页面 									RowCount 	：控制的最多显示的行数

const bgcolor="#ffffff"            	 							
const firstcolor="#f7f7f7"			 							
const secondcolor="#EDEBEC"	   	 	 											
const MainTable="D_ClientInfo"			 						
const budStyle="background-color: #D1D1D1; border-style: solid; border-width:1"
const TableSql="select * from D_ClientInfo where delflag<>'1'"			
const TableOrder="ClientNum"			 					
ShowField="ClientNum,ClientName,Type,Level,Area,Stuffnum"	
Const RowCount=9	
%>

<!--#include file="../BaseInfo/ListData.Server"-->  
<% 
'需要保存的字段
lcSaveField=Request("lcSaveField")
lcArraySaveField=Split(lcSaveField,",")

'需要返回的字段
lcReturnField=Request("lcReturnField")
Set PubConn=Nothing %>

<Script Language="VBScript">
'功能：表单的初始化代码  
sub formini()
	  	
  	  document.forms(0).ClientName.value="<%=Request("ClientName")%>"
  	  document.forms(0).Area.value="<%=Request("Area")%>"
  	  
  	  document.forms(0).Condition.value="<%=Request("Condition")%>"
  	  document.forms(0).gopage.value="<%=Request("gopage") %>"
  	  if document.forms(0).gopage.value="" then document.forms(0).gopage.value="1"
  	  
	  	 
  	  document.forms(0).lcReturnField.value="<%=Request("lcReturnField")%>"
  	  document.forms(0).lcSaveField.value="<%=Request("lcSaveField")%>"
  	  
  	  <%for i=0 to Ubound(lcArraySaveField) %>
  	  		document.forms(0).<%=lcArraySaveField(i)%>.value="<%=Request(lcArraySaveField(i))%>"
 	  <% next %>
End Sub

'功能：形成查询条件  
Sub SearchClick() 
   dim lcClientName,lcArea
   dim condition
        
   lcClientName=trim(document.forms(0).ClientName.value)
   lcArea=trim(document.forms(0).Area.value)
   
   if lcClientName<>"" then
    	condition="ClientName like '%"+lcClientName+"%'"
   end if
   if lcArea<>"" then
    	if Condition<>"" then
    	   Condition=Condition+" and "
    	end if
    	Condition=Condition+"Area='"+lcArea+"'"
   end if       
   document.forms(0).Condition.value=condition
   document.forms(0).action="E_ChoiceCustomer.asp" 
   document.forms(0).Submit
End Sub

Sub butEnterClick()
	document.forms(0).action=document.forms(0).formId.value
	document.forms(0).target="main"
	document.forms(0).SourcePage.value="subCustomer"
	document.forms(0).submit
	window.close
End Sub

</Script>
<!--#include file="../BaseInfo/ListData.Client"-->   

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>选择客户信息</title><link href="../cread.css" rel="stylesheet" type="text/css">

</head>

<body bgcolor="<%=bgcolor%>" topmargin="5" leftmargin="5" onload="formini()">
 <form method="GET" action="E_ChoiceCustomer.asp">    
 <table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
  <tr>
    <td width="100%" height="1" valign="top"><b><font size="3"><img border="0" src="../pic/it_22.gif"> 
      </font><font size="2">客户信息</font></b><hr width="40%" size="1" align="left">                    
               
    </td>         
  </tr>         
 </table>     
 
  <table border="1" width="100%" cellspacing="0" cellpadding="0" height="36">                                                                                    
  <tr>     
    <td width="100%" height="41" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">     
      <p align="center"><font size="2" face="宋体"><b>客户名称：</b><input   maxLength="32" name="ClientName" size="24" tabindex="1">&nbsp;&nbsp;                                    
      <b>销售区域：</b><input maxLength="32" name="Area" size="25" tabindex="2">&nbsp;</font>                              
      <input type="button" value="查询" name="Search" onclick="SearchClick()" tabindex="3" class=hand style="<%=budStyle%>">                                                                                                                                      
    </td>                                                                                                      
  </tr>                                                                                                      
 </table>                                                                                                      
          
<table width="100%" height="1"><tr><td height="1"></td></tr></table>                                                                                                  
 <table border="1" cellpadding="0" cellspacing="0" width="100%" height="19">                                                                                                 
                                                                                                  
    <tr>                                                                                               
      <td width="4%" align="center" height="20" bgcolor="#DDD2C4">
12 下一页
⌨️ 快捷键说明

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