UC知道asp代码问题---有追分
来源：百度知道 编辑：UC知道 时间：2024/05/06 20:42:14
下面是对数据库进行添加的asp代码，有没有大侠帮忙改一个删除和修改的代码，t1，b1是数据库字段
如果改得好，每改一个我会再追加20分
谢谢帮忙
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from denglu where id=0"
rs.open sql,conn,3,2
rs.addnew
rs("t1")=trim(request("t2"))
rs("b1")=trim(request("b2"))
rs.update
rs.close
response.write "<script>alert('你已经增加成功！');window.location.href='cbxn.asp';</script>"
%>
如果改得好，每改一个我会再追加20分
谢谢帮忙
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from denglu where id=0"
rs.open sql,conn,3,2
rs.addnew
rs("t1")=trim(request("t2"))
rs("b1")=trim(request("b2"))
rs.update
rs.close
response.write "<script>alert('你已经增加成功！');window.location.href='cbxn.asp';</script>"
%>
这是我自己的删除文件代码，中间加了些条件判断，如果看不懂M我
<%if session("logged")=1 and request.form("d1")<>"" then
set connect=server.createobject("adodb.connection")
connect.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("********.mdb")
exec="select * from new"
set rs=server.createobject("adodb.recordset")
rs.open exec,connect,1,3
rs.movefirst
do while not rs.eof
if rs("编号")=request.form("d1") and (session("yhm")=rs("添加人") or session("jb")="-1") then
if rs("图片")<>"" then
Set fs=CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "e:\web\wlxyfz\pic\"+rs("图片")
set fs=nothing
end if
rs.delete
rs.update
response.write("删除成功！")
exit do
end if
rs.movenext