zy221021 2019-04-13 22:46
浏览 164

怎么把这asp操作数据库代码转成php代码啊?求助

<%
function delete_file(src)
set fso=server.createobject("scripting.filesystemobject")
if src<>"" then
myfile=server.mappath(src)
if fso.FileExists(myfile) then
fso.DeleteFile myfile
end if
end if
set fso=nothing
end function

kind=request.form("kind")
id=request.form("id")

select case kind
case "news"
sql="delete from news where id="&id
conn.execute(sql)
case "menu"
sql="delete from menu where id="&id
conn.execute(sql)
case "picnews"
set rs=server.createobject("adodb.recordset")
sql="select * from picnews where id="&id
rs.open sql,conn,1,3
src=rs("src")
delete_file(src)
rs.delete
rs.update
rs.close
set rs=nothing
case "pic"
set rs=server.createobject("adodb.recordset")
sql="select * from picvideo where id="&id
rs.open sql,conn,1,3
src=rs("upfile")
delete_file(src)
rs.delete
rs.update
rs.close
set rs=nothing
case "page"
set rs=server.createobject("adodb.recordset")
sql="select content from cont where id="&id
rs.open sql,conn,1,3
content=rs("content")
set re=new regexp
re.pattern="upload\/\d{17}.\w{3,4}"
re.global=true
re.ignoreCase=true
if re.Test(content) then
set matches=re.execute(content)
for each match in matches

filename=match.value
delete_file(filename)
'删除数据库中上传文件记录
'conn.execute ("delete from uploadfile where filename='"&filename&"'")
next
end if
set re=nothing
rs.delete
rs.update

rs.close
set rs=nothing
end select
conn.close
set conn=nothing
response.write("ok")
%>

  • 写回答

0条回答 默认 最新

    报告相同问题?

    悬赏问题

    • ¥15 visual studio2022中文乱码无法解决
    • ¥15 关于华为5g模块mh5000-31接线问题
    • ¥15 keil L6007U报错
    • ¥15 webapi 发布到iis后无法访问
    • ¥15 初学者如何快速上手学习stm32?
    • ¥15 如何自动更换布娃娃图片上的衣服
    • ¥15 心理学eprime编程
    • ¥15 arduino esp8266开发
    • ¥15 stm32单片机通过485发送命令给驱动器控制电机转动,同样的代码f103可以控制电机转动,换到f407不能动了,但是用串口助手调试407显示发送的命令都是正确的,卡了好久了这是发送规则
    • ¥15 stm32f103c8t6最小系统板+2.8寸TFTLCD板子