📄 select.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="config.ini"-->
<!--#include file="commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")

dim theName : theName = Request("theName")
dim theForm : theForm = Request("theForm")
dim theid : theid = Request("theid")
if Request("theid")=-1 or Request("theid")="-1" then theid=""
dim theseq : theseq=Request("theseq")
sysid = getsysaccount("sysaccountid")
'Response.Write theseq
%>
<html>
<head>
<title>select</title>
<Script Language=JavaScript>
function pickup2(what,whatId){
	   window.opener.<%=theForm%>.<%=theName%>name.value=what;
	   window.opener.<%=theForm%>.<%=theName%>.value=whatId;
	   	window.close();
}
function pickup21(what,whatId,what2,whatId2){
	   window.opener.<%=theForm%>.ordername.value=what;
	   window.opener.<%=theForm%>.order.value=whatId;
	   window.opener.<%=theForm%>.accountname.value=what2;
	   window.opener.<%=theForm%>.account.value=whatId2;
	   window.close();
}
function pickup22(what,whatId,what2,whatId2){
	   window.opener.<%=theForm%>.poname.value=what;
	   window.opener.<%=theForm%>.po.value=whatId;
	   window.opener.<%=theForm%>.accountname.value=what2;
	   window.opener.<%=theForm%>.account.value=whatId2;
	   window.close();
}
function pickup3(what,whatId,available,nonnet){
	   window.opener.<%=theForm%>.<%=theName%>name.value=what;
	   window.opener.<%=theForm%>.<%=theName%>.value=whatId;
	   window.opener.<%=theForm%>.available<%=theseq%>.value=available;
	   //window.opener.<%=theForm%>.nonnet<%=theseq%>.value=nonnet;
	   window.close();
}
function pickup4(what,whatId,whatprocess){
	   window.opener.<%=theForm%>.<%=theName%>name.value=what;
	   window.opener.<%=theForm%>.<%=theName%>.value=whatId;
	   window.opener.<%=theForm%>.prc<%=theSeq%>.value=whatprocess;
	   	window.close();
}
function pickup5(what,whatId){
	   window.opener.<%=theForm%>.<%=theName%>.value=what;
	   window.opener.<%=theForm%>.sel<%=theid%>.value=whatId;
	   	window.close();
}
function pickup6(what,whatId,billaddress,phone,fax,city,zip){
	   window.opener.<%=theForm%>.<%=theName%>name.value=what;
	   window.opener.<%=theForm%>.<%=theName%>.value=whatId;
	   window.opener.<%=theForm%>.workphone.value=phone;
	   window.opener.<%=theForm%>.fax.value=fax;
	   window.opener.<%=theForm%>.address.value=billaddress;
	   window.opener.<%=theForm%>.city.value=city;
	   window.opener.<%=theForm%>.zip.value=zip;
	   window.close();
}
function pickup7(what,whatId,what2,whatId2,what3,whatId3){
	   window.opener.<%=theForm%>.accountname.value=what;
	   window.opener.<%=theForm%>.account.value=whatId;
	   window.opener.<%=theForm%>.paymentname.value=what2;
	   window.opener.<%=theForm%>.payment.value=whatId2;
	   window.opener.<%=theForm%>.ordername.value=what3;
	   window.opener.<%=theForm%>.order.value=whatId3;
	   //window.opener.<%=theForm%>.amount.value=what3;
	   window.close();
}
function pickup9(what,whatId,what2,whatId2,what3,whatId3){
	   window.opener.<%=theForm%>.accountname.value=what;
	   window.opener.<%=theForm%>.account.value=whatId;
	   window.opener.<%=theForm%>.popaymentname.value=what2;
	   window.opener.<%=theForm%>.popayment.value=whatId2;
	   window.opener.<%=theForm%>.poname.value=what3;
	   window.opener.<%=theForm%>.po.value=whatId3;
	   //window.opener.<%=theForm%>.amount.value=what3;
	   window.close();
}
function pickup8(what,whatId){
	   window.opener.<%=theForm%>.ownername.value=what;
	   window.opener.<%=theForm%>.bowner.value=whatId;
	   window.close();
}

