📄 deliveryquery.asp

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

if request("mod")="deleteok" then
	response.write "<SCRIPT language=javascript>window.resizeTo(300,200);window.focus()</SCRIPT>"
	response.write "<title>清空历史数据</title>"
	response.write "<LINK href="&"../global.css"&" rel=stylesheet type=text/css>"
	response.write "<br>"
	response.write "<p align=center><font color=red size=2><b>"&"<img src=../images/smallprompt.jpg>&nbsp;确信要清空历史数据！"&"</b></font><br>"
	response.write "<font size=2>清空历史数据是指清除昨日（含昨天）以前的所有数据！"&"</font></p>"
	response.write "<p align=center><input type=button value="&"确定"&" onclick="&"javascript:clryestoday2();"&">  <input type=button value="&"取消"&" onclick="&"javascript:clryestoday3();"&"></p>"
end if

if request("mod")="delete" then
	dim connD
	dim rsD
	set connD=server.CreateObject("adodb.connection")
	set rsD=server.CreateObject("adodb.recordset")
	connD.Open connstring
if objcheck.CheckUserFunction2("po","add") then
	rsD.Open "delete from deliveryquerytemp where createdate < '"&date()&"' ",connD,2,3,1
else
	rsD.Open "delete from deliveryquerytemp where createdate < '"&date()&"' and owner='"&session("loginid")&"'",connD,2,3,1
end if
	set rsD=nothing
	connD.Close 
	set connD=nothing 
response.Redirect("deliveryquery.asp")
end if

if request("mod")="deliverysave" then
	dim connq
	dim rsq
	set connq=server.CreateObject("adodb.connection")
	set rsq=server.CreateObject("adodb.recordset")
	connq.Open connstring
	if request("result")="update" then
		rsq.Open "select * from deliveryquerytemp where id="&cint(request("id")),connq,2,3,1
			if request("querydate"&request("id"))<>"" then rsq("querydate")=request("querydate"&request("id"))			
			rsq.Update
			rsq.Close
	elseif request("result")="clear" then
		rsq.open "delete from deliveryquerytemp where id="&cint(request("id")),connq,2,3,1
	end if
	set rsq=nothing
	connq.Close 
	set connq=nothing 
response.Redirect("deliveryquery.asp")
end if

dim conn
dim rs 
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
'strwhere="where 1=1 "
'按查询状态显示
if request("querycheck")<>"" then
	session("querycheck")=request("querycheck")
else
	if session("querycheck")="" then session("querycheck")="2"
end if

	if session("querycheck")="0" then 
		strwhere=strwhere
	elseif session("querycheck")="1" then
		strwhere=strwhere & " and querydate is not "&"null"
	elseif session("querycheck")="2" then
		strwhere=strwhere & " and querydate is "&"null"
	end if
	'response.write strwhere&"<br>"
	'response.write request("querycheck")&"<br>"

if Request.QueryString("orderbyfield")<>"" then
	'排序字段改变返回第一页
	if session("orderbyfield")<>Request.QueryString("orderbyfield") then
		tofirstpage=true
	else
		tofirstpage=false
	end if
	
	'翻页时保持排序方式，不翻页循环改变升序/降序
	if request("turnpage")="" then
		if request("orderby")="" or request("orderby")="desc" then
			session("orderby")="asc"
		else
			session("orderby")="desc"
		end if
		strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
	else
		if request("orderbyfield")<>"" then
			strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
		end if
	end if	
	
	'保存当然排序字段
	session("orderbyfield")=Request.QueryString("orderbyfield")
else
	strwhere=strwhere&" order by id desc"
end if
if objcheck.CheckUserFunction2("po","edit") then
	rs.Open "select * from deliveryquerytemp where 1=1 "&strwhere,conn,1,1
else
	rs.Open "select * from deliveryquerytemp where (owner='"&session("loginid")&"' or owner in(select userid from v_userreportto_all where reportto='"&session("loginid")&"'))"&strwhere,conn,1,1
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>产品货期查询</title>
</head>

