主题:[讨论]我的程序出了问题走过路过的都来看看
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 行
<%
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 行