function CheckAll(form){
	for (var i=0;i<form.elements.length;i++){
		var e = form.elements[i];
		if (e.name != 'chkall')
			e.checked = form.chkall.checked;
	}
}

</Script>
<%
if request("userid")<>"" then
	
	user = Split(Request("userid"), ",")
	for i =0 to ubound(user)
		username=username&","&request("user"&trim(user(i)))
	next
	username=right(username,len(username)-1)
%>
<Script Language=JavaScript>
	   window.opener.<%=theForm%>.bowner.value='<%=Request("userid")%>';
	   window.opener.<%=theForm%>.ownername.value='<%=username%>';
	   window.close();
</Script>
<%
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="global.css" rel=stylesheet type=text/css>
</head>
<body>
<form name="form1" method="Post" action="">
 <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="100%">
  <select name="Find" width="10">
    <%                           
if  instr(theName,"owner")>0 or instr(theName,"user")>0 then
    session("SelectName")="用户"
    %>                           
    <option value="UserName">用户</option>
    <option value="Title" <%if request("Find")="Title" then Response.Write " selected"%>>职务</option>
    <option value="Territory" <%if request("Find")="Territory" then Response.Write " selected"%>>区域</option>
    <%                           
elseif  instr(theName,"account")>0 then
    session("SelectName")="客户"                         
    %>                           
    <option value="siccode" <%if request("Find")="siccode" then Response.Write " selected"%>>客户代码</option>
    <option value="account">客户</option>
    <option value="city" <%if request("Find")="city" then Response.Write " selected"%>>城市</option>
    <option value="description" <%if request("Find")="description" then Response.Write " selected"%>>描述</option>
    <%
elseif  theName="Manufacturer" or  theName="Supplier"  then
    session("SelectName")="制造商"                         
    %>                           
    <option value="account">制造商</option>
    <option value="siccode" <%if request("Find")="siccode" then Response.Write " selected"%>>制造商代码</option>
    <option value="city" <%if request("Find")="city" then Response.Write " selected"%>>城市</option>
    <%                           
elseif  theName="contact" then
    session("SelectName")="联系人"
    %> 
    <option value=contact <%if request("Find")="contact" then Response.Write "selected"%>>联系人</option>
    <option value=account <%if request("Find")="account" then Response.Write "selected"%>>客户</option>
    <option value=contactdepartment <%if request("Find")="contactdepartment" then Response.Write "selected"%>>部门</option>
    <option value=title <%if request("Find")="title" then Response.Write "selected"%>>职务</option>
    <option value=siccode <%if request("Find")="email" then Response.Write "selected"%>>邮件</option>
    <option value=owner <%if request("Find")="workphone" then Response.Write "selected"%>>电话</option>
	<%
elseif  theName="PO" or theName="CPO" then
    session("SelectName")="采购单"
    %> 
          <option value=pono <%if request("Find")="pono" then Response.Write "selected"%>>采购单号</option>
          <option value=Account <%if request("Find")="Account" then Response.Write "selected"%>>客户</option>
          <option value=totalamount <%if request("Find")="totalamount" then Response.Write "selected"%>>金额</option>
          <option value=Status <%if request("Find")="Status" then Response.Write "selected"%>>状态</option>
          <option value=poDate <%if request("Find")="poDate" then Response.Write "selected"%>>采购日期</option>
          <option value=Owner <%if request("Find")="industry" then Response.Write "selected"%>>采购员</option>
	<%
elseif  instr(theName,"sendlocation")>0 then                         
    session("SelectName")="库存"
    %> 
          <option value=location <%if request("Find")="location" then Response.Write "selected"%>>货位</option>
          <option value=whse <%if request("Find")="whse" then Response.Write "selected"%>>仓库</option>
          <option value=productcode <%if request("Find")="productcode" then Response.Write "selected"%>>货号</option>
          <option value=model <%if request("Find")="model" then Response.Write "selected"%>>型号</option>
          <option value=qty_on_hand <%if request("Find")="qty_on_hand" then Response.Write "selected"%>>在库量</option>
          <option value=qty_rsvd <%if request("Find")="qty_rsvd" then Response.Write "selected"%>>保留量</option>
          <option value=nonnet <%if request("Find")="nonnet" then Response.Write "selected"%>>非净货位</option>
	<%
