newsadd3.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

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

<%newsid=request.form("newsid")
picname=request.form("picname")
if picname="" then
response.write "<script>alert('对不起，请您选择一张图片！');history.go(-1);</Script>"
Response.End 
end if
SmallClassid=Request.Form("SmallClassid")
bigClassid=Request.Form("bigClassid")

set rs=server.createobject("adodb.recordset")
sql="select * from news where newsid="&newsid 
rs.open sql,conn,1,3
rs("picname")=picname
title=rs("title")
rs.update
rs.Close
set rs=nothing
conn.execute("delete from uploadpic where username='"&request.cookies("username")&"'")
conn.close
set conn=nothing

Response.cookies("filename")=""

if image=0 then
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=smallno.asp?bigclassid="&bigclassid&""">"
end if
else
if upload=1 then
Response.Redirect "newsuploadimage.asp?newsid=" &newsid
else
Response.Redirect "newsuploadfile.asp?newsid=" &newsid
end if
end if
%>