asp如何写入Access(高手帮忙)

来源:百度知道 编辑:UC知道 时间:2024/05/24 18:49:03
我现在找到一个网站程序,但是他后台有限制,不能发布新闻,产品等等信息,但是可以察看信息,我想请教下,如何才能将自己的新闻,产品添加到数据库里面了。添加新闻的文件在下面,高手帮忙指导下。谢谢了。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "tuzh_pri.asp"-->
<!--#include file ="../connadmin.asp"-->
<%if request.QueryString("action")="modi" and trim(request.QueryString("id"))<>"" then
dim modi
modi="y"
set rsok=server.createobject("adodb.recordset")
sqlok="select * from com where id="&cint(trim(request.QueryString("id")))
rsok.open sqlok,conn,1,1
doid=rsok("id")
title= rsok("title")
content= rsok("content")
kind_id= rsok("yiid")
rsok.close
set rsok=nothing
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; char

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "tuzh_pri.asp"-->
<!--#include file ="../connadmin.asp"-->
<%if request.QueryString("action")="modi" and trim(request.QueryString("id"))<>"" then
dim modi
modi="y"
set rsok=server.createobject("adodb.recordset")
sqlok="select * from com where id="&cint(trim(request.QueryString("id")))
rsok.open sqlok,conn,1,3
rsok.addnew
doid=rsok("id")
title= rsok("title")
content= rsok("content")
kind_id= rsok("yiid")
rsok.update
rsok.close
set rsok=nothing
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="