elseif  instr(theName,"location")>0 then                         
    session("SelectName")="货位"
	%> 
          <option value=location <%if request("Find")="location" then Response.Write "selected"%>>货位</option>
          <option value=whse <%if request("Find")="whse" then Response.Write "selected"%>>仓库</option>
          <option value=locationtype <%if request("Find")="locationtype" then Response.Write "selected"%>>货位类型</option>
          <option value=nonnet <%if request("Find")="nonnet" then Response.Write "selected"%>>非净货位</option>
	<%
elseif  theName="order" or theName="corder" then  
    session("SelectName")="合同号"                       
    %> 
          <option value=OrderNum <%if request("Find")="OrderNum" then Response.Write "selected"%>>合同号</option>
          <option value=Account <%if request("Find")="Account" then Response.Write "selected"%>>客户</option>
          <option value=totalamount <%if request("Find")="totalamount" then Response.Write "selected"%>>金额</option>
          <option value=Status <%if request("Find")="Status" then Response.Write "selected"%>>状态</option>
          <option value=SignedDate <%if request("Find")="SignedDate" then Response.Write "selected"%>>签订日期</option>
          <option value=Owner <%if request("Find")="industry" then Response.Write "selected"%>>销售员</option>
	<%
elseif  theName="delivery" then  
    session("SelectName")="发货单号"                       
    %> 
          <option value=deliveryno <%if request("Find")="deliveryno" then Response.Write "selected"%>>发货单号</option>
          <option value=Account <%if request("Find")="Account" then Response.Write "selected"%>>客户</option>
          <option value=totalamount <%if request("Find")="totalamount" then Response.Write "selected"%>>金额</option>
          <option value=Status <%if request("Find")="Status" then Response.Write "selected"%>>状态</option>
          <option value=Owner <%if request("Find")="industry" then Response.Write "selected"%>>销售员</option>
	<%
elseif  theName="deal" then  
    session("SelectName")="销售机会"  
    %> 
          <option value=deal <%if request("Find")="deal" then Response.Write "selected"%>>销售机会</option>
          <option value=Account <%if request("Find")="Account" then Response.Write "selected"%>>客户</option>
          <option value=Status <%if request("Find")="Status" then Response.Write "selected"%>>状态</option>
          <option value=dealDate <%if request("Find")="dealDate" then Response.Write "selected"%>>开始日期</option>
          <option value=Owner <%if request("Find")="industry" then Response.Write "selected"%>>销售员</option>
	<%
elseif  theName="expense" then  
    session("SelectName")="费用"  
    %> 
          <option value=expenseNo <%if request("find")="expenseNo" then Response.Write "selected"%>>费用编号</option>
          <option value=subject <%if request("find")="subject" then Response.Write "selected"%>>费用名称</option>
          <option value=Status <%if request("find")="Status" then Response.Write "selected"%>>费用状态</option>
          <option value=Username <%if request("find")="Username" then Response.Write "selected"%>>用户</option>
	<%
elseif  instr(theName,"quote")>0 then  
    session("SelectName")="报价单号"  
    %> 
          <option value=QuoteNo <%if request("find")="QuoteNo" then Response.Write "selected"%>>报价单号</option>
          <option value=Account <%if request("find")="Account" then Response.Write "selected"%>>客户</option>
          <option value=Status <%if request("find")="Status" then Response.Write "selected"%>>状态</option>
          <option value=QuoteDate <%if request("find")="QuoteDate" then Response.Write "selected"%>>报价日期</option>
          <option value=Owner <%if request("find")="Owner" then Response.Write "selected"%>>报价人</option>
	<%
12 3 下一页
💿 文件大小 3031 K
👤 上传用户 ivanyeh
📂 所属分类 SQL Server
🏷️ 相关标签

#500 #缺陷 #发现 #重复
⌨️ 快捷键说明

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