现在的位置： 首页 >> 电脑网络 >> 编程 >> 文章正文

请问谁能帮我改一下这个程序,老出现程序出错的提出来示.

请问谁能帮我改一下这个程序,老出现程序出错的提出来示.
<% title=request.form(title) content=request.form(content) filetype=request.form(filetype) set rs=server.CreateObject(adodb.recordset) strconn=driver={microsoft access driver (*.mdb)};dbq=&server.MapPath(zj.mdb) sql=SELECT * FROM zjfile rs.Open sql,strconn,1,3 rs.AddNew rs(title)=title rs(content)=content rs(filedate)=now rs(filetype)=filetype rs(times)=0 rs.Update rs.Close %>

<%
title=request.form("title")
content=request.form("content")
filetype=request.form("filetype")

set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
strconn="DRIVER={Microsoft Access Driver(*.mdb)};DBQ="&server.MapPath("zj.mdb")
sql="SELECT * FROM zjfile"
conn.open strconn
rs.Open sql,conn,1,3

rs.AddNew
rs("title")=title
rs("content")=content
rs("filedate")=now
rs("filetype")=filetype
rs("times")=0
rs.Update
rs.Close
%>

编程相关文章推荐

编程重要提示

编程特别推荐

编程论坛新帖