ad_savelinks.asp

来自「商品订单管理：商品分类管理 添加与修改商品 管理订单 投诉订单 反馈信息 商品留」· ASP 代码 · 共 42 行

<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
    response.redirect "ad_login.asp"
end if


dim action,linkid
linkid=request.QueryString("id")
action=request.QueryString("action")
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from ad",conn,1,3
rs.AddNew
rs("wordlink")=trim(request("wordlink"))
rs("url")=trim(request("url"))
rs("bs")=int(request("bs"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "ad_links.asp"
'----------------------------------------
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ad where id=" &linkid,conn,3,3
rs("wordlink")=request("wordlink")
rs("url")=trim(request("url"))
rs("bs")=int(request("bs"))
rs.update
rs.close
response.Redirect "ad_links.asp"
set rs=nothing
'--------------------------------

case "del"
conn.execute "delete from ad where id="&linkid
response.Redirect "ad_links.asp"

end select

%>