newsadd2.asp

ASP+SQL2000+

<!--#include file=conn.asp -->
<!--#include file=../include/config.asp -->
<!--#include file=chkuser.asp -->

<%
aaas1=Request.ServerVariables("SERVER_NAME")
aaas2=Request.ServerVariables("URL")
aaas2=replace(aaas2,"admin/newsadd2.asp","")
Content=Request.Form("Content")
content=replace(content,"http://"&xpurl&"/uploadfile/","uploadfile/")
content=replace(content,"http://"&aaas1&aaas2&"uploadfile/","uploadfile/")
Response.cookies("content")=content
if Content="" 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
SmallClassid=Request.Form("SmallClassid")
bigClassid=Request.Form("bigClassid")
typeid=Request.Form("typeid")
title=trim(request.form("title"))

if title="" then
%>
<script language=javascript>
history.back()
alert("请填写文章标题！")
</script>
<%
Response.End
end if

if len(title)>100 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

SpecialID=Request.Form("SpecialID")
SpecialID2=Request.Form("SpecialID2")
Author=replace(trim(Request.Form("Author")),"'","''")
Original=replace(trim(Request.Form("Original")),"'","''")
about=Request.Form("about")
PicUrl=Request.Form("PicUrl")
editor=request.form("editor")
checkked=request.form("checkked")
EnCode=Request.Form("EnCode")
newsrelated=Request.Form("newsrelated")
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" 
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("Author")=Author
rs("content")=content
rs("Original")=Original
rs("goodnews")=goodnews
rs("picnews")=picnews
if newslevel="" then
rs("newslevel")=0
else
rs("newslevel")=newslevel
end if
rs("istop")=istop
rs("editor")=editor
rs("checkked")=checkked
rs("BigClassid")=BigClassid
rs("SmallClassid")=SmallClassid
rs("SpecialID")=SpecialID
rs("SpecialID2")=SpecialID2
rs("EnCode")=EnCode
rs("newsrelated")=newsrelated
rs("about")=about
rs("picname")=PicUrl
if title_type="" or title_type="0" then
rs("titletype")="l"
else
rs("titletype")=title_type
end if
rs("titlecolor")=title_color
rs("typeid")=typeid
rs("UpdateTime")=now()
rs.update
newsid=rs("newsid")
dim username
username=request.cookies("username")
set rs2=server.createobject("adodb.recordset")
sql2="select * from admin where username='"&username&"'"
rs2.open sql2,conn,1,3
rs2("number")=rs2("number")+1
rs2.update
rs2.close
set rs2=nothing

rs.Close
set rs1=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
Response.cookies("content")=""
Response.cookies("newsrelated")=""
response.write "<p align=center><font color=red>恭喜您，文章“"&title&"”已经成功添加!<br>"&freetime&"秒钟后返回上页!</font>"
if request.cookies("key")="typemaster" or request.cookies("key")="bigmaster" or request.cookies("key")="smallmaster" then

response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=typemanage.asp"">"
else
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=smallno.asp?bigclassid="&bigclassid&""">"
end if
end if
%>