none
程序返回错误 RRS feed

  • 问题

  • 一个简单的成绩查询 出现问题了。 问题页面:http://cj.hxez.net   输入名字以后反回500错误。  希望大家能够给点帮助,谢谢

     例出几个重要文件  1数据链接文件 conn.asp    2. 主页面 index.asp    3. 查询页面 search.asp   4. mdb文件

    1. conn.asp文件
    <%
    
       '定义连接及打开连接为各程序共用
    
       dim conn   
    
       dim connstr,db
    
       on error resume next
    
       'connstr="driver={SQL Server};User Id=08qzks;PASSWORD=;Description=examination;SERVER=10.184.7.8;DATABASE=08qzks"
    
       db="data\08qzks.mdb"
    
       Set conn = Server.CreateObject("ADODB.Connection")
    
       connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
    
       conn.open connstr 
    
    %>
    2. index.asp文件

    <html>
    
    <head>
    
    <meta http-equiv="Content-Language" content="zh-cn">
    
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    
    <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
    
    <meta name="ProgId" content="FrontPage.Editor.Document">
    
    <title>环县二中八年级学生成绩统计系统</title>
    
    </head>
    
    
    
    <body>
    
    <p align="center"> </p>
    
    <p align="center"><font color="#FF0000" size="4" face="黑体"><b>环县二中八年级学生成绩查询系统(2010.1)</b></font></p>
    
    
    
    <!--搜 索-->
    
    <form action="search.asp" method="POST">
    
      <p align="center">
    
        <select size="1" name="year1"> 
    
        <option value="2010" selected>2010</option> 
    
      </select>   &nbsp; 
    
      <select size="1" name="grade">
    
        <option selected value="a">七年级</option> &nbsp; &nbsp;
    
        <option value="b">八年级</option>
    
      </select>
    
      <select size="1" name="team"> 
    
        <option value="a" selected>第一学期期中</option> &nbsp; &nbsp;<option value="b">第一学期期末</option>
    
        </select>&nbsp; &nbsp学生姓名:<input type="text" name="name" size="13">  &nbsp;<input type="submit" value="搜 索" name="submit"></p>   
    
      <p align="center"><font size="4"><b>当前可查询成绩</b></font><p align="center"><br> 
    
      <font color="#0000FF"> 
    
      2009-2010学期 第一学期期中考试成绩<br>  
    
      </font>   
    
    </form>   
    
       
    
    <p align="center">  
    
    <a href="http://www.hxez.net">返回学校首页</a>&nbsp;</p> 
    
    <p align="center">E-mail:<a href="mailto:admin@cwell.cn">admin@cwell.cn</a><br>  
    
    </body> 
    
     
    
    </html> 
    
    
    
    <script language="vbscript"></script>
    
    
    
    

    3.  search.asp文件

    <!--#include file="conn.asp"-->
    
    <%
    
    '取得表单中的年级,姓名,入学年、考试名称四项数据
    
    dim  sheet
    
    sheet="08qzks"
    
    year2=request("year1")
    
    team=request("team")
    
    grade=request("grade")
    
    name=request("name")
    
    '得到数据库中的一个成绩表名,即一个年级的考成绩表
    
    'sheet=  year2+grade+team 
    
    
    
    'response.write  sheet
    
    
    
    '取得年级中文名
    
    select case grade
    
    	case "a"
    
    		gradename="八年级 "
    
    end select
    
    
    
    '取得考试名称
    
    select case team
    
    	case "a"
    
    		teamname="第一学期期中"
    
    	case "b"
    
    		teamname="第一学期期终"
    
    end select
    
    
    
    '打开对应年级的数据库,并取得所查姓名的考试号\姓名\班级\总分等字段对应值
    
    '打开所选择的一次考试年级数据库		
    
    
    
    		sql="select distinct * from " & sheet & " where xm like '%" &08qzks& "%'"
    
    
    
    
    
    '  select case grade
    
    '	case "a"
    
    '		sql="select distinct * from  08qzks where xm like '%" &name& "%'"
    
    ' end select
    
    
    
    
    
    'response.write grade
    
    '取得依姓名排序,这里涉及到同名同姓学生可全部显示出来
    
    sql=sql & " order by ksh "
    
    
    
    set rs=conn.execute(sql)
    
    
    
    
    
    '没有查到此人
    
    if rs.eof then
    
    	response.write "查无此人!<a href=index.asp>返回主页</a>"
    
    	response.end
    
    end if
    
    
    
    response.write "<br><center><h3>查找<font color=brul> "&name&" </font>结果如下:<a href=index.asp>返回再查</a></h3></center>"
    
    
    
    
    
    response.write "<br><center><h3>" 
    
    
    
    response.write year2 & "级 " & gradename 
    
    response.write teamname & "考试"
    
    response.write "</h3></center>"
    
    response.write "<br>"
    
    
    
    response.write "<br>"
    
    response.write "<br>"
    
    '建立一个表格
    
    response.write "<table border=1 align=center>"
    
    '循环显示所找姓名的各次成绩
    
            response.write "<tr>"
    
    	response.write "<td>考试号</td>"
    
    	response.write "<td>班级</td>"
    
    	response.write "<td>学号</td>"
    
    	response.write "<td>姓名</td>"
    
    	response.write "<td>语文</td>"
    
    	response.write "<td>数学</td>"
    
    	response.write "<td>外语</td>"
    
    	response.write "<td>物理</td>"
    
    	response.write "<td>化学</td>"
    
        response.write "<td>生物</td>"
    
    	response.write "<td>政治</td>"
    
    	response.write "<td>历史</td>"
    
    	response.write "<td>地理</td>"
    
    	response.write "<td>总分</td>"
    
    	response.write "<td>班名次</td>"
    
    	response.write "<td>年级名次</td>"
    
    	response.write "</tr>"
    
    do while not rs.eof 
    
    	response.write "<tr>"
    
    	response.write "<td>"&rs("ksh")&"</td>"
    
    	response.write "<td>"&rs("bj")&"</td>"
    
    	response.write "<td>"&rs("xh")&"</td>"
    
    	response.write "<td>"&rs("xm")&"</td>"
    
    	response.write "<td>"&rs("yw")&"</td>"
    
    	response.write "<td>"&rs("sx")&"</td>"
    
    	response.write "<td>"&rs("yy")&"</td>"
    
    	response.write "<td>"&rs("wl")&"</td>"
    
    	response.write "<td>"&rs("hx")&"</td>"
    
    	response.write "<td>"&rs("sw")&"</td>"
    
    	response.write "<td>"&rs("zz")&"</td>"
    
    	response.write "<td>"&rs("ls")&"</td>"
    
    	response.write "<td>"&rs("dl")&"</td>"
    
    	response.write "<td>"&rs("zf")&"</td>"
    
    	response.write "<td>"&rs("mc")&"</td>"
    
    	response.write "<td>"&rs("njmc")&"</td>"
    
    %>
    
    
    
    <%
    
    	response.write "</tr>"
    
    	rs.movenext
    
    loop
    
    response.write "</table>"
    
    rs.close
    
    set rs=nothing
    
    conn.close
    
    set conn=nothing
    
    %>
    4. mdb文件

     http://cj.hxez.net/8qzks.mdb

    2010年1月12日 11:14

答案

  • 你好:
          你的问题可能是连接字符串有问题。
      server.Mappath(变量):变量须是一个字符串类型的可用的数据文件的相对路径。
    如:dim s,result
        s="database/db.mdb"
    result=server.Mappath(s)

    或:
    result=server.Mappath("database/db.mdb")


    希望对你有帮助:

    2010年1月12日 13:42
  • db=Server.MapPath("/data/08qzks.mdb")
    另外检查aceess数据库权限设置是否允许匿名用户访问

    【孟子E章】
    2010年1月12日 13:45
    版主

全部回复

  • 你好:
          你的问题可能是连接字符串有问题。
      server.Mappath(变量):变量须是一个字符串类型的可用的数据文件的相对路径。
    如:dim s,result
        s="database/db.mdb"
    result=server.Mappath(s)

    或:
    result=server.Mappath("database/db.mdb")


    希望对你有帮助:

    2010年1月12日 13:42
  • db=Server.MapPath("/data/08qzks.mdb")
    另外检查aceess数据库权限设置是否允许匿名用户访问

    【孟子E章】
    2010年1月12日 13:45
    版主