找回密码
 注册

QQ登录

只需一步,快速开始

查看: 1925|回复: 15

[asp] 订票系统无法提交

[复制链接]
发表于 2008-9-5 15:31:30 | 显示全部楼层 |阅读模式
这是我自己做的,代码如下:
<!--#include file="conn.asp"-->
<%
        '产生定单编号
        if month(date())<10 then
          mon=0&month(date())
          else
          mon=month(date())
          end if
          if day(date())<10 then
          da=0&day(date())
          else
          da=day(date())
          end if
        set rs2=server.CreateObject("adodb.recordset")
        sql2="select * from dd where time='"&date()&"'"
        rs2.open sql2,conn,1,3
        if not rs2.eof then
                t=year(date)*1000000000+month(date())*10000000+day(date())*100000+rs2.recordcount+1
        else
                t=year(date)*1000000000+month(date())*10000000+day(date())*100000+1
        end if
        if request("post")<>"" then
        call writ
        end if
        function writ
                '判断输入的Email格式是否正确
                Email=request("email")
                if request("name")="" or  request("danwei")="" or request("sex")="" or request("email")=""  or request("num")="" or request("guoji")="" or  request("tel")=""   or request("zhengjian")="" or request("shenfen")="" then
                response.Write("<script language=javascript>alert('请把内容填写完整');location='javascript:history.go(-1)'</script>")
                elseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
                response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确!');" & "history.back()" & "</script>"
                Response.End
                else
               
                mm=request("year")&"-"&request("month")&"-"&request("day")       
                if datediff("d",mm,date())>0 then  '判断达到日期和当前日期是否冲突
                response.Write("<script>alert('日期错误,请检查你选择的游玩时间是否正确');location='javascript:history.go(-1)'</script>")
                response.end
                end if               
               
                set rs=server.CreateObject("adodb.recordset")
                sql="select * from dd"
                rs.open sql,conn,1,3
                rs.addnew
                rs("name")=request("name")
                rs("sex")=request("sex")               
                rs("shenfen")=request("shenfen")
                rs("zhengjian")=request("zhengjian")
                rs("guoji")=request("guoji")
                rs("danwei")=request("danwei")
                rs("dtime")=mm               
                rs("num")=request("num")
                rs("email1")=request("email1")
                rs("tel")=request("tel")
                rs("room")=request("room")
                rs("beizhu")=request("beizhu")
                rs("bianhao")=request("t")
                rs("time")=date()
                rs.update
                rs.close
                response.Write("<script language=javascript>alert('你的订单申请已经提交,请在“已确认订单信息查看”里查看处理结果。');location='index.asp'</script>")
                end if
        end function
%>
<HTML><HEAD><TITLE>订票系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<STYLE type=text/css>
TD {
        FONT-SIZE: 9pt; LINE-HEIGHT: 150%
}
TABLE.body {
        FONT-SIZE: 9pt; LINE-HEIGHT: 150%
}
</STYLE>

