恳请大家帮看一下数据库插入问题~谢谢
<!--#include file= "include/conn.asp "-->
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 借书管理 </title>
<link href= "css/yangshi.css " rel= "stylesheet " type= "text/css ">
<!--#include file= "top.asp "-->
<%
if session( "powerss ") <> 2 then
response.Redirect "admin_manage.asp "
response.End()
end if
if request( "loginstyle ")= "查询 " then
stunum=request.Form( "stunum ")
booknum=request.Form( "booknum ")
set rs=server.CreateObject( "adodb.recordset ")
sql1= "select * from book_info where booknum= ' "&booknum& " ' "
rs.open sql1,conn,1,1
bookname=rs( "bookname ")
if rs.bof or rs.eof then
response.Write " <script language= 'javascript '> "&vbcr
response.Write "alert( '没有此书登记! '); "&vbcr
response.Write "history.go(-1); "&vbcr
response.Write " </script> "
end if
rs.close
end if
if request( "loginstyle ")= "提交 " then
stunum=request.Form( "stunum ")
booknum=request.Form( "booknum ")
bookname=request.Form( "bookname ")
set rs=server.CreateObject( "adodb.recordset ")
sql= "select * from stu_info where stunum= ' "&stunum& " ' "
rs.open sql,conn,1,1
if rs.bof or rs.eof then
response.Write " <script language= 'javascript '> "&vbcr
response.Write "alert( '没有此学生帐号! '); "&vbcr
response.Write "history.go(-1); "&vbcr
response.Write " </script> "
response.End()
end if
rs.close
sql2= "select * from book_borrow where booknum= ' "&booknum& " ' "
'response.Write sql2
'response.End()
rs.open sql2,conn,1,1
if not rs.bof and not rs.eof then
response.Write " <script language= 'javascript '> "&vbcr
response.Write "alert( '此书已借出! '); "&vbcr
response.Write "history.go(-1); "&vbcr
response.Write " </script> "
end if
rs.close
borrow_date=date()
relay_date=dateadd( "d ",30,date())
renew=true
sql3= "select * from book_order where booknum= ' "&booknum& " ' "
rs.open sql3,conn,1,1 '-----检查书是否在预约记录中
if not rs.bof and not rs.eof then
set rs1=server.CreateObject( "adodb.recordset ")
sql4= "select * from book_order where stunum= ' "&stunum& " ' and booknum= ' "&booknum& " ' "
rs1.open sql4,conn,1,1 '-----检查是否是预约本人
if rs1.bof or rs1.eof then
response.Write " <script language= 'javascript '> "&vbcr
response.Write "alert( '此书已预约! '); "&vbcr
response.Write "history.go(-1); "&vbcr
response.Write " </script> "
response.End()
else
i=1
response.Write " <script language= 'javascript '> "&vbcr
response.Write "alert( '您预约了此书! '); "&vbcr
response.Write " </script> "
end if
rs1.close
set rs1=nothing
end if
rs.close
set rs=nothing
if i=1 then '----清除预约记录
sql5= "delete from book_order where stunum= ' "&stunum& " ' and booknum= ' "&booknum& " ' "
conn.execute(sql5)
end if
sqlstr= "insert into book_borrow(booknum,bookname,stunum,borrow_date,relay_date,renew) values( ' "&booknum& " ', ' "&bookname& " ', ' "&stunum& " ', ' "&borrow_date& " ', ' "&relay_date& " ', ' "&renew& " ') "
'response.Write sqlstr 这里的语句是insert into book_borrow(booknum,bookname,stunum,borrow_date,relay_date,renew) values( '00001 ', 'C语言程序设计 ', '0311 ', '2007-5-13 ', '2007-6-12 ', 'True ') 可是就是无法插入记录，还弹出下面的对话框说插入成功~不知道是怎么回事了~
'response.End()
conn.execute(sqlstr)
response.Write " <script language= 'javascript '> "&vbcr
response.Write "alert( '您成功借此书! ') "&vbcr
response.Write " </script> "
end if '------loginstyle
%>
<table width= "40% " height= "30 " border= "0 " align= "center ">
<tr>
<td height= "26 "> <div align= "center " class= "style4 "> 借图书 </div> </td>
</tr>
</table>
<form name= "form1 " method= "post " action= "admin_borrow.asp ">
<table width= "48% " height= "191 " border= "0 " align= "center ">
<tr>
<td width= "36% "> <div align= "right "> 学生帐号: </div> </td>
<td width= "64% "> <input name= "stunum " type= "text " class= "style9 " id= "stunum " size= "18 " value= " <%response.Write(stunum)%> "> </td>
</tr>
<tr>
<td> <div align= "right "> 书号: </div> </td>
<td> <input name= "booknum " type= "text " class= "style9 " id= "booknum " size= "18 " value= " <%response.Write(booknum)%> " > </td>
</tr>
<tr>
<td> <div align= "right "> 书名: </div> </td>
<td> <input name= "bookname " type= "text " class= "style9 " id= "bookname " size= "18 " value= " <%response.Write(bookname)%> " >
<input name= "loginstyle " type= "submit " id= "loginstyle " value= "查询 "> </td>
</tr>
<tr>
<td> <div align= "right "> 借阅日期: </div> </td>
<td> <input name= "borrow_time " type= "text " class= "style9 " id= "borrow_time " size= "18 " value= " <%=date()%> "> </td>
</tr>
<tr>
<td height= "43 "> <div align= "right ">
<input type= "reset " name= "Submit " value= "重置 ">
</div> </td>
<td> <div align= "center ">
<input name= "loginstyle " type= "submit " id= "loginstyle " value= "提交 ">
</div> </td>
</tr>
</table>
</form>
[解决办法]
有可能你的conn.asp文件存在On Error Resume Next这代码，你看看注释掉会不会抛错~
[解决办法]
2007-5-13
这个是时间吗???数据库里字段设置的是日期吗?
如果是日期,应该是#2007-5-13#
