订票系统无法提交

rindy · 发表于 2008-9-5 15:31:30

这是我自己做的，代码如下：

<%
'产生定单编号
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">

</style>
<link href="dd.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style>
<script language="JavaScript" type="text/JavaScript">


</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="clsid

27CDB6E-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="clsid

27CDB6E-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> </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 - 内部服务器错误
希望高手指点下菜鸟~！！！谢谢！

kuhanzhu · 发表于 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
用&连接多好，干嘛用+呢

rindy · 发表于 2008-9-5 15:45:58

他的提示很简单
1
无法显示网页
您要访问的网页有问题，无法显示。
2
HTTP 500 - 内部服务器错误
Internet Explorer

就这2句话~！！！！！！

帅青蛙 · 发表于 2008-9-5 15:50:30

把浏览器的友好显示出错信息去掉再看。

rindy · 发表于 2008-9-5 15:53:45

ADODB.Recordset 错误 '800a0cc1'

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

/booking/index.asp，行53

可能是数据库的问题~！！！高手指点一二！我很菜·

kuhanzhu · 发表于 2008-9-5 15:58:22

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

对应所需名称未找到项目

rindy · 发表于 2008-9-5 16:01:37

我晕
我查出来了
原来我写的时候粗心
把 email后面多写了一个1
email →email1  了~~~~
倒死    谢谢！！！！！！！！！！！！

斑斑真负责  ，及时，效率！

rindy · 发表于 2008-9-5 16:02:46

ADODB.Field 错误 '80020009'

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

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

好象还有个问题~~进去查看提示这样的一些话~！！！

rindy · 发表于 2008-9-5 16:05:24

Microsoft JET Database Engine 错误 '80040e14'

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

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

rindy · 发表于 2008-9-5 16:06:48

<%
if session("admin_name")="" then response.end

%>


<%
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
%>

这是该页面的代码~！！

kuhanzhu · 发表于 2008-9-5 16:11:59

第8楼是说查询的数据库里没有数据，需要使用if rs.eof来判断是否有数据。建议适当时间看下别人的程序代码

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

记住本帖中出错提示，希望以后能根据提示自己解决类似问题。

rindy · 发表于 2008-9-5 17:29:17

还是没有解决
进入管理页面就显示以上几点
并且对数据无法修改或删除！！！！！！

rindy · 发表于 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楼说的，我也照此改过，但是还是没有解决掉我问题啊~！！！

kuhanzhu · 发表于 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 编辑 ]

rindy · 发表于 2008-9-6 10:43:02

问题是这是我第一个问题啊
还有严格来说我不是程序员，还有就是这个东西本来是我的一个朋友做的，但是他改了一点点东西，致使页面不正常，我现在就是想找高手指点下，把他修改的东西改正回来，让这个系统畅通运行即可，程序以后再慢慢钻研。
希望谁有空的时候，告诉下我具体怎么操作！谢谢！

rindy · 发表于 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应该传递了啊
怎么不行啊？？

帐号		自动登录	找回密码
密码			注册

[asp] 订票系统无法提交

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