UC知道ASP后台代码
来源：百度知道 编辑：UC知道 时间：2024/09/21 05:45:54
求一ASP后台代码
网上下了几个都是无法更新数据库，修改，删除，都不可以
ASP不会，能帮忙写个修改数据，添加数据页面的也可以
数据库名称是#data.mdb ,access的数据库
数据表是web_Product，就是修改这个表中的内容
悬赏最高就100，如果能提供，试后可用，再加100
删除能实现了。。
不过自己实在不懂这个ASP啊。
新建和修改，希望你也能帮忙写下，我再加点分
数据库的字段有id,p_name,p_pic,p_samllpic,p_class
新建的时候需要图片上传
网上下了几个都是无法更新数据库，修改，删除，都不可以
ASP不会，能帮忙写个修改数据，添加数据页面的也可以
数据库名称是#data.mdb ,access的数据库
数据表是web_Product，就是修改这个表中的内容
悬赏最高就100，如果能提供，试后可用，再加100
删除能实现了。。
不过自己实在不懂这个ASP啊。
新建和修改，希望你也能帮忙写下，我再加点分
数据库的字段有id,p_name,p_pic,p_samllpic,p_class
新建的时候需要图片上传
以下代码实现了对你的Web_Product表的浏览和删除，而修改的部分因为工作太忙没有时间写了，只写了实现的思路，楼主可以自己领悟。
把代码存成a.asp文件，然后把这个文件和你的#data.mdb数据库文件放在同一目录下，用IIS配置好虚拟目录，就可以查看效果了。
<%
dim dotype,id
dotype=request("dotype")
id=request("id")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "dbq=" & server.MapPath("#data.mdb") & ";driver={microsoft access driver (*.mdb)};"
set rs = server.createobject("adodb.recordset")
if dotype="" then'读取
rs.open "select * from web_Product",cn,1,1
dim n,t
response.write "<table border=1>"
dim value
t=rs.Fields.Count - 1
do while not rs.eof
response.write "<tr>"
for n=0 to t
if isnull(rs(n)) or rs(n)="" then value=" " else value=cstr(rs(n))
response.write "<td>"+value+"</td>"
n