newseditok01.asp

学校网站

<!--#include file=conn.asp -->
<!--#include file=../include/config.asp -->
<!--#include file=chkuser.asp -->
<%
NewsID=Request.QueryString("NewsID")

title=trim(request.form("title"))
if Title="" then
%>
<script language=javascript>
history.back()
alert("请填写文章标题！")
</script>
<%
Response.End
end if
if request.cookies("key")="super" then
if request("viewhtml")<>"" then 
%>
<script language=javascript>
history.back()
alert("请取消查看HTML源代码后再添加！")
</script>
<%
Response.End
end if
end if
	
Author=replace(trim(Request.Form("Author")),"'","''")
Original=replace(trim(Request.Form("Original")),"'","''")
about=replace(trim(Request.Form("about")),"'","''")
aaas1=Request.ServerVariables("SERVER_NAME")
aaas2=Request.ServerVariables("URL")
aaas2=replace(aaas2,"admin/newseditok.asp","")
Dim strData
Dim intFieldCount
Dim i

intFieldCount = Request.Form("hdnCount")

For i=1 To intFieldCount
content = content & Request.Form("hdnBigfield" & i)
Next
content=replace(content,"http://"&xpurl&"/uploadfile/","uploadfile/")
content=replace(content,"http://"&aaas1&aaas2&"uploadfile/","uploadfile/")
if Content="" then
%>
<script language=javascript>
history.back()
alert("请输入文章内容！")
</script>
<%
Response.End
end if

if request.Form("goodnews")="1" then
goodnews=1
else
goodnews=0
end if

if request.Form("PicUrl")="" then
picnews=0
else
picnews=1
end if

if request.Form("istop")="1" then
istop=1
else
istop=0
end if

PicUrl=Request.Form("PicUrl")
checkked=request.form("checkked")
SpecialID=Request.Form("SpecialID")
SpecialID2=Request.Form("SpecialID2")
EnCode=trim(Request.Form("EnCode"))
newslevel=Request.Form("newslevel")
title_color=Request.Form("title_color")
title_type=Request.Form("title_type")

set rs=server.createobject("adodb.recordset")
sql="select * from news where NewsID=" & NewsID
rs.open sql,conn,3,3

rs("title")=title
rs("Author")=Author
rs("content")=content
rs("Original")=Original
rs("goodnews")=goodnews
rs("istop")=istop
rs("picnews")=picnews
rs("checkked")=checkked
rs("SpecialID")=SpecialID
rs("SpecialID2")=SpecialID2
rs("EnCode")=EnCode
if newslevel="" then
rs("newslevel")=0
else
rs("newslevel")=newslevel
end if
rs("about")=about
rs("picname")=PicUrl
'rs("UpdateTime")=now()
dim bigclassid,smallclassid
bigclassid=rs("bigclassid")
smallclassid=rs("smallclassid")
if title_type="" or title_type="0" then
rs("titletype")="l"
else
rs("titletype")=title_type
end if
rs("titlecolor")=title_color
rs.update
rs.Close
set rs=nothing
set rs3=server.createobject("adodb.recordset")
    sql3="select * from uploadpic where username='"&request.cookies("username")&"'" 
    rs3.open sql3,conn,1,3
    do while not rs3.eof
    set rs4=server.createobject("adodb.recordset")
           sql4="select * from attach" 
           rs4.open sql4,conn,1,3
           filename=rs3("picname")
           rs4.addnew
           rs4("filename")=filename
           rs4("newsid")=newsid
           rs4.update
           rs4.close
           set rs4=nothing
           RS3.MoveNext
           loop
           conn.execute("delete from uploadpic where username='"&request.cookies("username")&"'")
           rs3.close
           set rs3=nothing
conn.close
set conn=nothing
response.write "<p align=center><font color=red>恭喜您，文章“"&title&"”已经成功修改!<br>"&freetime&"秒钟后返回上页!</font>"
if smallclassid<>"" then
response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=listnews.asp?smallclassid="&smallclassid&""">"
else
response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=smallno01.asp?bigclassid="&bigclassid&""">"
end if
%>