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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 家庭/个人应用 > 查看源码
special_add_save.asp
资源名称：qnmov30.rar　[点击查看]
上传用户：qyswxdl
上传日期：2013-06-01
资源大小：1373k
文件大小：1k
源码类别：

家庭/个人应用

开发平台：

ASP/ASPX

special_add_save.asp：源码内容
  2. <!--#include file="articleconn.asp"-->
  3. <!--#include file="security.asp"-->
  5. <!--#include file="../checkpost.asp"-->
  6. <!--#include file="inc/function.asp"-->
  7. <%if session("flag")>1 then
  8.     response.write "<script>alert('您的操作权限不够！');history.back();</script>"
  9.     response.end
  10. end if
  11. %>
  12. <%
  13. 'on error resume next
  14.  dim special
  15.  dim name
  16.  dim pic
  17.  dim hits
  18.  dim best
  19.  dim special_intro
  20.  dim name_intro
  21.  special=trim(request("special"))
  22.  name=trim(request("name"))
  23.  pic=trim(request("pic"))
  24.  hits=trim(request("hits"))
  25.  best=trim(request("best"))
  26.  special_intro=replace(request("special_intro"),"'","’")
  27.  special_intro=replace(special_intro,">","＞")
  28.  special_intro=replace(special_intro,"<","＜")
  29.  special_intro=replace(special_intro,vbCrLf,"<br>")
  30.  special_intro=replace(special_intro," ","&nbsp;")
  31.  
  32.  name_intro=replace(request("name_intro"),"'","’")
  33.  name_intro=replace(name_intro,">","＞")
  34.  name_intro=replace(name_intro,"<","＜")
  35.  name_intro=replace(name_intro,vbCrLf,"<br>")
  36.  name_intro=replace(name_intro," ","&nbsp;")
  38.  set rs=server.createobject("adodb.recordset")
  39.  sql="select * from special"
  40.  rs.open sql,conn,3,3
  41.  rs.addnew
  42.  rs("special")=special
  43.  rs("name")=name
  44.  rs("pic")=pic
  45.  rs("hits")=hits
  46.  rs("best")=best
  47.  rs("special_intro")=special_intro
  48.  rs("name_intro")=name_intro
  49.  rs("addtime")=now()
  50.  rs.update
  51.  rs.close
  52.  set rs=nothing
  53.  conn.close
  54.  set conn=nothing
  55.  response.write"<script>alert('添加成功！');history.back();</Script>"
  56. %>