zy221021 2019-04-13 23:42
浏览 115

求助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 请问下这个红框里面是什么文档或者记事本编辑器
    • ¥15 机器学习教材中的例题询问
    • ¥15 求.net core 几款免费的pdf编辑器
    • ¥15 为什么安装HCL 和virtualbox之后没有找到VirtualBoxHost-OnlyNetWork?
    • ¥15 C# P/Invoke的效率问题
    • ¥20 thinkphp适配人大金仓问题
    • ¥20 Oracle替换.dbf文件后无法连接,如何解决?(相关搜索:数据库|死循环)
    • ¥15 数据库数据成问号了,前台查询正常,数据库查询是?号
    • ¥15 算法使用了tf-idf,用手肘图确定k值确定不了,第四轮廓系数又太小才有0.006088746097507285,如何解决?(相关搜索:数据处理)
    • ¥15 彩灯控制电路,会的加我QQ1482956179