📄 order_seach.asp
字号:
<!--#include file="../title.asp" -->
<%
dim ref_no,buyer,style_no,merchangdiser,radio
dim fabric,mo_start,mo_end,buyer_start,buyer_end
dim fabric_start,fabric_end,thread_strat,thread_end
dim lc_start,lc_end,clr_start,clr_end
dim pattn_start,pattn_end,appe_start,appe_end
dim shipt_start,shipt_end,order_start,order_end
ref_no=request("ref_no")
buyer=request("buyer")
style_no=request("style_no")
merchangdiser=request("merchangdiser")
fabric=request("fabric")
pattern=request("pattern")
mo_start=request("mo_start")
mo_end=request("mo_end")
buyer_start=request("buyer_start")
buyer_end=request("buyer_end")
fabric_start=request("fabric_start")
fabric_end=request("fabric_end")
thread_start=request("thread_start")
thread_end=request("thread_end")
lc_start=request("lc_start")
lc_end=request("lc_end")
clr_start=request("clr_start")
clr_end=request("clr_end")
pattn_start=request("pattn_start")
pattn_end=request("pattn_end")
appe_start=request("appe_start")
appe_end=request("appe_end")
shipt_strat=request("shipt_start")
shipt_end=request("shipt_end")
order_start=request("order_start")
order_end=request("order_end")
readio=request("r1")
select case readio
case "V1"
if ref_no<>"" then
sql="select * from cloth_info where ref_no like '%"&ref_no&"%' "
rs.open sql,conn,3,1
call view()
else
response.write "REF NO WRONG！"
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
Case "V2"
if buyer<>"" then
sql="select * from cloth_info where buyer like '%"&buyer&"%' "
rs.open sql,conn,3,1
call view()
else
response.write "BUYER WRONG！"
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V3"
if style_no<>"" then
sql="select * from cloth_info where style_no like '%"&style_no&"%' "
rs.open sql,conn,3,1
call view()
else
response.write "STYLE NO！"
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V4"
if pattern<>"" then
sql="select * from cloth_info where pattern like '%"&pattern&"%'"
rs.open sql,conn,3,1
call view()
else
response.write "PATTERN ！"
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V5"
if merchangdiser<>"" then
sql="select * from cloth_info where merchangdiser like '%"&merchangdiser&"%' "
rs.open sql,conn,3,1
call view()
else
response.write "MERCHANGDISER WRONG！"
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V6"
if fabric<>"" then
sql2="select * from cloth_fabric where fabrication like '%"&fabric&"%'"
rs2.open sql2,conn,3,1
call viewfabric()
else
response.write "FABRIC WRONG！"
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V7"
if IsDate(mo_start) and IsDate(mo_end) then
mo_satrt=FormatDateTime(mo_start)
mo_end=FormatDateTime(mo_end)
sql="select * from cloth_info where mo between #"&mo_start&"# and #"&mo_end&"# "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>M/O WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V8"
if IsDate(buyer_start) and IsDate(buyer_end) then
sql="select * from cloth_info where buyer_po between #"&buyer_start&"# and #"&buyer_end&"# "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>BUYER P/O WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V9"
if IsDate(fabric_start) and IsDate(fabric_end) then
sql="select * from cloth_info where fabric_po between #"&fabric_start&"# and #"&fabric_end&"# "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>FABRIC P/O WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V10"
if IsDate(thread_start) and IsDate(thread_end) then
sql="select * from cloth_info where thread_po between #"&thread_start&"# and #"&thread_end&"# "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>THREAD P/O WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V11"
if IsDate(lc) and IsDate(lc) then
sql="select * from cloth_info where lc between #"&lc_start&"# and #"&lc_end&"# "
rs.open sql,conn,3,1
call view()
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>L/C WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V12"
if IsDate(clr_start) and IsDate(clr_end) then
sql="select * from cloth_info where clr_swatch between #"&clr_start&"# and #"&clr_end&" "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>CLR SWATCH WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V13"
if IsDate(pattn_start) and IsDate(pattn_end) then
sql="select * from cloth_info where pattn_paper between #"&patten_start&"# and #"&patten&"# "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>PATTN PAPER WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V14"
if IsDate(appv_start) and IsDate(apv_end) then
sql="select * from cloth_info where appv_sample between #"&appv_start&"# and #"&appv_end&"# "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>APPV SAMPLE WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V15"
if IsDate(shipt_start) and IsDate(shipt_end) then
sql="select * from cloth_info where shpt_sample between #"&shipt_start&"# and #"&shipt_end&"#"
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>SHIPT SAMPLE WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
case "V16"
if isnumber(order_start) and isnumber(order_end) then
sql="select * from cloth_info where order_qty between "&order_start&" and "&order_end&" "
rs.open sql,conn,3,1
if rs.eof and rs.bof then
errmsg=errmsg+"<li>NO RECORDSET！"
call no_record()
else
call view()
end if
else
errmsg=errmsg+"<li>ORDER QTY WRONG！"
call no_record()
%><meta http-equiv="refresh" content='2; URL="javascript:history.go(-1)"'><%
end if
end select
sub view()
%>
<table table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" >
<tr>
<td align="center">
<table table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center">
<td width="80">REF NO</td>
<td width="75">
BUYER</td>
<td width="45">ORDER QTY</td>
<td width="90">MERCHANDISER</td>
<td width="68">M/0</td>
<td width="68">BUYER P/O</td>
<td width="68">FARIC P/O</td>
<td width="68">L/C</td>
<td width="68">PATTN PAPER</td>
<td width="68">Input Date</td>
</tr>
<%
do while not rs.eof
%>
<tr align="center">
<td width="80"><a href="seach_info.asp?id=<%=rs("id")%>"><%=rs("ref_no")%></a> </td>
<td width="75"><input type="text" name="T1" size="12" value="<%=rs("buyer")%>"></td>
<td width="45"><input type="text" name="T1" size="6" value="<%=rs("order_qty")%>"></td>
<td width="90"><input type="text" name="T1" size="12" value="<%=rs("merchandiser")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("mo")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("buyer_po")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("fabric_po")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("lc")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("pattn_paper")%>"s></td>
<td width="68">
<input type="text" name="T1" size="8" value="<%=rs("add_date")%>"s></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
</TD>
</TR>
</TABLE>
</tr>
</table>
<%
end sub
sub viewfabric()
%>
<table table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" >
<tr>
<td align="center">
<table table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center">
<td width="80">REF NO</td>
<td width="75">
BUYER</td>
<td width="45">ORDER QTY</td>
<td width="90">MERCHANDISER</td>
<td width="68">M/0</td>
<td width="68">BUYER P/O</td>
<td width="68">FARIC P/O</td>
<td width="68">L/C</td>
<td width="68">PATTN PAPER</td>
<td width="68">Input Date</td>
</tr>
<%
do while not rs2.eof
sql="select * from cloth_info where ref_no = '"&rs2("ref_no")&"' "
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr align="center">
<td width="80"><a href="seach_info.asp?id=<%=rs("id")%>"><%=rs("ref_no")%></a> </td>
<td width="75"><input type="text" name="T1" size="12" value="<%=rs("buyer")%>"></td>
<td width="45"><input type="text" name="T1" size="6" value="<%=rs("order_qty")%>"></td>
<td width="90"><input type="text" name="T1" size="12" value="<%=rs("merchandiser")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("mo")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("buyer_po")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("fabric_po")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("lc")%>"></td>
<td width="68"><input type="text" name="T1" size="8" value="<%=rs("pattn_paper")%>"s></td>
<td width="68">
<input type="text" name="T1" size="8" value="<%=rs("add_date")%>"s></td>
</tr>
<%
rs.movenext
loop
rs.close
rs2.movenext
loop
rs2.close
end sub
sub no_record()
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="317">
<tr align="center">
<td width="315"><b><font size="6"><%=errmsg%></font></b> </td>
</tr>
</table>
<%
end sub
Function isnumber(strng)
isnumber = false
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "^\d+(\.\d+)?$"
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then isnumber= true
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -