special_add_save.asp

千年免费电影系统 V3.1版 修正了V3.0版后台无法登陆的问题

<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->

<!--#include file="../checkpost.asp"-->
<!--#include file="inc/function.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<%
'on error resume next
 dim special
 dim name
 dim pic
 dim hits
 dim best
 dim special_intro
 dim name_intro
 special=trim(request("special"))
 name=trim(request("name"))
 pic=trim(request("pic"))
 hits=trim(request("hits"))
 best=trim(request("best"))
 special_intro=replace(request("special_intro"),"'","’")
 special_intro=replace(special_intro,">","＞")
 special_intro=replace(special_intro,"<","＜")
 special_intro=replace(special_intro,vbCrLf,"<br>")
 special_intro=replace(special_intro," ","&nbsp;")
 
 name_intro=replace(request("name_intro"),"'","’")
 name_intro=replace(name_intro,">","＞")
 name_intro=replace(name_intro,"<","＜")
 name_intro=replace(name_intro,vbCrLf,"<br>")
 name_intro=replace(name_intro," ","&nbsp;")

 set rs=server.createobject("adodb.recordset")
 sql="select * from special"
 rs.open sql,conn,3,3
 rs.addnew
 rs("special")=special
 rs("name")=name
 rs("pic")=pic
 rs("hits")=hits
 rs("best")=best
 rs("special_intro")=special_intro
 rs("name_intro")=name_intro
 rs("addtime")=now()
 rs.update
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 response.write"<script>alert('添加成功！');history.back();</Script>"
%>