1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

帮帮我,有麻烦了,不学无术`~各位大哥帮帮我

本帖由 小狼2006-03-15 发布。版面名称:后端开发

  1. 小狼

    小狼 New Member

    注册:
    2006-03-15
    帖子:
    163
    赞:
    1
    前台代码
    <%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <title>无标题文档</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <link href="css.css" rel="stylesheet" type="text/css">
    </head>

    <body>
    <form name="form1" method="post" action="see.asp">
    <table width="769" height="299" border="0" cellpadding="0" cellspacing="0">
    <tr>
    <td align="left" valign="top"><p align="center" class="unnamed1">客户订 购系统</p>
    <table width="739" border="0" cellpadding="0" cellspacing="0">
    <tr>
    <td width="290"><div align="right"><span class="unnamed1">姓    名 :</span>
    </div></td>
    <td width="449"><input name="数据1" type="text" id="数据1" maxlength="8"></td>
    </tr>
    </table>
    <table width="739" border="0" cellpadding="0" cellspacing="0">
    <tr>
    <td width="290" height="22"><div align="right">联系电话:
    </div> <div align="left"></div>
    <div align="justify"></div></td>
    <td width="449"><input name="数据2" type="text" id="数据2" maxlength="13"></td>
    </tr>
    </table>
    <table width="740" border="0" cellpadding="0" cellspacing="0">
    <tr>
    <td width="290"><div align="right">订购日期:</div></td>
    <td width="450"><input name="数据3" type="text" id="数据3" maxlength="12"></td>
    </tr>
    </table>
    <table width="740" border="0" cellpadding="0" cellspacing="0">
    <tr>
    <td width="290" height="24" align="center" valign="middle"><div align="right"><span class="unnamed1">备   注</span>:

    </div>
    <div align="center"></div></td>
    <td width="450" align="center" valign="middle"><div align="left">
    <textarea name="数据4" id="数据4"></textarea>
    </div></td>
    </tr>
    </table>
    <p align="center">
    <input name="submit" type="submit" id="zh2" value="提交">
    <input type="reset" name="Submit2" value="重置">
    </p>
    <p>&nbsp;</p>
    <p>&nbsp;</p> <p align="left" class="unnamed1">&nbsp;</p> <p></p>
    <div align="center"></div></td>
    </tr>
    </table>
    </form>
    </body>
    </html>

    后台代码

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
    <% @LANGUAGE = VBScript %>
    <html><title>无标题文档</title>
    <!--#include file=conn.asp-->
    <%
    dim sqlstr
    sqlstr="select * from 客户统计表"
    rs.open sqlstr,conn,1,3
    rs.addnew 新增加一条记录
    rs("数据1")=request.form1(数据1)
    rs("数据2")=request.form1(数据2)
    rs("数据3")=request.form1(数据3)
    rs("数据4")=request.form1(数据4)
    rs.update 刷新数据库
    response.write("<script>alert(""订购成功!"")
    rs.close
    conn.close 这几句是用来关闭数据库
    set rs=nothing
    set conn=nothing
    %>
    <head>
    <title>无标题文档</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    </head>

    <body>
    </body>
    </html>

    数据库连接
    <%

    set conn=server.CreateObject("adodb.connection")
    connstr="driver={microsoft access driver (个人数据库.mdb)};dbq="&server.MapPath个人数据库.mdb")
    set rs=server.CreateObject("adodb.recordset")%>

    刚学,请大家帮我看看,错在那里,简单的存储数据
     
  2. 小叶

    小叶 New Member

    注册:
    2005-09-04
    帖子:
    17,941
    赞:
    33
    他不见鸟,俺看看。

    set conn=server.CreateObject("adodb.connection")
    connstr="driver={microsoft access driver (个人数据库.mdb)};dbq="&server.MapPath("个人数据库.mdb")

    set rs=server.CreateObject("adodb.recordset")



    %>
     
  3. Tameway

    Tameway New Member

    注册:
    2005-09-06
    帖子:
    1,286
    赞:
    8
    缺少conn.open connstr

    这一句改成
    connstr="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("个人数据库.mdb")
     
  4. 小狼

    小狼 New Member

    注册:
    2006-03-15
    帖子:
    163
    赞:
    1
    感觉好象不行啊`~~~
    提示错误为sqlstr="select * from 客户统计表"
    我也不知道什么地方有问题
    请大家好好帮我看看
     
  5. 小叶

    小叶 New Member

    注册:
    2005-09-04
    帖子:
    17,941
    赞:
    33
    错误提示?
     
  6. wm_chief

    wm_chief New Member

    注册:
    2005-09-05
    帖子:
    17,890
    赞:
    46
  7. Tameway

    Tameway New Member

    注册:
    2005-09-06
    帖子:
    1,286
    赞:
    8
    rs.open sqlstr,conn,1,3
    改成
    rs.open sqlstr,conn,3,3


    另请给出详细错误信息,不然怎么知道什么错
     
  8. Ulysses

    Ulysses New Member

    注册:
    2006-02-05
    帖子:
    10,018
    赞:
    16
    上面的代码中很多地方无法识别是否就是你的程序中正式的代码,例如:

    这几行问题就较多,首先注释需要有注释符号,然后表单名需要用引号括起来。

    如上几位所述,将错误信息复制过来看看。
     
  9. 小狼

    小狼 New Member

    注册:
    2006-03-15
    帖子:
    163
    赞:
    1
    我把后台改成这样了 

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
    <% @LANGUAGE = VBScript %>
    <html><title>无标题文档</title>
    <%
    dim sqlstr,数据1,数据2,数据3,数据4
    set rs=server.CreateObject("adodb.recordset")
    sqlstr="select * from 客户统计表"
    rs.open sqlstr,conn,1,3 
    rs.addnew '新增加一条记录
    rs("数据1")=request.form1(数据1)
    rs("数据2")=request.form1(数据2)
    rs("数据3")=request.form1(数据3)
    rs("数据4")=request.form1(数据4)
    rs.update '刷新数据库
    response.write("<script>alert(""订购成功!"")
    rs.close
    set rs=nothing
    set conn=nothing
    rs.close
    conn.close
    set rs=nothing
    set conn=nothing
    %>

    <head>
    <title>无标题文档</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    </head>

    <body>
    </body>
    </html>


    数据库连接改为
    <%

    set conn=server.CreateObject("adodb.connection")
    connstr="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("?????.mdb")
    set rs=server.CreateObject("adodb.recordset")
    conn.open connstr %>

    结果错误为
    技术信息(用于支持人员)

    错误类型:
    Microsoft VBScript 编译器错误 (0x800A0408)
    无效字符
    /geren/see.asp, line 7, column 11
    dim sqlstr,数据1,数据2,数据3,数据4
    ----------^


    浏览器类型:
    Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

    网页:
    POST 123 ??? /geren/see.asp

    POST Data:
    %CA%FD%BE%DD1=%CA%BF%B4%F3%B7%F2%A1%A1&%CA%FD%BE%DD2=1234&%CA%FD%BE%DD3=1978%2F08%2F1&%CA%FD%BE%DD4=sdf&submit=%CC%E1%BD%BB
     
  10. Ulysses

    Ulysses New Member

    注册:
    2006-02-05
    帖子:
    10,018
    赞:
    16
    变量名不能使用中文。
     
  11. 小狼

    小狼 New Member

    注册:
    2006-03-15
    帖子:
    163
    赞:
    1
    我把变量名改了`~
    但是又提示出现了新的错误`~
    我把数据1改成a,数据2改成b,数据3改成c,数据4改成D.
    但又提示了错误信息:

    错误类型:
    Microsoft VBScript 编译器错误 (0x800A0408)
    无效字符
    /geren/see.asp, line 10, column 23
    rs.open sqlstr,conn,1,3 
    ----------------------^


    浏览器类型:
    Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

    网页:
    POST 57 ??? /geren/see.asp
     
  12. 小狼

    小狼 New Member

    注册:
    2006-03-15
    帖子:
    163
    赞:
    1
    帮帮我`~~
    哎`~
    请大家帮我调试一下了~
    看错误到底在哪
     
  13. 亚马逊的雨季

    亚马逊的雨季 New Member

    注册:
    2005-09-05
    帖子:
    1,984
    赞:
    12
    修改过变量后的页面中,下面这一行呢?

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

    好像没见到有。

    另外 conn.asp 中的

    set rs=server.CreateObject("adodb.recordset")

    这一行去掉,因为和后台页面中的重复了。
     
  14. 小狼

    小狼 New Member

    注册:
    2006-03-15
    帖子:
    163
    赞:
    1
    改了以后还是有问题`~~
    现在郁闷了`~
    哪位大哥帮帮我啊`~
    给我解答`~
    大哥们留下油箱信息好不好啊~~
    我把东西都给你们看看``
    看到底是那里有错误