月夜NO风 发布留言 2008-7-15 12:13
查询页面的问题(ASP+SQL)
代码如下 :
功能就是查询订单,现在有几个问题想请教:
1.不想一进入此界面,就有结果,因为到时还要做每个用户只能看自己的订单.
2.用日期查询时,只能查到年,日期格式是"2008-01-01"这样的,但是如果输入"2008-01"就没有结果出来.
先谢谢各位了!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% sId=Trim(Request.Form("txtsId")) %>
<% if session("sId")="" then %>
<% Response.Redirect("login.asp") %>
<% else %>
<% Response.Write("Welcome to XXX Industries Ltd.!") %>
<% end if %>
<%
dim SqlConn,SqlRecSet
dim StrSQL
dim PurBn,PurBd,PurBs,PurBc,PurSr,PurRq,PurBrd,PurIn
%>
<%
Function genSQLstr()
if Request.Form("PurBn")<>"" then
StrSQL=StrSQL+"where sBillNo like '%"+Request.Form("PurBn")+"%'"
else
StrSQL=StrSql+"where sBillNo like '%'"
end if
if Request.Form("PurBd")<>"" then
StrSQL=StrSQL+"and dBillDay like '%"+Request.Form("PurBd")+"%'"
end if
if Request.Form("PurSr")<>"" then
StrSQL=StrSQL+"and sSuppId like '%"+Request.Form("PurSr")+"%'"
end if
if Request.Form("PurBrd")<>"" then
StrSQL=StrSQL+"and dRecDate like '%"+Request.Form("PurBrd")+"%'"
end if
End function
%>
订单查询
<%
OpenConn()
Set SqlRecSet=Server.CreateObject ("ADODB.RECORDSET")
genSQLstr()
StrSQL="select * from pur_order "+StrSQL
SqlRecSet.Open StrSQL,SqlConn,adOpenForwardOnly,adLockReadOnly
%>
订单查询
cellspacing="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#FFFFFF">
cellspacing="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#FFFFFF">
|
订单号 |
订单日期 |
物料数量 |
物料编码 |
物料名称 |
供应商 |
交货日期 |
已收数量 |
<%
while not SqlRecSet.EOF
PurBn=SqlRecSet.Fields("sBillNo").value
PurBd=SqlRecSet.Fields("dBillDay").value
Purbs=SqlRecSet.Fields("fQty").value
PurBc=SqlRecSet.Fields("sItemId").value
PurIn=SqlRecSet.Fields("sItemId_Name").value
PurSr=SqlRecSet.Fields("sSuppId").value
PurRq=SqlRecSet.Fields("fRecQty").value
PurBrd=SqlRecSet.Fields("dRecDate").value
%>
<%=PurBn%> | <%=PurBd%> | <%=PurBs%> | <%=PurBc%> | <%=PurIn%> | <%=PurSr%> | <%=PurBrd%> | <%=PurRq%> | 