hanwise 发布留言 2008-7-3 09:54
菜鸟求助
我们学校参加创新比赛我写的一个其中页面，主要思想是实现自助借车的网上预定的，这个页面是从上一个页面的表单中提取客户的预定借车时间和还车时间，从数据库中查询这个时间段空车的记录，这是其中一个页面代码，本人刚学ASP没几天，这个页面提示无法显示页面，是不是语法问题啊，高人指点：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
http://www.w3.org/1999/xhtml";>
无标题文档<%
jieyue=request.Form("jieyue")
jieri=request.Form("jieri")
huanyue=request.Form("huanyue")
huanri=request.Form("huanri")
jietime=cdate(""&jieyue&" "&jieri&","&year(date))
huantime=cdate(""&huanyue&" "&huanri&","&year(date))
if jietime>huantime or (jietime<=huantime and jietime
response.Write("你选择的时间不合逻辑，请返回重新选择！")
else%>
条形码 | 站点 | 车型 | 预定 |
<%
set bb=server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("自助交通.mdb")
bb.open connstr
set rs1=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
rs1.open "select * from che where 借='false' and 车型='轿车'",1,1
do while not rs1.eof
rs2.open "select * from yudinghis where 车条形码='"&rs1("条形码")&"'",1,1
yuding=false
do while not rs2.eof
if cdate("预定借车时间")<=huantime or cdate("预定还车时间")>=jietime or (cdate("预定借车时间")>=jietime and cdate("预定还车时间")<=huantime) then
yuding=true
exit do
end if
rs2.movenext
loop
rs2.close
if yuding=false then
<%
response.Write(rs1("条形码"))
txm=rs1("条形码")
%>
|
<%
response.Write(rs1("站点"))
%>
|
<%
response.Write(rs1("车型"))
%>
|
&jtime=<%=jietime%>&htime=<%=huantime%>">预定
|
<%end if
rs1.movenext
loop
rs1.close
set bb=nothing
%>
<%'response.Write("目前还有"&rs.recordcount&"辆轿车可借!")%>
页: [1]
