admin_link_edit.asp

JSP ACCESS版的论坛源码 深圳盈盈通

<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/char.asp"-->
<%
if request("action") = "add" then
%>
<%
if Request("url")<>"" and Request("readme")<>"" and request("name")<>"" then
set rs = server.CreateObject ("Adodb.Recordset")
sql = "select * from bbslink"
rs.Open sql,conn,1,3
rs.AddNew 
rs("boardname") = Trim(Request.Form ("name"))
rs("readme") =  Trim(Request.Form ("readme"))
rs("url") = Request.Form ("url")
rs.Update 
rs.Close
set conn=nothing
end if
end if
%>
<%
if request("action") = "del" then
%>
<%
id = request("id")
set rs = server.CreateObject ("Adodb.Recordset")
sql = "select * from bbslink where id="+id
rs.Open sql,conn,1,3
rs.delete
rs.Close
set conn=nothing
end if
%>
<%
if request("action") = "edit" then
%>
<%

set rs = server.CreateObject ("Adodb.Recordset")
sql = "select * from [bbslink] where id="+Cstr(request("id"))
rs.Open sql,conn,1,3
rs("boardname") = Trim(Request.Form ("name1"))
rs("readme") =  Trim(Request.Form ("readme1"))
rs("url") = Request.Form ("url1")
rs.Update 
rs.Close
set conn=nothing
end if
%>
<%
Response.Redirect "admin_link.asp"
%>