save.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<!--#include file="../inc/category.asp"-->
<!--#include file="category.asp"-->
<!--#include file="path.asp"-->
<%
if Session("filenum")="" then
  call msgbox("请重新录入",1)
end if
id	= CCur(Session("filenum"))

title	= strFilter(request("title"),100)
Session("title")	= title

content	= request("SaveContent")
content	= replace(content,vbcrlf,"[BR]")
Session("content")	= content

Session("subjectid")	= ""
Session("subjectname")	= ""
subject	= strFilter(request("subject"),20)
if subject><"" then
  if isnumeric(subject) then
    sql="select top 1 categoryname from category where categoryid="&subject
    rs.open sql,conn,1,1
    if not rs.eof then
      Session("subjectid")	=CCur(subject)
      Session("subjectname")	=rs(0)
      subjectname=CCur(subject)&"."&rs(0)&"."
    end if
    rs.close
  end if
end if

skey	= strFilter(request("skey"),20)
Session("skey")		= skey

author	= strFilter(request("author"),20)
Session("author")	= author

source	= strFilter(request("source"),200)
Session("source")	= source

otime	= strFilter(request("otime"),20)
Session("otime")	= otime

cs	= GetLength(content)
if title="" then call msgbox("主题不能为空！","../news/add.asp?categoryid="&categoryid)
if cs<10 then call msgbox("新闻内容不能过少！","../news/add.asp?categoryid="&categoryid)

action	= "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
action	= replace(action,"news/save.asp","")
content	= replace(content,action,"")

sql="select top 1 * from news"
rs.open sql,conn,1,3
rs.addnew
rs("id")	= Session("filenum")
rs("categoryid")= "."&categoryid&"."&cname&"."&subjectname
rs("title")	= title
rs("content")	= content
rs("path")	= Session("filepath")
rs("pic")	= Session("photoup")
if Session("skey")><"" then
  rs("skey")	= Session("skey")
end if
if Session("author")><"" then
  rs("author")	= Session("author")
end if
if Session("source")><"" then
  rs("source")	= Session("source")
end if
rs("csize")	= cs
rs("otime")	= Session("otime")
rs.update
rs.close

Session("photodata")	=""
Session("editfilenum")	=""
Session("filenum")	=""
Session("title")	=""
Session("content")	=""
Session("author")	=""
Session("source")	=""
Session("skey")		=""
Session("otime")	=""

if csave=true then%>
<!--#include file="html.asp"-->
<%else
  call msgbox("新闻添加成功！\n\n主题：\n"& title &"\n\n显示：\nhttp://" & Request.ServerVariables("HTTP_HOST")&"/"&newsdir&"/news.asp?id="&id&"\n\n","chg.asp?id="&id)
end if
%>