<LINK href="images/t9black.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style1 {
        color: #FFFFFF;
        font-size: 16pt;
        font-weight: bold;
}
-->
</style>
<link href="dd.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {color: #FF0000}
.style3 {color: #0000FF}
.style3 {color: #00FFFF}
.style5 {color: #FFFFFF}
.STYLE8 {color: #FFFFFF; font-weight: bold; }
.STYLE9 {color: #990000}
.STYLE10 {color: #660000; }
a:link {
        color: #FF0000;
        text-decoration: none;
}
a:visited {
        text-decoration: none;
        color: #660000;
}
a:hover {
        text-decoration: none;
}
a:active {
        text-decoration: none;
}
body {
        background-image: url();
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->

</script>
</HEAD>
<BODY aLink=#ffffff leftMargin=0
topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="27%" vAlign=top bgcolor="#06419C"><table width="260" height="600" border="0." cellpadding="0" cellspacing="0" background="images/pao.jpg">
      <tr>
        <td align="center" valign="top"><object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="253" height="234">
          <param name="movie" value="images/sssss.swf">
          <param name="quality" value="high">
          <param name="wmode" value="transparent">
          <embed src="images/sssss.swf" width="253" height="234" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
        </object>
          <object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="253" height="349">
            <param name="movie" value="images/aaa.swf">
            <param name="quality" value="high">
            <param name="wmode" value="transparent">
            <embed src="images/aaa.swf" width="253" height="349" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
          </object></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table></TD>
    <TD width="73%" height=388 align=left vAlign=top background="images/b066.gif"><BR>
      <TABLE height="92%" border=0 align=center>
        <TBODY>
        <TR>
          <TD vAlign=top width=489 height=554><form name="form1" method="post" action="" >
            <table width="484" height="428"  border="0" align="center" cellspacing="1" bgcolor="#333399">
              <tr bgcolor="#06419C">
                <td height="44" colspan="2"><div align="center" class="style1 style5">订票系统</div></td>
                </tr>
              <tr>
                <td width="360" bgcolor="#FFFFFF"><div align="right">联系人:</div></td>
                <td width="372" bgcolor="#FFFFFF"><input name="name" type="text" class="inde" id="name" >
                  <input name="post" type="hidden" id="post" value="true">
                  <span class="style2">*<a href="file:///F|/wwwroot/chat/bbs/reg.asp"></a></span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">性别:</div></td>
                <td bgcolor="#FFFFFF"><select name="sex" class="inde" id="sex">
                  <option value="男">男</option>
                  <option value="女">女</option>
                </select>
                  <span class="style2">*
                  <input name="t" type="hidden" id="t" value=<%=t%>>
</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">身份证明:</div></td>
                <td bgcolor="#FFFFFF"><select name="shenfen" class="inde" id="shenfen">
              <option value="身份证">身份证</option>
                  <option value="军官证">军官证</option>
                  <option value="护照">护照</option>
                </select>
                  <span class="style2">* 请正确填写证件号码,取票时须出示证件,核实无误方可付款取票。</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">证件号:</div></td>
                <td bgcolor="#FFFFFF"><input name="zhengjian" type="text" class="inde" id="zhengjian" size="30">
                  <span class="style2">*</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">国籍:</div></td>
                <td bgcolor="#FFFFFF"><input name="guoji" type="text" class="inde" id="guoji" size="30">
                  <label></label>
                  <span class="style2">*</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">联系地址:</div></td>
                <td bgcolor="#FFFFFF"><input name="danwei" type="text" class="inde" id="danwei" size="30">
                  <span class="style2">*</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">游玩时间:</div></td>
                <td bgcolor="#FFFFFF"><span class="style2">
                  <label>
                  <select name="year" id="dtime">
                    <% for i=year(date) to year(date)%>
                    <option value=<%=i%>><%=i%></option>
                    <% next %>
                  </select>
                  <select name="month" id="select" >
                    <% for k=month(date) to month(date)%>
                    <option value="<%=k%>"> <%= k %></option>
                    <% next %>
                  </select>
                  <select name="day" id="day">
                    <% for j=day(date)+1 to 31%>
                    <option value=<%=j%>><%=j%></option>
                    <% next %>
                  </select>
                  </label>
                  <label></label>
                  *
                  <strong>系统自动提前24小时预定门票。</strong></span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">购买票数:</div></td>
                <td bgcolor="#FFFFFF"><input name="num" type="text" class="inde" id="num" value="1 " size="17">
                  <span class="style2">* 限每人预定一张</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">电子信箱:</div></td>
                <td bgcolor="#FFFFFF"><input name="email" type="text" class="inde" id="email" size="30">
                  <span class="style2">*</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">联系电话:</div></td>
                <td bgcolor="#FFFFFF"><input name="tel" type="text" class="inde" id="tel" size="30">
                  <span class="style2">*</span></td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">票种:</div></td>
                <td bgcolor="#FFFFFF">                                <p>
                  <select name="room" class="inde" id="room">
                    
                    <%  
                                set rs1=server.CreateObject("adodb.recordset")
                sql1="select * from fangjian"
                rs1.open sql1,conn,1,1
                if not rs1.eof then
                                tol=rs1.recordcount
                                for i=1 to tol
                %>
                    <option value=<%=rs1("fangjian")%> selected><%=rs1("fangjian")%></option>
                      <%
                                rs1.movenext
                                if rs1.eof then exit for
                                next
                                end if
                            %>
                  </select>
                  网上订票享有5折优惠。
                  <BR>
                </p>                  </td>
              </tr>
              <tr>
                <td bgcolor="#FFFFFF"><div align="right">其他要求:</div></td>
                <td bgcolor="#FFFFFF"><textarea name="beizhu" cols="50" rows="5" class="inde" id="beizhu">在这里输入你的其他想法!</textarea></td>
              </tr>
              <tr>
                <td colspan="2" bgcolor="#FFFFFF"><div align="center">
                    <p>
                      <input name="Submit" type="submit" id="Submit" value="提交">
                       
                      <input type="reset" name="Submit2" value="重置">
              </p>
                    <p class="style2">* <strong></strong></p>
                    </div></td>
                </tr>
              <tr>
                <td colspan="2" bgcolor="#FFFFFF"><table width="100%" height="50" border="0" bordercolor="#CFF1FE">
                  <tr>
                    <td bgcolor="#CCE8FD"><div align="center" class="STYLE10"><a href="qr.asp" target="_blank" class="style5 style2">已确认订单信息查看</a></div></td>
                    <td bgcolor="#CCE8FD"><div align="center" class="STYLE9"><A href="wqr.asp" target="_blank">未确认订单信息查看</A></div></td>
                  </tr>
                </table>                </td>
              </tr>
              <tr>
                <td colspan="2" bgcolor="#06419C"><div align="center"><span class="STYLE8"></span></div></td>
              </tr>
            </table>
            <div align="right"><a href="admin/index.asp">管理员入口
            </a> </div>
          </form></TD>
      </TR></TBODY></TABLE></TD></TR>
  
  <TR>
    <TD> </TR></TBODY></TABLE>
</BODY></HTML>

一点提交~就出现
HTTP 500 - 内部服务器错误
希望高手指点下菜鸟~!!!谢谢!
发表于 2008-9-5 15:42:38 | 显示全部楼层
代码太长,没空看。
你可以把500提示给出来呀。去掉浏览器友好提示。

另外这段:   if not rs2.eof then
              t=year(date)*1000000000+month(date())*10000000+day(date())*100000+rs2.recordcount+1
       else
              t=year(date)*1000000000+month(date())*10000000+day(date())*100000+1
       end if
用&连接多好,干嘛用+呢
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-5 15:45:58 | 显示全部楼层
他的提示很简单
1
无法显示网页
您要访问的网页有问题,无法显示。
2
HTTP 500 - 内部服务器错误
Internet Explorer

就这2句话~!!!!!!
回复 支持 反对

使用道具 举报

发表于 2008-9-5 15:50:30 | 显示全部楼层
把浏览器的友好显示出错信息去掉再看。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-5 15:53:45 | 显示全部楼层
ADODB.Recordset 错误 '800a0cc1'

在对应所需名称或序数的集合中,未找到项目。

/booking/index.asp,行53


可能是数据库的问题~!!!高手指点一二!我很菜·
回复 支持 反对

使用道具 举报

发表于 2008-9-5 15:58:22 | 显示全部楼层

回复 5# rindy [楼主] 的帖子

报错是说,操作的字段与数据库里的字段不相符,也就是不存在字段名,请仔细检查。

对应所需名称未找到项目
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-5 16:01:37 | 显示全部楼层
我晕
我查出来了
原来我写的时候粗心
把 email后面多写了一个1
email →email1  了~~~~
倒死       谢谢!!!!!!!!!!!!

斑斑真负责  ,及时,效率!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-5 16:02:46 | 显示全部楼层
ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

/booking/admin/dg/submore.asp,行0


好象还有个问题~~进去查看  提示这样的一些话~!!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-5 16:05:24 | 显示全部楼层
Microsoft JET Database Engine 错误 '80040e14'

语法错误 (操作符丢失) 在查询表达式 'id=' 中。

/booking/admin/dg/submore.asp,行19
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-5 16:06:48 | 显示全部楼层
<%
if session("admin_name")="" then response.end

%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
if request("del")<>"" then
sql2="delete from dd where id="&request("del")
conn.Execute(sql2)
If session("check")=false Then
response.Redirect("subpass.asp")
else
response.Redirect("submitsub.asp")
end if
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from dd where id="&request("id")
rs.open sql,conn,1,1
session("check")=rs("check")
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from email order by id desc"
rs3.open sql3,conn,1,1
%>

这是该页面的代码~!!
回复 支持 反对

使用道具 举报

发表于 2008-9-5 16:11:59 | 显示全部楼层
第8楼是说查询的数据库里没有数据,需要使用if rs.eof来判断是否有数据。建议适当时间看下别人的程序代码

9楼是说request("id")为空。

记住本帖中出错提示,希望以后能根据提示自己解决类似问题。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-5 17:29:17 | 显示全部楼层
还是没有解决
进入管理页面就显示以上几点
并且对数据无法修改或删除!!!!!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-6 10:30:54 | 显示全部楼层
进入后台管理页面


其中显示如下错误:
ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

/booking/admin/dg/submore.asp,行0


点击该错误~页面跳转~页面显示如下错误:

Microsoft JET Database Engine 错误 '80040e14'

语法错误 (操作符丢失) 在查询表达式 'id=' 中。

/booking/admin/dg/submore.asp,行19


以上错误的出现,致使管理页面无法进行定单确认或删除的操作~!!
请指点,尽量详细,我对语言才刚刚学!!


11楼说的,我也照此改过,但是还是没有解决掉我问题啊~!!!
回复 支持 反对

使用道具 举报

发表于 2008-9-6 10:38:19 | 显示全部楼层
说明你没改对嘛。你就不能继续改?11楼还说了,你可以看看别人是怎么做的呀,除了问,还有看啊。还有百度\google啊。我们并不是说,恩,大家都来问吧,后台区越热闹越好。

我们希望每个程序员都能在后台区学到解决“所有现在或者以后会碰到的问题的方法与技巧”,而不是“有一个问题就告诉你如何解决这个问题”。


http://www.google.cn/search?hl=z ... a=&aq=f&oq=

http://www.google.cn/search?hl=z ... a=&aq=f&oq=

也许你会说:你装什么高手啊,你直接把答案告诉我不就得了,我去查不浪费时间啊,我看书还得花钱还得花时间看啊。
我告诉你:就是装高手,我也不告诉你答案,点到为止,利人利己。

[[i] 本帖最后由 kuhanzhu 于 2008-9-6 10:41 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-6 10:43:02 | 显示全部楼层
问题是这是我第一个问题啊
还有严格来说我不是程序员,还有就是这个东西本来是我的一个朋友做的,但是他改了一点点东西,致使页面不正常,我现在就是想找高手指点下,把他修改的东西改正回来,让这个系统畅通运行即可,程序以后再慢慢钻研。
希望谁有空的时候,告诉下我具体怎么操作!谢谢!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-9-6 11:40:46 | 显示全部楼层
我在
sql="select * from dd where id="&request("id")
后面加了这么几句
Response.Write request("id")
Response.End
Set rs=Server.CreateObject("ADODB.RecordSet")

会返回数值
那么这个ID应该传递了啊
怎么不行啊??
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )

GMT+8, 2021-3-6 08:08 , Processed in 0.063996 second(s), 9 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表