回 帖 发 新 帖 刷新版面

主题:[讨论]我的程序出了问题走过路过的都来看看

Conn.asp
<%
dim db
set db=server.createobject("ADODB.Connection")
db.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")
db.open
%>
----------------------------------------
admin.asp
<%@ language="VBscript" %>
<% option explicit %>
<!--#include file="conn.asp"-->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
    font-size: 9pt;
    line-height: 12pt;
    background-color: #FF9966;
}
td { font-size: 9pt;line-height: 12pt}
a {color: #FFFFFF; text-decoration: none}
a:hover {text-decoration: underline;color: #ff0000;}
-->
</style>
<script language=javascript>
<!--
function check()
{
if(document.login.name.value=="")
{alert("姓名不能为空^_^");return false}
if(document.login.age.value=="")
{alert("年龄不能为空^_^");return false}
if(document.login.sex.value=="")
{alert("性别不能为空^_^");return false}
if(document.login.city.value=="")
{alert("城市不能为空^_^");return false}
if(document.login.xl.value=="")
{alert("学历不能为空^_^");return false}
if(document.login.zy.value=="")
{alert("您得告诉我们您想要学的专业吧?");return false}
if(document.login.tel.value=="")
{alert("联系电话不能为空^_^");return false}
if(document.login.comments.value=="")
{alert("个人简介不能为空^_^");return false}
}
-->
</script>
<%
dim strsql,page,total,mypagesize,sql
strSQL= "SELECT * FROM gb_data Order By date DESC"
dim rs
set rs = server.createobject("ADODB.recordset")
rs.open strSQL, db, 1,3
%>
<title></title>
</head>

<body text="#FFFFFF" topmargin="6">


<p align="center">
<b>
应聘人员在线登记系统</b> 
<%
if rs.eof or rs.bof then
response.write "<table width='740' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='4B4B4B' class='table'><tr><td><div align='center'><font color=#ffffff>暂时未有任何留言,请您留言。</font></div></td></tr></table>" 
else 

IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if

rs.pagesize =5
total  = rs.RecordCount
mypagesize=rs.pagesize
rs.absolutepage = page
%>
<table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#FF9966">
    <%
     dim i 
     i=1
     do while not rs.eof  and mypagesize>0
     %>
     <table width="740" border="0" cellpadding="0" height="40" cellspacing="0">
      <tr class="table">
        <td height="11" valign="top" bgcolor="#FF9966" > </td>
      </tr>
      <tr class="table">
        <td height="96" valign="top" bgcolor="#FF9966" ><font color="#FFFFFF">登记人员个人资料</font><br>
          <font color="#000000">
          编号:<b> 
          [<% response.write(rs("id"))%>] </b>姓名:<b> 
          [<% response.write(rs("name"))%>]   </b>年龄 :    
          [<% response.write(rs("age"))%>] 性别:                       
          [<% response.write(rs("sex"))%>] 应聘岗位:                             
          [<% response.write(rs("ypgw"))%>] 期望待遇:
          [<% response.write(rs("qwdy"))%>] 联系电话:</font>   
          [ <% response.write(rs("tel")) %> ]<font color="#000000">  <br>                            
          报名时间:                      
        [<% response.write(rs("date")) %>]</font><br>
        <a href="del.asp?id=<%=(rs("id"))%>">删除</a>
        <br>
        ==========================================================<br></td>
      </tr>
    </table>
   
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table" height="33">
                            <form name="form2" method="post" action="admin.asp">
                              <tr> 
                                <td height="6" align="right" bgcolor="#FF9966"> </td>
                              </tr>
                              <tr> 
                                <td height="27" align="right" bgcolor="#FF9966"><div align="center"><font color="#ffffff">共<b><%=rs.pagecount%></b>页<b><%=total%></b>条报名信息             
                                    当前第<b><%=page%></b>页 <a href="admin.asp?page=1">首页</a>             
                                    <%if page>1 then%>            
                                    <a href=default.asp?page=<%=page-1%>>上一页</a>             
                                    <%else%>            
                                    上一页             
                                    <%end if%>
                                    <%if page<rs.pagecount   then%>            
                                    <a href=default.asp?page=<%=page+1%>>下一页</a>             
                                    <%else%>            
                                    下一页             
                                    <%end if%>
                                    <a href=admin.asp?page=<%=rs.pagecount%>>尾页</a>             
                                    <select name="page" class="table1">            
                                        <%for i=1 to rs.pagecount%> 
                                        <option value=<%=i%>
                                                          <%
                      if i=page then
                      response.write"选择"
                      end if
                      %>
                                    ><%=i%></option>
                                        <%next%>
                                </select> 
                                    <input name="Submit22" type="submit" class="table1" value="转向">            
                                </font></div></td>
                              </tr>
                            </form>
      </table>
    </td>
  </tr>
</table>
<%end if%>
<%
rs.close
set rs = nothing

db.close
set db = nothing
%>
<table width="740" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#62774F" class="table">
  <tr>
    <td bgcolor="#FF9966"> </td>    
  </tr>
  <tr>
    <td bgcolor="#FF9966"><div align="center" class="style1">应聘人员在线登记系统<br>
  </tr>
</table>
------------------------------
del.asp
<!--#include file="conn.asp"--> 
<% 
set rs=server.createobject("adodb.recordset") 
id=Request.QueryString("id") 
sql="select * from gb_data where id="&id 
rs.open sql,conn,1,3 
rs.delete 
rs.update 
%> 
------------------------------------
点了删除按钮后就报下面这个错我了 大家来帮我忙啊
错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/del.asp, 第 6 行

回复列表 (共2个回复)

沙发

初步判断可能是因为 rs.open sql,conn,1,3中的1,3这两个参数错了,具体用什么数值我就不太清楚了,我一般不这样写,所以都忘了
我做这种删除一般用Conn.Execute("Delete From gb_data Where ID="&ID)

板凳

你的数据库连接对象是这样的 db.open 
所以不是rs.open sql,conn,1,3 而是rs.open sql,db,1,3

我来回复

您尚未登录,请登录后再回复。点此登录或注册