开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Deal_link.asp
资源名称：pinke2010.rar　[点击查看]
上传用户：pengwei803
上传日期：2021-02-10
资源大小：3311k
文件大小：2k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

Deal_link.asp：源码内容
  1. <!--#include file="../Ku_inc/Ku_sql.asp"-->
  2. <!--#include file="../Ku_inc/Ku_config.asp"-->
  3. <!--#include file="Ku_conn.asp"-->
  4. <!--#include file="../Ku_inc/inc.asp"-->
  5. <!-- #include file="Session.asp"-->
  6. <%
  7. if request("action")="add" then
  8. name=Checkin(trim(Request.form("name")))
  9.     If name="" Then
  10.     Response.Write "<script>alert(""网站名称不能为空!"");location.href=""javascript:history.back()"";</script>"
  11.     Response.end()
  12.     end if
  13.     set rs=server.createobject("adodb.recordset")
  14.     sql="select * from ku_link where name='"&name&"'"
  15.     rs.open sql,conn,1,3
  16.     if (rs.eof and rs.bof) then
  17.     rs.addnew
  19.     rs("name")=name
  20.     rs("url")=request("url")
  21.     rs("logo")=request("logo")
  22.     if request("biaoji")<>"" then
  23.     rs("biaoji")=1
  24.     end if
  25.     
  26.     if request("logo")<>"" then
  27.     rs("yeslogo")=1
  28.     end if
  29.     rs("shenhe")=1
  30.     rs("addtime")=now()
  31.     rs.update
  32.     rs.close
  33.     response.Write("<script>alert(""添加成功！"");location.href=""ku_link.asp"";</script>")
  34.     else
  35.     response.Write("<script>alert(""网站已存在！"");location.href=""ku_link.asp"";</script>")
  36.     end if
  37.     end if 
  39. %>
  40. <%
  41. if request("action")="shenhe" then
  43. id=request("id")
  45.     set rs=server.createobject("adodb.recordset")
  46.     sql="select * from ku_link where id="&id
  47.     rs.open sql,conn,1,3
  49.     rs("shenhe")=1
  51.     rs.update
  52.     rs.close
  53.     response.Write("<script>alert(""审核成功！"");location.href=""ku_link.asp"";</script>")
  56.     end if 
  58. %>
  59. <%
  60. if request("action")="edit" then
  61. name=Checkin(trim(Request.form("name")))
  62. id=request("id")
  63.     If name="" Then
  64.     Response.Write "<script>alert(""网站名称不能为空!"");location.href=""javascript:history.back()"";</script>"
  65.     Response.end()
  66.     end if
  67.     set rs=server.createobject("adodb.recordset")
  68.     sql="select * from ku_link where id="&id
  69.     rs.open sql,conn,1,3
  70.     
  72.     if request("biaoji")<>"" then
  73.     rs("biaoji")=1
  74.     end if
  75.     rs("name")=name
  76.     rs("url")=request("url")
  77.     rs("logo")=request("logo")
  78.     if request("logo")<>"" then
  79.     rs("yeslogo")=1
  80.     end if
  81.     rs("shenhe")=1
  82.     rs("addtime")=now()
  83.     rs.update
  84.     rs.close
  85.     response.Write("<script>alert(""修改成功！"");location.href=""ku_link.asp"";</script>")
  88.     end if 
  90. %>