ad1.asp

来自「if you want it,call me.」· ASP 代码 · 共 51 行

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
dim action,id
action=request.querystring("action")
id=request.queryString("id")
select case action
'//添加
case "add" 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ad",conn,1,3
rs.AddNew
rs("pic")=trim(request("pic"))
rs("url")=trim(request("url"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "ads.asp"
'//修改
case "rename"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ad where id="&id,conn,1,3
rs("pic")=trim(request("pic"))
rs("url")=trim(request("url"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "ads.asp"
'//删除
case "del"
set rs=server.CreateObject("adodb.recordset")
sql=" select *from ad where id="&id
rs.open sql,conn,1,1
purl=rs("pic")
on error resume next
set fso=server.CreateObject("Scripting.FileSystemObject")  
fso.DeleteFile server.MapPath("../" & purl),true   
set fso=nothing
rs.close
set rs=nothing

conn.execute "delete from ad where id="&id
response.Redirect "ads.asp"
end select
%>