linkdo.asp

客户管理系统使用ASP.NET和Access

<!--#include file="conn.asp"-->
<!--#include file="islogin.asp"-->

<%if request("action")="save" then
namew=request("name")
www=request("www")
if namew="" or www="" then
response.Write("网址不能为空")
response.End()
else
  set rs=server.createobject("adodb.recordset")
  sql="select * from Link where (id is null)" 
  rs.open sql,conn,1,3
  rs.addnew
  rs("name")=namew
  rs("www")=www
  rs("n")=1
  rs.update
  rs.close
  set rs=nothing
 response.Write("<script>opener.location.reload()</script>")
 response.Write("<script>javascript:window.close()</script>")
end if
end if
%>


<%if request("action")="del" then
sql="delete from link where id="&request("id")&""
conn.execute(sql)
conn.close
set conn=nothing
response.redirect "Link.asp"
end if
%>