savelinks.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
    response.redirect "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 "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 "links.asp"
set rs=nothing
'--------------------------------

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

end select

%>