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

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

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

开发平台：

HTML/CSS

Deal_bbs.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"-->
  7. <%
  8. if request("action")="add" then
  9. name=Checkin(trim(Request.form("mingcheng")))
  10.     If name="" Then
  11.     Response.Write "<script>alert(""分类名称不能为空!"");location.href=""javascript:history.back()"";</script>"
  12.     Response.end()
  13.     end if
  14.     set rs=server.createobject("adodb.recordset")
  15.     sql="select * from ku_bbskind where name='"&name&"'"
  16.     rs.open sql,conn,1,3
  17.     if (rs.eof and rs.bof) then
  18.     rs.addnew
  20.     rs("name")=name
  22.     rs.update
  23.     rs.close
  24.     response.Write("<script>alert(""添加成功！"");location.href=""bbs_kind.asp"";</script>")
  25.     else
  26.     response.Write("<script>alert(""分类已存在！"");location.href=""bbs_kind.asp"";</script>")
  27.     end if
  28.     end if 
  30. %>
  31. <%
  32. if request("action")="edit" then
  33. name=Checkin(trim(Request.form("mingcheng")))
  34. id=request("id")
  35.     If name="" Then
  36.     Response.Write "<script>alert(""分类名称不能为空!"");location.href=""javascript:history.back()"";</script>"
  37.     Response.end()
  38.     end if
  39.     set rs=server.createobject("adodb.recordset")
  40.     sql="select * from ku_bbskind where id="&id
  41.     rs.open sql,conn,1,3
  42.     
  45.     rs("name")=name
  47.     rs.update
  48.     rs.close
  49.     response.Write("<script>alert(""修改成功！"");location.href=""BBs_kind.asp"";</script>")
  52.     end if 
  54. %>