📄 admin_articlesave.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=5
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inf/ubbcode.asp" -->
<!--#include file="admin_function.asp" -->
<%
dim title,updatetime,author,editor,copyfrom,bigclass,smallclass,special,textkey,urlto,content,includepic,defaultpic,uploadfiles
dim pagenos,ontop,elite,hot,textclass,hits,copyright,yescomment,passed,edittime,yes,ok,rs,ObjInstalled,adminname
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
title=trim(request.form("title"))
updatetime=trim(request.form("updatetime"))
author=trim(request.form("author"))
editor=trim(request.form("editor"))
copyfrom=trim(request.form("copyfrom"))
bigclass=trim(request.form("bigclass"))
smallclass=trim(request.form("smallclass"))
special=trim(request.form("special"))
textkey=trim(request.form("textkey"))
urlto=trim(request.form("urlto"))
content=trim(request.form("content"))
includepic=trim(request.form("includepic"))
defaultpic=trim(request.form("defaultpic"))
UploadFiles=trim(request.form("UploadFiles"))
pagenos=trim(request.form("pageno"))
ontop=trim(request.form("ontop"))
elite=trim(request.form("elite"))
hot=trim(request.form("hot"))
textclass=trim(request.form("textclass"))
hits=trim(request.form("hits"))
copyright=trim(request.form("copyright"))
yescomment=trim(request.form("yescomment"))
passed=trim(request.form("passed"))
edittime=trim(request.form("edittime"))
set rs=server.createobject("ADODB.recordset")
rs.open "select * from article where title='"&title&"'",conn,1,3
if rs.bof or rs.eof then
rs.addnew
rs("title")=title
rs("updatetime")=updatetime
rs("author")=author
rs("editor")=editor
rs("copyfrom")=copyfrom
rs("bigclass")=bigclass
rs("smallclass")=smallclass
rs("special")=special
rs("textkey")=textkey
rs("urlto")=urlto
rs("content")=ubbcode(content)
if includepic="yes" then
rs("includepic")=true
else
rs("includepic")=false
end if
rs("defaultpic")=defaultpic
if ObjInstalled=True and uploadfiles<>"" then
dim fso,strRubbishFile
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if instr(uploadfiles,"|")>1 then
dim arrUploadFiles,intTemp
arrUploadFiles=split(uploadfiles,"|")
uploadfiles=""
for intTemp=0 to ubound(arrUploadFiles)
if instr(Content,arrUploadFiles(intTemp))<=0 and arrUploadFiles(intTemp)<>defaultpic then
strRubbishFile=server.MapPath("../" & arrUploadFiles(intTemp))
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
response.write "<br><li>" & arrUploadFiles(intTemp) & "?ú?????D??óDó?μ?￡?ò2??óD±?éè?aê×ò3í???￡??ùò?ò??-±?é?3y￡?</li>"
end if
else
if intTemp=0 then
uploadfiles=arrUploadFiles(intTemp)
else
uploadfiles=uploadfiles & "|" & arrUploadFiles(intTemp)
end if
end if
next
else
if instr(Content,UploadFiles)<=0 and uploadfiles<>defaultpic then
strRubbishFile=server.MapPath("../" & uploadfiles)
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
response.write "<br><li>" & uploadfiles & "?ú?????D??óDó?μ?￡?ò2??óD±?éè?aê×ò3í???￡??ùò?ò??-±?é?3y￡?</li>"
end if
uploadfiles=""
end if
end if
set fso=nothing
end If
rs("uploadfiles")=uploadfiles
rs("pageno")=pagenos
if ontop="1" then
rs("ontop")=1
else
rs("ontop")=0
end if
if elite="2" then
rs("elite")=2
else
rs("elite")=0
end if
if hot="3" then
rs("hot")=3
else
rs("hot")=0
end if
rs("textclass")=textclass
rs("hits")=hits
rs("copyright")=copyright
if yescomment="yes" then
rs("yescomment")=true
else
rs("yescomment")=false
end if
if passed="ok" then
rs("passed")=true
else
rs("passed")=false
end if
rs("edittime")=edittime
rs.update
adminname=session("adminname")
dim rsarticle,article
set rsarticle=conn.execute("select article from admin where adminname='"&adminname&"'")
article=rsarticle("article")+1
conn.execute"update admin set article="&article&" where adminname='"&adminname&"'"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加成功</title>
<link href="Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td align="center" class="txt1">文章添加成功</td>
</tr>
<tr>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="txt03">文章标题：<font class="txt05"><%=rs("title")%></font></td>
</tr>
<tr>
<td class="txt03">文章作者：<font class="txt05"><%=rs("author")%></font> 文章编辑：<font class="txt05"><%=rs("editor")%></font> 文章来源：<font class="txt05"><%=rs("copyfrom")%></font></td>
</tr>
<tr>
<td class="txt03">所属大类：<font class="txt05"><%=rs("bigclass")%></font> 所属小类：<font class="txt05"><%=rs("smallclass")%></font> 所属专题：<font class="txt05"><%=rs("special")%></font></td>
</tr>
<tr>
<td class="txt03">是否包含图片：<font class="txt05">
<%if rs("includepic")=true then%>
是
<%else%>
没有图片
<%end if%>
</font></td>
</tr>
<tr>
<td class="txt03">分页方式：<%select case rs("pageno")
case 1
response.write"不分页"
case 2
response.write"自动分页"
case 3
response.write"手动分页"
end select
%></td>
</tr>
<tr>
<td class="txt03">文章属性：<font class="txt05">
<%if rs("ontop")=1 then%>
固顶
<%end if%>
<%if rs("elite")=2 then%>
推荐
<%end if%>
<%if rs("hot")=3 then%>
精华
<%end if%>
</font></td>
</tr>
<tr>
<td class="txt03">文章级别：<font class="txt05">
<%select case rs("textclass")
case "0"
response.write"一般游客"
case "1"
response.write"注册用户"
case "2"
response.write"普通会员"
case "3"
response.write"中级会员"
case "4"
response.write"高级会员"
case "5"
response.write"特级会员"
end select
%>
</font></td>
</tr>
<tr>
<td class="txt03">文章版权：<%=rs("copyright")%></td>
</tr>
<tr>
<td class="txt03">是否允许评论：<span class="txt05"><%if rs("yescomment")=true then%>允许评论<%else%>不允许评论<%end if%></span></td>
</tr>
<tr>
<td class="txt03">是否通过审核：<font class="txt05">
<%if rs("passed")=true then%>
已审核
<%else%>
未审核
<%end if%>
</font></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" class="txt1">［<a href="admin_ArticleAdd.asp">继续添加</a>］［<a href="admin_ArticleRead.asp?articleid=<%=rs("articleid")%>" target="_blank">预览文章</a>］［<a href="admin_ArticlePas.asp">审核文章面板</a>］［<a href="admin_ArticleMan.asp">管理文章面板</a>］</td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
call closeconn()
else
dim errmsg
errmsg=errmsg + "<br><li>文章已存在，添加失败！</li>"
errmsg=errmsg + "<br><li>［<a href='admin_ArticleAdd.asp'>继续添加</a>］［<a href='admin_ArticleMan.asp'>返回广告管理面板</a>］</li>"
rs.close
set rs=nothing
call closeconn()
call showerrmsg()
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -