设为首页收藏本站
开启辅助访问 切换到宽版

新微赢技术网

 找回密码
 注册
快捷导航
搜索
热搜: 回贴
新微赢技术网»论坛 › 学习网 知识堂 › WEB开发 › ASP › 能帮我看看这二个文件吗？提交出错，急急急
返回列表 发新帖
查看: 50|回复: 8
打印 上一主题 下一主题

能帮我看看这二个文件吗？提交出错，急急急

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-10 22:51:54 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我是ASP初学者，哪位老大能帮我看下，急！

第一个文件：u_check.asp
代码如下：

<!--#include file="conn.asp" -->

<head>
<link href="../css/index.css" rel="stylesheet" type="text/css" />
</head>

<%
exec="select * from Students where id="&request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
%>


<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td class="bg3">　</td>
  </tr>
</table>



<!--#include file="u_so.asp" -->
<table width="100%" border="0" align="right" cellpadding="3" cellspacing="1" class="bx">
    <form action="u_check_bc.asp" method="post" name="myform">
  <tr>
    <td colspan="4" align="right" class="bg" width="828" height="21">　</td>
    </tr>
  <tr>
    <td width="111" align="right" class="bg2" height="22">身份证号码</td>
    <td width="303" class="bg2" height="22">
      <input type="hidden" name="id" value="<%=rs("id")%>">
      <input name="stuid" type="text"   value="<%=rs("StuId")%>" readonly="true"  ></td>
    <td width="98" align="right" class="bg2" height="22">是否已缴费</td>
    <td width="276" class="bg2" height="22">
    <select name="rx">
      <option <% if rs("rx")="是" then response.write"selected" %> value="是">是</option>
      <option <% if rs("rx")="否" then response.write"selected" %> value="否">否</option>
    </select>   
    </td>
  </tr>
  <tr>
    <td align="right" class="bg2" width="111" height="25">密码</td>
    <td class="bg2" width="303" height="25"><input name="stupwd" type="password" value="<%=rs("StuPwd")%>"></td>
    <td align="right" class="bg2" width="98" height="25">考试时间</td>
    <td class="bg2" width="276" height="25">
      <input name="ksdate" type="text" id="ksdate" value="<%=rs("Ksdate")%>" />
    </td>
    </tr>
  <tr>
    <td align="right" class="bg2" width="111" height="25">姓名</td>
    <td class="bg2" width="303" height="25"><input name="stuname" type="text" value="<%=rs("StuName")%>"></td>
    <td align="right" class="bg2" width="98" height="25">性别</td>
    <td class="bg2" width="276" height="25"><input name="stusex" type="text" value="<%=rs("StuSex")%>" /></td>
    </tr>
  <tr>
    <td align="right" class="bg2" width="111" height="25">档案号</td>
    <td class="bg2" width="303" height="25"><input name="stuage" type="text" value="<%=rs("StuAge")%>"></td>
    <td align="right" class="bg2" width="98" height="25">学历</td>
    <td class="bg2" width="276" height="25"><input name="degree" type="text" id="degree" value="<%=rs("Degree")%>" /></td>
    </tr>
  <tr>
    <td align="right" class="bg2" width="111" height="25">考点</td>
    <td class="bg2" width="303" height="25"><input name="kd" type="text" value="<%=rs("Kd")%>"></td>
    <td align="right" class="bg2" width="98" height="25">手机号码</td>
    <td class="bg2" width="276" height="25"><input name="nativeplace" type="text" value="<%=rs("NativePlace")%>" /></td>
    </tr>
  <tr>
    <td align="right" class="bg2" width="111" height="25">工作单位</td>
    <td class="bg2" width="303" height="25"><input name="companyname" type="text" value="<%=rs("CompanyName")%>"></td>
    <td align="right" class="bg2" width="98" height="25">邮政编码</td>
    <td class="bg2" width="276" height="25"><input name="stutitle" type="text" id="stutitle" value="<%=rs("StuTitle")%>" /></td>
  </tr>
  <tr>
    <td align="right" class="bg2" width="111" height="97">报考科目</td>
    <td colspan="3" class="bg2" width="707" height="97"><textarea name="zy" cols="80" rows="3"><%=rs("zy")%></textarea>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    科目之间用“,”隔开 </td>         
  </tr>
  <tr>
    <td class="bg2" width="111" height="27"></td>
    <td colspan="3" class="bg2" width="707" height="27"><input type="submit" name="Submit" value="提交"></td>
  </tr>
  </form>
</table>

第二个文件：u_check_bc.asp

代码如下：
<!--#include file="conn.asp" -->

<%
exec="select * from Students where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3

rs("stuid")=request.Form("stuid")

rs("StuPwd")=request.Form("stupwd")
rs("StuName")=request.Form("stuname")
rs("StuAge")=request.Form("stuage")
rs("Degree")=request.Form("degree")
rs("CompanyName")=request.Form("companyname")
rs("NativePlave")=request.Form("nativeplave")
rs("StuSex")=request.Form("stusex")
rs("zy")=request.Form("zy")
rs("Kd")=request.Form("kd")
rs("ksdate")=request.Form("ksdate")
rs("rx")=request.Form("rx")
rs("rd")=request.Form("rd")


rs.update

Response.Redirect("u_lb.asp")
%>

问题是在第一个文件：u_check.asp 提交后“您要访问的网页有问题，无法显示。”
回复

使用道具 举报

2#
发表于 2010-1-10 22:51:58 | 只看该作者
u_lb.asp文件代码:

<!--#include file="conn.asp" -->

<%
id=request("id")
exec="select * from Students order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

<head>
<link href="../css/aindex.css" rel="stylesheet" type="text/css" />
<link href="../css/index.css" rel="stylesheet" type="text/css" />
<link href="../css/alink.css" rel="stylesheet" type="text/css" />
</head>

<table width="100%" align="right" cellpadding="5" cellspacing="1" class="bx" bordercolordark="#FFFFFF" bordercolorlight="#34A6DC" border="1">
     <tr>
       <td colspan="9" bgcolor="#FFFFFF" class="bg">考生列表</td>
     </tr>
     <tr>
       <td colspan="9" bgcolor="#FFFFFF">
         <!--#include file="u_so.asp" -->
       </td>
     </tr>
     <tr>
       <td colspan="9" class="bg4">
         <!--#include file="pg.asp" -->
       </td>
     </tr>
     <tr>
       <td width="4%" class="bg">编号</td>
       <td width="11%" class="bg">身份证号码</td>
       <td width="9%" class="bg">姓名</td>
       <td width="5%" class="bg">性别</td>
       <td width="11%" class="bg">档案号</td>
       <td width="9%" class="bg">考试时间</td>
      
       <td width="20%" class="bg">操作</td>
       <td width="21%" class="bg">√为已缴费/时间</td>
     </tr>
<% for i=1 to rs.pagesize %>     
<% if rs.eof then
   exit for
   end if
%>
     <tr bordercolor="#E6F7FB" bgColor=#FFFFFF onMouseOver="javascript:this.bgColor='#E6F7FB';"onMouseOut="javascript:this.bgColor='#FFFFFF';" >
       <td bordercolor="#F2F4F4"><%=i%></td>
       <td bordercolor="#F2F4F4">
<a href="u_u.asp?id=<%=rs("id")%>"><%=rs("StuId")%></a>
       </td>
       <td bordercolor="#F2F4F4"><a href="u_u.asp?id=<%=rs("id")%>"><%=rs("StuName")%></a><font color=#009900"><strong><% if rs("rx")="是" then response.write"√" %></strong></font></td>
       <td align="center" bordercolor="#F2F4F4"><%=rs("StuSex")%></td>
       <td bordercolor="#F2F4F4"><%=rs("StuAge")%></td>
       <td bordercolor="#F2F4F4"><%=rs("Ksdate")%></td>
      
       <td bordercolor="#F2F4F4">
       <a href="u_check.asp?id=<%=rs("id")%>">修改</a>
       <a href="u_del.asp?id=<%=rs("id")%>">删除</a>
　<a href="u_del.asp?id=<%=rs("id")%>">      
<%
        if rs("rx")="是" then
          Response.Write "<a href=ubm.asp?rx=否&id="&rs("id")&">取消已缴费</a>"
        else
          Response.Write "<a href=ubm.asp?rx=是&rd="&date&"&id="&rs("id")&">确认缴费 ●</a>"
        end if        
       %>
      </a> </td>
       <td bordercolor="#F2F4F4"><a href="u_del.asp?id=<%=rs("id")%>">
         <%
        if rs("rx")="是" then
          Response.Write "<a href=ubm.asp?rx=否&id="&rs("id")&">√</a>　　缴费时间:"
        else
          Response.Write "<a href=ubm.asp?rx=是&rd="&date&"&id="&rs("id")&">●</a>"
        end if        
       %>
       </a><%=rs("rd")%></td>
  </tr>

   
<%
rs.movenext
next
%>  
</table>
回复 支持 反对

使用道具 举报

3#
发表于 2010-1-10 22:52:03 | 只看该作者
<%
id=request("id")
exec="select * from Students order by id desc"   

id不能这样写，应该是exec="select * from Students order by "&id&"desc"

set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
还有每次查询的时候都应该使用if rs.eof and rs.bof then.....判断记录是否存在，如果不判断容易出错
<% for i=1 to rs.pagesize %>     
<% if rs.eof then
   exit for
   end if
%>
<%
rs.movenext
next
%>  
不应该这么写，应该这样：
<% for i=1 to rs.pagesize %>
......   
<%
rs.movenext
if rs.eof then exit for
next
%>
回复 支持 反对

使用道具 举报

4#
发表于 2010-1-10 22:52:08 | 只看该作者
看具体错误……
回复 支持 反对

使用道具 举报

5#
发表于 2010-1-10 22:52:12 | 只看该作者
icyhoo 在 2008-9-28 20:36 的发言：


还有每次查询的时候都应该使用if rs.eof and rs.bof then.....判断记录是否存在，如果不判断容易出错
     

  
不应该这么写，应该这样：

......   



exec="select * from Students order by "&id&"desc"

???


提交的id是字段名？
回复 支持 反对

使用道具 举报

6#
发表于 2010-1-10 22:52:16 | 只看该作者
首先建议一点,对象使用完要即使关闭和销毁
rs.close
set rs=nothing
conn.close
set conn=nothing

对于你的错误,
1,考虑下权限问题
2.换中数据库连接方式(dbq/provider)
2.换用update 语句来更新看看
回复 支持 反对

使用道具 举报

7#
发表于 2010-1-10 22:52:20 | 只看该作者
有问题的页面不是u_check_bc.asp而是u_lb.asp文件
回复 支持 反对

使用道具 举报

8#
发表于 2010-1-10 22:52:24 | 只看该作者
u_lb.asp文件应不会有错吧，能正常显示
点该文件的“删除”能正常删除
点该文件的“修改”能到u_check.asp ID=13的页面
在u_check.asp ID=13的网页点“提交”出现如下错误：


无法显示网页
您要访问的网页有问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下操作:

打开 www  主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。

单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。

HTTP 500 - 内部服务器错误
Internet Explorer
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-20 09:41 , Processed in 0.065167 second(s), 9 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

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