<SCRIPT language=JavaScript>
function selectproduct(){
	var theWindow;
	theWindow = window.open("selectqueryproduct.asp","选择产品","toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=400,height=300,top=150,left=160");
	theWindow.opener = this;
}
function selectproduct2(){
	var theWindow;
	theWindow = window.open("selectquoteproduct.asp","选择报价产品","toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=400,height=300,top=150,left=160");
	theWindow.opener = this;
}
function clrdate(x){
   form1.mod.value="deliverysave";
   form1.result.value="clear";
   form1.id.value=x;
   form1.submit();
}
function clryestoday1(){
   form1.mod.value="deleteok";
   form1.submit();
}
function clryestoday2(){
  form1.mod.value="delete";
  form1.submit();
}
function clryestoday3(){
  form1.mod.value="";
  form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="10" topmargin="10">
<form name="form1" method="post" action="deliveryquery.asp">
  <input type=hidden name=mod>
  <input type=hidden name=result>
  <input type=hidden name="id">
<%if request("mod")<>"deleteok" then%>
  <table align=center width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="25" ><strong><font class=title>产品货期查询</font></strong>
		<select name="querycheck" onchange="form1.submit();">
          <option value="2" <%if session("querycheck")="2" then Response.Write "selected"%>>未查询</option>
          <option value="1" <%if session("querycheck")="1" then Response.Write "selected"%>>已查询</option>
          <option value="0" <%if session("querycheck")="0" then Response.Write "selected"%>>所有查询</option>
        </select></td>
    </tr>
    <tr> 
      <td height="16" background="../images/title.gif"  >&nbsp;</td>
    </tr>
    <tr> 
      <td align=center height="1"></td>
    </tr>
    <tr> 
      <td align=right height="22"> ※产品货期查询指当天需要查询的交货期，请及时清除历史查询数据。<br>
        ※物流部门应及时回复销售员的产品查询！</td>
    </tr>
  </table>
<br>
<div id="table1" style="border-color:#CC0000;border-width:1px;border-style:Dotted;">
<br>
<p align="left">
<input type=button value=" 添加产品 " onclick="javascript:selectproduct();">
<input type=button value=" 关闭窗口 " onclick="javascript:window.close();">
<input type=button value=" 清空历史数据 " onclick="javascript:clryestoday1();">
</p>
<p align="left">
<input type=button value=" 添加报价产品 " onclick="javascript:selectproduct2();">
</p>
<table align="center" border='2' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#C0C0C0' width='400' bordercolorlight='#CCCCCC' bordercolordark='#808080'>
<tr><td width='100%' align='center'>
<table border=1 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
    <tr bgcolor='#FFE6FF'> 
	  <td width="4%" align=center height=22><img src="../images/deleteicon.gif"></td>
      <td  align=center><a href="deliveryquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=model&orderby=<%=session("orderby")%>">型号</a></td>
      <td width="10%"  align=center><a href="deliveryquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=queryqty&orderby=<%=session("orderby")%>">数量</a></td>
      <td width="26%"  align=center><a href="deliveryquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=querydate&orderby=<%=session("orderby")%>">预计货期</a></td>
      <td width="10%"  align=center><a href="deliveryquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=createname&orderby=<%=session("orderby")%>">销售员</a></td>
    </tr>
    <%
  set id=rs("id")
  set model=rs("model")
  set queryqty=rs("queryqty")
  set querydate=rs("querydate")
  set createname=rs("createname")
  set description=rs("descriptions")
  i=1:do while not rs.EOF
        if i mod 2 = 1 then 
  %>
    <tr bgcolor="#E6FDFF"> 
  <%else%>
    <tr bgcolor="#FDFFD7">
  <%end if%>	
	  <td align=center height="22"><input type="button" name="clrdate<%=id%>" value="C" onclick="javascript:clrdate(<%=id%>);"></td>
      <td align=center><%=model%></td>
      <td align=center><%=queryqty%></td>
      <td align=center>
           <script language="JavaScript" src="comm.js"></script>
	    <input type="text" name="querydate<%=id%>" size=10 <%if objcheck.CheckUserFunction2("po","add") then%> onclick="javascript:showCal('',<%=id%>)" <%end if%> readonly value="<%=querydate%>"></td>
      <td align=center><%=createname%></td>
    </tr>
    <tr bgcolor="#EFEFEF">
      <td height="16" colspan=3></td>
      <td align=center colspan=2>
			<a href="javascript:opensubwin3('../tools/SetdeliveryNotes.asp?id=<%=id%>','','resizable=no, scrollbars=no, left= 450, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200');"  title="输入备注">
			<%if description<>"" then%>
			<font color=red>备注</font>
			<%else%>
			备注
			<%end if%>
			</a>
	  </td></tr>
    <%
  i=i+1
  rs.MoveNext
  loop
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
%>
  </table></td></tr></table>
<br>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#DECFAD">
    <tr bgcolor="ffffff"><td height=22><img src="../images/smallprompt.jpg">&nbsp;<%response.write "当前记录数："&i-1%></td></tr></table>
<br></div>
<%end if%>
</form>
</body>
</html>
<%set objcheck=nothing%>
⌨️ 快捷键说明

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