难到sql和access在表已经存在时,添加数据的程序不同!
下面是save.asp
<!-- #include file="dbconnect.asp" -->
<%
dim x,y,z,a
set db=server.createobject("adodb.recordset")
sql="select max(id) as id_num from news"
db.open sql,cnn,1,1
id=CInt(db("id_num"))+1
db.close
set db=nothing
Set Upload = Server.CreateObject("Persits.Upload")
Upload.save(server.mappath("\temp"))
if Upload.form("check_image")="on" then
Set File2 = Upload.Files("iamge")
File2.SaveAs server.mappath("\newsimage") & "\news" & id & ".jpg"
Set File2=nothing
end if
a=upload.form("author")
t=upload.form("title")
k=upload.form("keyword")
c=upload.form("content")
set db=server.createobject("adodb.recordset")
sql="select * from news"
db.open sql,cnn,3,3
db.addnew
db("id")=id
db("title")=t
db("author")=a
db("keyword")=k
db("content")=c
if Upload.form("check_image")="on" then
db("image")=id
end if
db.update
db.close
set db=nothing
conn.close
set cnn=nothing
%>
新闻<% =Upload.form("title") %>添加成功!
<%
set Upload=nothing
Set Upload = Server.CreateObject("Persits.Upload")
Set Dir = Upload.Directory( server.mappath("\temp") & "\*.*", true)
For Each Item in Dir
if Item.FileName<>"." and Item.FileName<>".." then
Upload.DeleteFile server.mappath("\temp") & "\" & Item.FileName
end if
Next
set Upload=nothing
%>
我测试到a,t,k,c的输出结果都是正确的!
但是一加上db.addnew就不对了
表是sql的表,用程序建立的
<%
sql="create table news([id] int not null,[title] varchar(100) not null ,[author] varchar(60),[keyword] varchar(60),[content] text not null,[image] int,[date] datetime)"
set rs=cnn.execute(sql)
%>
实在不知道是为什么不对了!?
多谢大家指导!