savelinks.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="conn.asp"-->
<%
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 56770_huoban", conn, 1, 3
rs.AddNew
rs("wordlink")=trim(request("wordlink"))
rs("url")=trim(request("url"))
rs("logo")=trim(request("logo"))
rs("bs")=int(request("bs"))
xs=rs("xs")
if xs="on" then conn.execute "update 56770_huoban set xs=true where id="&linkid
        rs.Update
rs.Close
set rs=nothing
response.Redirect "admin_links.asp"
response.end
'----------------------------------------
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_huoban where id=" &linkid, conn, 3, 3
rs("wordlink")=request("wordlink")
rs("url")=trim(request("url"))
rs("logo")=trim(request("logo"))
rs("bs")=int(request("bs"))
xs=request("xs")
if xs="on" then
        conn.execute "update 56770_huoban set xs=true where id=" &linkid
else
        conn.execute "update 56770_huoban set xs=false where id=" &linkid
end if
rs.update
rs.close
response.Redirect "admin_links.asp"
response.end
set rs=nothing
'--------------------------------
case "del"
conn.execute "delete from 56770_huoban where id="&linkid
response.Redirect "admin_links.asp"
response
end select
%>