如果查询日期？ - ASP技术论坛

得分:0

[bo][un]dhdhzzw[/un] 在 2008-7-23 17:46 的发言：[/bo]

不是跟你说过了么？到现在还在问。。。。。。。。。。
杀了你。。。。。。别说你不能用，我一直这么写一直在用。，除非你哪里错了没说清楚。，，，。
StrSQL=select * from table where dBillDay between '"&forma ...

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'format'
我数据库的日期格式是“2006-12-27”这样子的啊。
DATETIME，长度8.。。。
StrSQL=StrSQL+"and dBillDay between '"&format(Request.Form("PurDAY1"),"YYYY-DD-MM ")&"' and '"&format(Request.Form("PurDAY2"),"YYYY-DD-MM")&"'"

全部代码是这样的：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>



<html>
<% sId=Trim(Request.Form("txtsID"))
  ' 注意这里sId一般没有值，因为pur_list.asp是直接访问没有Post的数据。
%>
<% If session("sId")=""   then %>
  <% Response.Redirect("login.asp") %>
   <% else %>
   <% Response.Write("Welcome to Source Pro Industries Ltd.!")  %>
   <% end if  %>

<%
dim SqlConn,SqlRecSet
dim StrSQL
dim PurBn,PurBd,PurBs,PurBc,PurSr,PurRq,PurBrd,PurIn,PurBd2,PurBitPurDAY,PurDAY2
%>

<%
Function genSQLstr()
    Dim sId
    sId=session("sId")
    if Request.Form("PurBn")<>"" then
    StrSQL=StrSQL+"where sBillNo like '%"+Request.Form("PurBn")+"%'"
    else
    StrSQL=StrSQL+"where sSuppId='"& sId &"'"
    end if
    if Request.Form("PurBdY")<>"" or Request.Form("PurBdM")<>"" or Request.Form("PurBdD")<>""  then
    StrSQL=StrSQL+"and year(dBillDay)= '"& Request.Form("PurBdY")& "' and month(dBillDay)='"& Request.Form("PurBdM")& "' and day(dBillDay)='"& Request.Form("PurBdD")& "' "
    end if
    if Request.Form("PurBrdY")<>"" or Request.Form("PurBrdM")<>"" or Request.Form("PurBrdD")<>""  then
    StrSQL=StrSQL+"and year(dRecDate)= '"& Request.Form("PurBrdY")& "' and month(dRecDate)='"& Request.Form("PurBrdM")& "' and day(dRecDate)='"& Request.Form("PurBrdD")& "' "
    end if
    if Request.Form("PurDAY1")<>"" and Request.Form("PurDAY2")<>"" then
    StrSQL=StrSQL+"and dBillDay between '"&format(Request.Form("PurDAY1"),"YYYY-DD-MM ")&"' and '"&format(Request.Form("PurDAY2"),"YYYY-DD-MM")&"'"
    end if
    if Request.Form("PurBit")<>"" then
    StrSQL=StrSQL+"and sItemId like '%"+Request.Form("PurBit")+"%'"
    end if

    ' 只获取到自己的订单
    strSQL=strSQL & " and sSuppId='" & Replace(sId,"'","''") & "'" ' 防止注入攻击
End function
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>订单查询</title>
</head>
<body>

<%
OpenConn()
Set SqlRecSet=Server.CreateObject("ADODB.RECORDSET")
genSQLstr()
SqlRecSet.CursorType=adOpenStatic
StrSQL="select * from pur_order "+StrSQL
SqlRecSet.Open StrSQL,SqlConn,adLockReadOnly

%>

<div align="center">

<span class="pagenote1">订单查询</span>
</div>
<hr>
<form name="PurForm" method="post" >
<table width="663" align="center">
<tr>
<td width="655" bordercolor="#000000" bgcolor="#99CCCC">
<p>订单号码：
  <input name="PurBn" type="text" size=16>
  订单日期：
  <input name="PurBdY" type="text" size=8>
  年
  <input name="PurBdM" type="text" size=8>
  月
  <input name="PurBdD" type="text" size=8>
  日</p>
<p>物料编码：
  <input name="PurBit" type="text" size=16>
交货日期：
  <input name="PurBrdY" type="text" size=8>
  年
  <input name="PurBrdM" type="text" size=8>
  月
  <input name="PurBrdD" type="text" size=8>
  日</p>
  订单日期从：
    <input name="PurDAY1" type="text" size=16>
     到：<input name="PurDAY2" type="text" size=16>
<p> </p>
</p>
<center><input name="PurUp" value="查询" type="submit" ></center>
</table>
</form>
<div align="center">
<center><b>共有<font color="#FF0000">（<%=SqlRecSet.RecordCount%>）</font>条记录符合查询要求</b></center>
<table width="731" border="1" align="center"
cellspacing="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#FFFFFF">

</table>
<tr class="tableth1"><td height="22" width="725"><table width="853" border="1" align="center"
cellspacing="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#FFFFFF"><td width="847"><table width="885" border="1" align="center"
cellspacing="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#FFFFFF">
  <tr class="tableth1">
    <td height="22" width="125">订单号</td>
    <td height="22" width="82">订单日期</td>
    <td height="22" width="73">物料数量</td>
    <td height="22" width="114">物料编码</td>
    <td height="22" width="157">物料名称</td>
    <td height="22" width="70">供应商</td>
    <td height="22" width="96">交货日期</td>
    <td height="22" width="96">已收数量</td>
  </tr>
  <%
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
%>
  <td><%=PurBn%></td>
      <td><%=PurBd%></td>
    <td><%=PurBs%></td>
    <td><%=PurBc%></td>
    <td><%=PurIn%></td>
    <td><%=PurSr%></td>
    <td><%=PurBrd%></td>
    <td><%=PurRq%></td>
  </tr>
  <%
    SqlRecSet.MoveNext
wend
SqlRecSet.Close
SqlConn.Close
%>
</table></td>
    </tr>
</table></td>
</tr>
</body>
</html>