📄 savenews.asp
字号:
<%OPTION EXPLICIT%>
<%dim conn,DBpath,oabusyname,oabusyusername,oabusyuserdept,oabusyuserlevel,rs,newsconn,newsstatus,auditer,title,content,ntime,topic,keys,nochange,nfrom,writer,modify,hit,action%>
<!--#INCLUDE FILE="../upclass.asp"-->
<!--#include file="../opendb.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../asp/funct.asp"-->
<!--#include file="../asp/bgsub.asp"-->
<!--#include file="../asp/sqlstr.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,submit,i,sql,newsid,page,typeid
set upfile=new upfile_class ''建立上传对象
upfile.AllowExt="jpg;jpeg;gif;bmp;" '设置上传类型的白名单
upfile.GetData (10240000) '取得上传数据,限制最大上传1M
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title><%=session("xxglxxmc")%>智能办公系统</title>
</head>
<body bgcolor="#eeeeee" topmargin="5" leftmargin="5">
<%
call bghead()
%>
<center>
<b>发布新闻</b> "<font color=red>*</font>"号的表示必须填写
</center>
<%
call bgmid()
%>
<center>
<%
set rs=server.createobject("adodb.recordset") '查找审核员权限,新闻默认状态
rs.open "select * from news_parameter where parameterid=1",newsconn,1,1
if not rs.bof and not rs.eof then
if rs("newsstatus")=1 then
newsstatus=1
else
newsstatus=0
end if
if rs("auditer")=1 then
auditer=1
else
auditer=0
end if
else
auditer=0
newsstatus=0
end if
rs.close
set rs=nothing
topic=sqlstr(upfile.form("topic"))
keys=sqlstr(upfile.form("keys"))
content=sqlstr(upfile.form("content"))
ntime=sqlstr(upfile.form("ntime"))
nochange=sqlstr(upfile.form("nochange"))
nfrom=sqlstr(upfile.form("nfrom"))
writer=sqlstr(upfile.form("writer"))
action=sqlstr(upfile.form("action"))
newsid=sqlstr(upfile.form("newsid"))
typeid=sqlstr(upfile.form("typeid"))
page=sqlstr(upfile.form("page"))
if topic="" or keys="" or content="" then
response.write "错误!!带<font color=red>*</font>号的为必填项! <a href='javascript:history.go(-1)'>返回</a>"
response.end
end if
hit=0
modify=request.cookies("oabusyusername")
if action="modify" then '*****************************修改新闻******************************
set rs=server.createobject("ADODB.recordset")
rs.Open "SELECT * from news Where newsid=" & newsid,newsconn,1,3
if ntime="" then
response.write "错误!!时间不能为空!!! <a href='javascript:history.go(-1)'>返回</a>"
response.end
end if
if cstr(rs("imgsize"))<>0 then
if nochange<>1 then
for each formName in upfile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
if upfile.isAllowExt(oFile.FileExt) then
rs("img")=upfile.FileData(formname)
rs("imgsize")=oFile.FileSize
else
rs("imgsize")=0
end if
set oFile=nothing
next
end if
else
for each formName in upfile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
if upfile.isAllowExt(oFile.FileExt) then
rs("img")=upfile.FileData(formname)
rs("imgsize")=oFile.FileSize
else
rs("imgsize")=0
end if
set oFile=nothing
next
end if
rs("topic")=topic
rs("content")=content
rs("ntime")=ntime
rs("keys")=keys
rs("nfrom")=nfrom
rs("audit")=1
rs("writer")=writer
rs("modify")=modify
rs("auditer")=request.cookies("oabusyusername")
rs.update
rs.close
set rs=nothing
response.redirect "newsmanage.asp?newsid=" & newsid & "&page=" & page
end if
if action="add" then '*****************************添加新新闻******************************
set rs=server.createobject("ADODB.recordset")
rs.Open "SELECT * from news",newsconn,1,3
rs.addnew
for each formName in upfile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
if upfile.isAllowExt(oFile.FileExt) then
rs("img")=upfile.FileData(formname)
rs("imgsize")=oFile.FileSize
else
rs("imgsize")=0
end if
set oFile=nothing
next
rs("topic")=topic
rs("content")=content
rs("keys")=keys
rs("audit")=1
rs("writer")=writer
rs("modify")=modify
rs("hits")=0
rs("auditer")=request.cookies("oabusyusername")
rs.update
set rs=nothing
response.redirect "newsmanage.asp?newsid=" & newsid
end if
%>
</center>
<%
call bgback()
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -