如何在ASP中清除ACCESS2000 中日期型字段的值？
如何在ASP中清除ACCESS2000 中日期型字段的值？
代码：
<!--# include file="adovbs.inc"-->
<html>
<head>
<base href="file:///C:/Documents%20and%20Settings/Administrator/桌面/aa/return.asp" fptype="TRUE">
<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>New Page 1</title>
</head>
<body>
<form action="return.asp" method=post id=form1 name=form1>
借书<br>
书ID:<input type=text name=bookid size=10 ><br>
用户ID:<input type=text name=customerid size=10 ><br>
<input type=submit value=确定 id=submit1 name=submit1>
</form>
<hr> <!--插入水平线-->
<% customerid=""
bookid=request("bookid") %>
<% set conn=server.CreateObject("ADODB.Connection")
conn.Open "DSN=ty_library"
dim present_date
present_date="" 或 present_date=null 无法清除
dim sql
sql="update book set 是否出借=0,出借时间='"&present_date&"',读者ID='"&customerid&"' where ID='"&bookid&"'"
conn.Execute(sql)
%>
</body></HTML>
问题点数：40、回复次数：9Top
1 楼beyond_xiruo（CorruptionException）回复于 2002-02-27 14:08:30 得分 0
set present_date=nothingTop
2 楼tangyong_delphi（）回复于 2002-02-27 14:40:44 得分 0
ACCESS2000 中的表customer有一个字段名为“学生/教师”
sql="select book.ID 书ID,book.书名,book.出版社,book.是否出借 出借,book.读者ID,customer.ID
读者ID,customer.姓名 读者姓名,customer.学生/教师,book.出借时间 from book,customer where 是
否出借=false and book.读者ID=customer.ID" 出错，去掉customer.学生/教师，一切正确，如何解决customer.学生/教师中的/问题Top
3 楼beyond_xiruo（CorruptionException）回复于 2002-02-27 14:48:56 得分 25
[customer.学生/教师]Top
4 楼playmud（(猪头流氓)(抵制日货)(热烈庆祝火箭输球)）回复于 2002-02-27 14:49:18 得分 0
改数据库Top
5 楼tangyong_delphi（）回复于 2002-02-27 14:58:42 得分 0
set present_date=nothing
present_date=""
dim sql
sql="update book set 是否出借=0,出借时间='"&present_date&"',读者ID='"&customerid&"' where ID='"&bookid&"'"
或set present_date=nothing
dim sql
sql="update book set 是否出借=0,出借时间='"&present_date&"',读者ID='"&customerid&"' where ID='"&bookid&"'"
都无济于事
或Top
6 楼tangyong_delphi（）回复于 2002-02-27 16:32:53 得分 0
如何实现模糊查询？
关键代码：
% BookID=request("id") %>
<% set conn=server.CreateObject("ADODB.Connection")
conn.Open"DSN=ty_library"
set rs=server.CreateObject("adodb.recordset")
dim sql
sql="select * from book where id like"&"'%"&bookid&"%'"
rs.open sql,conn,2,2 '以添加记录
If BookID<>"" then
Response.Write(bookid)
RsToTables rs
End IF %>
<% sub RsToTables(rs)
'输出表头
Response.Write "<center><table border=4 bordercolor=orange>"
Response.Write "<tr bgcolor=orange>"
for i=0 to rs.fields.count-1
Response.Write"<td><font color=white><b>" & rs.fields(i).name & "</b></font></td>"
next
Response.Write"</tr>"
'输出数据库内容
while not rs.eof
Response.Write"<tr align=middle>"
for i=0 to rs.fields.count-1
Response.Write"<td>" & rs.fields(i).value & "</td>"
next
Response.Write "</tr>"
rs.movenext
wend
Response.Write "</table></center>"
end sub
%>
</FONT></P>
<P> </P>
<form action="booklend.asp" method=post >
<P>
输入图书ID:<input name=id size=10 ></P>
<P>
<input type=submit value=确定 id=submit1 name=submit1>
</P>
</form>
</body></HTML>
Top
7 楼neweb（永不言败）回复于 2002-02-27 22:22:03 得分 10
sql="update book set 是否出借=0,出借时间=null,读者ID=....... conn.Execute(sql)
Top
8 楼blow_jj（阿俊）回复于 2002-02-27 22:54:40 得分 5
把日期字段变为NullTop
9 楼blow_jj（阿俊）回复于 2002-02-27 22:54:55 得分 0
把日期字段值变为NullTop
