📄 omronpolist.asp
字号:
<SCRIPT language='javascript'>window.resizeTo(750,600);window.focus()</SCRIPT>
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
'设置本页尺寸
session("localpagesize")=40
'取最新更新时间
function lastupdate
dim conndate
dim rsdate
set conndate=server.CreateObject("adodb.connection")
set rsdate=server.CreateObject("adodb.recordset")
conndate.Open connstring
rsdate.Open "select top 1 lastupdate from omronpolist",conndate,1,1
if not rsdate.eof then
lastupdate=rsdate("lastupdate")
else
lastupdate="******"
end if
rsdate.Close
if isnull(lastupdate) then
conndate.execute("update omronpolist set lastupdate='"&now()&"'")
end if
lastupdate="最新更新时间:"&lastupdate
set rsdate=nothing
conndate.Close
set conndate=nothing
End function
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("strfield")<>"" then
strwhere=strwhere & " and "&request("strfield")&" like '%"&request("strvalue")&"%'"
end if
if Request.Form("strfield")<>"" then
strwhere=strwhere & " and "&request("strfield")&" like '%"&request.form("strvalue")&"%'"
end if
'按出货情况显示
if request("strstatus")<>"" then
session("strstatus")=request("strstatus")
else
if session("strstatus")="" then session("strstatus")="1"
end if
if session("strstatus")="0" then
strwhere=strwhere
elseif session("strstatus")="1" then
strwhere=strwhere & " and status is null"
elseif session("strstatus")="2" then
strwhere=strwhere & " and status = "&"'ready'"
elseif session("strstatus")="3" then
strwhere=strwhere & " and status = "&"'complete'"
end if
'response.write strwhere&"<br>"
'response.write request("strstatus")&"<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 订单日期"
end if
'response.write "select * from v_omronpolist"&strwhere
rs.Open "select * from v_omronpolist"&strwhere,conn,1,1
'搜索时用
selecttablename="v_omronpolist"
if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 then
CurPage = 1
else
CurPage = cint(Request.QueryString("CurPage"))
end If
if not Rs.eof then
Rs.PageSize=session("localpagesize")
Rs.AbsolutePage=CurPage
else
CurPage=0
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>
<script language="javascript">
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;
}
}
function bsubmit() {
window.form1.action = "Setmultiomronpolist.asp";
}
</script>
</head>
<body leftmargin="10" rightmargin="10" topmargin="10">
<form name="form1" method="post" action="omronpolist.asp" onsubmit="return GetStrValue();">
<input type=hidden name="mod">
<input type=hidden name="method">
<input type=hidden name="slipno">
<input type=hidden name="productcode">
<table align=center width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="8%"><select name="strfield" onchange="relativeinput_onchange();">
<option value=型号 <%if request("strfield")="型号" then Response.Write "selected"%>>型号</option>
<option value=货号 <%if request("strfield")="货号" then Response.Write "selected"%>>货号</option>
<option value=SLIP号码 <%if request("strfield")="SLIP号码" then Response.Write "selected"%>>SLIP号码</option>
<option value=特价编号 <%if request("strfield")="特价编号" then Response.Write "selected"%>>特价编号</option>
<option value=客户订单编号 <%if request("strfield")="客户订单编号" then Response.Write "selected"%>>客户订单编号</option>
<option value=订单日期 <%if request("strfield")="订单日期" then Response.Write "selected"%>>订单日期</option>
</select></td>
<td width="10%">
<input type="text" name="strvalue" value="<%=request("strvalue1")%>" size=10></td>
<td>
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0 >
<%
if CurPage<=1 then
Response.Write "<a href='omronpolist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='omronpolist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='omronpolist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='omronpolist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='omronpolist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='omronpolist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%></td>
<td></td></tr>
</table>
<table align=center width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" ><strong><font class=title>欧姆龙到货通知</font></strong></td>
<td align="right">
<a href="javascript:opensubwin3('omronpoprint.asp','','resizable=yes, scrollbars=yes, left= 160, top=10, menubar=no, location=no, toolbar=no');" ><img src="../images/button_print.gif" border=0></a>
<a href="javascript:window.close();"><img src="../images/button_close.gif" border=0></a></td>
</tr>
<tr>
<td height="16" colspan="2" background="../images/title.gif" > </td>
</tr>
<tr>
<td height="4" colspan="2" ></td>
</tr>
</table>
<table width=100% cellspacing=1 bgcolor='#ffffff'>
<tr>
<td width=10% height=18 align=center valign=center <% if session("strstatus")="0" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=omronpolist.asp?strstatus=0><font color='#FFFFFF'>所有订单</font></a></td>
<td width=10% height=18 align=center valign=center <% if session("strstatus")="1" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=omronpolist.asp?strstatus=1><font color='#FFFFFF'>未提订单</font></a></td>
<td width=10% height=18 align=center valign=center <% if session("strstatus")="2" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=omronpolist.asp?strstatus=2><font color='#FFFFFF'>待提订单</font></a></td>
<td width=10% height=18 align=center valign=center <% if session("strstatus")="3" then Response.Write "bgcolor=red" else Response.Write "bgcolor=4A699C"%>><a href=omronpolist.asp?strstatus=3><font color='#FFFFFF'>已提订单</font></a></td>
<td width=10%><% if session("strstatus")="2" then%><input name="submit1" type="submit" value="批处理" onClick="bsubmit()"><%end if%>
<input type="hidden" name="strstatus" value="<%=request("strstatus")%>">
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -