<%
dim action,linkid
linkid=SafeRequest("id",1)
action=FormatSQL(SafeRequest("action",0))
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from imglinks",conn,1,3
rs.AddNew
rs("linkname")=trim(request.form("linkname1"))
rs("linkurl")=trim(request.form("linkurl1"))
rs("linkorder")=int(request.form("linkorder1"))
rs("linkimg")=trim(request.form("linkimg1"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "piclinks.asp"
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from imglinks where linkid="&linkid,conn,1,3
rs("linkname")=request.form("linkname")
rs("linkurl")=trim(request.form("linkurl"))
rs("linkorder")=int(request.form("linkorder"))
rs("linkimg")=trim(request.form("linkimg"))
rs.update
rs.close
response.Redirect "piclinks.asp"
set rs=nothing
case "del"
conn.execute "delete from imglinks where linkid="&linkid
response.Redirect "piclinks.asp"
end select
%>
ͼƬÁ¬½Ó
¹ÜÀíºÏ×÷»ï°é
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from imglinks order by linkorder",conn,1,1
dim i
i=rs.recordcount%>
ÍøÕ¾Ãû³Æ
ÍøÕ¾µØÖ·
ͼƬµØÖ·
ÅÅ Ðò
²Ù ×÷
<%if rs.eof and rs.bof then
response.write "»¹Ã»ÓÐÊý¾Ý£¬ÇëÌí¼Ó£¡"
else
do while not rs.eof%>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>