📄 admin_articlesave.asp
字号:
else
if rs("Passed")=False and Passed="yes" then
Conn_User.execute("update " & db_User_Table & " set " & db_User_ArticleChecked & "=" & db_User_ArticleChecked & "+1 where " & db_User_Name & "='" & rs("Editor") & "'")
end if
if rs("Passed")=True and Passed<>"yes" then
Conn_User.execute("update " & db_User_Table & " set " & db_User_ArticleChecked & "=" & db_User_ArticleChecked & "-1 where " & db_User_Name & "='" & rs("Editor") & "'")
end if
call SaveData()
rs.update
rs.close
end if
end if
else
FoundErr=True
ErrMsg="<br><li>参数错误!</li>"
end if
set rs=nothing
end sub
sub SaveData()
rs("ClassID")=ClassID
rs("SpecialID")=SpecialID
rs("Title")=Title
rs("TitleFontColor")=TitleFontColor
rs("TitleFontType")=TitleFontType
rs("Content")=Content
rs("Key")=Key
rs("Hits")=Hits
rs("Author")=Author
rs("CopyFrom")=CopyFrom
if IncludePic="yes" then
rs("IncludePic")=True
else
rs("IncludePic")=False
end if
if Passed="yes" then
rs("Passed")=True
else
if EnableArticleCheck="No" then
rs("Passed")=True
else
rs("Passed")=False
end if
end if
if OnTop="yes" then
rs("OnTop")=True
else
rs("OnTop")=False
end if
if Hot="yes" then
rs("Hot")=True
else
rs("Hot")=False
end if
if Elite="yes" then
rs("Elite")=True
else
rs("Elite")=False
end if
rs("Stars")=Stars
rs("UpdateTime")=UpdateTime
rs("PaginationType")=PaginationType
rs("MaxCharPerPage")=MaxCharPerPage
rs("ReadLevel")=ReadLevel
rs("ReadPoint")=ReadPoint
rs("SkinID")=SkinID
rs("LayoutID")=LayoutID
'***************************************
'删除无用的上传文件
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)<>DefaultPicUrl then
strRubbishFile=server.MapPath("" & arrUploadFiles(intTemp))
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
response.write "<br><li>" & arrUploadFiles(intTemp) & "在文章中没有用到，也没有被设为首页图片，所以已经被删除！</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<>DefaultPicUrl then
strRubbishFile=server.MapPath("" & UploadFiles)
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
response.write "<br><li>" & UploadFiles & "在文章中没有用到，也没有被设为首页图片，所以已经被删除！</li>"
end if
UploadFiles=""
end if
end if
set fso=nothing
end If
'结束
'***************************************
rs("DefaultPicUrl")=DefaultPicUrl
rs("UploadFiles")=UploadFiles
end sub
sub SaveSuccess()
%>
<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<br><br>
<table class="border" align=center width="400" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr align=center>
<td height="22" align="center" class="title"><b>
<%if action="Add1" or Action="Add2" then%>
添加
<%else%>
修改
<%end if%>
文章成功</b></td>
</tr>
<%if Passed<>"yes" then%>
<tr class="tdbg">
<td height="60"><font color="#0000FF">注意：</font><br>
你的文章尚未真正发表！只有等管理员审核并通过了你的文章后，你所添加的文章才会发表。</td>
</tr>
<%end if%>
<tr>
<td><table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr class="tdbg">
<td width="100" align="right"><strong>所属栏目：</strong></td>
<td><%call Admin_ShowPath2(ParentPath,ClassName,Depth)%></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>文章标题：</strong></td>
<td><%= Title %></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>作 者：</strong></td>
<td><%= Author %></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>转 贴 自：</strong></td>
<td><%= CopyFrom %></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>关 键 字：</strong></td>
<td><%= mid(Key,2,len(Key)-2) %></td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td height="30" align="center">【<a href="Admin_ArticleModify.asp?ArticleID=<%=ArticleID%>">修改本文</a>】 【<a href="<%if Action="Add1" then%>Admin_ArticleAdd1.asp<%else%>Admin_ArticleAdd2.asp<%end if%>">继续添加文章</a>】 【<a href="Admin_ArticleManage.asp">文章管理</a>】 【<a href="Admin_ArticleShow.asp?ArticleID=<%=ArticleID%>">预览文章内容</a>】</td>
</tr>
</table>
</body>
</html>
<%
session("ClassID_Article")=ClassID
session("SpecialID_Article")=SpecialID
session("Key")=trim(request("Key"))
session("Author")=Author
session("AuthorName")=AuthorName
session("AuthorEmail")=AuthorEmail
session("CopyFrom")=CopyFrom
session("CopyFromName")=CopyFromName
session("CopyFromUrl")=CopyFromUrl
session("PaginationType")=PaginationType
session("ReadLevel")=ReadLevel
session("ReadPoint")=ReadPoint
session("SkinID")=SkinID
session("LayoutID")=LayoutID
end sub
'==================================================
'过程名：ReplaceRemoteUrl
'作 用：替换字符串中的远程文件为本地文件并保存远程文件
'参 数：strContent ------ 要替换的字符串
'==================================================
function ReplaceRemoteUrl(strContent)
if IsObjInstalled("Microsoft.XMLHTTP")=False or EnableSaveRemote="No" then
ReplaceRemoteUrl=strContent
exit function
end if
dim re,RemoteFile,RemoteFileurl,SaveFilePath,SaveFileName,SaveFileType,arrSaveFileName,ranNum
SaveFilePath = "UploadFiles" '文件保存的本地路径
if right(SaveFilePath,1)<>"/" then SaveFilePath=SaveFilePath&"/"
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\){1}((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(\S*\/)((\S)+[.]{1}(gif|jpg|png|bmp)))"
Set RemoteFile = re.Execute(strContent)
For Each RemoteFileurl in RemoteFile
arrSaveFileName = split(RemoteFileurl,".")
SaveFileType=arrSaveFileName(ubound(arrSaveFileName))
ranNum=int(900*rnd)+100
SaveFileName = SaveFilePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&SaveFileType
call SaveRemoteFile(SaveFileName,RemoteFileurl)
strContent=Replace(strContent,RemoteFileurl,SaveFileName)
if UploadFiles="" then
UploadFiles=SaveFileName
else
UploadFiles=UploadFiles & "|" & SaveFileName
end if
Next
ReplaceRemoteUrl=strContent
end function
'==================================================
'过程名：SaveRemoteFile
'作 用：保存远程的文件到本地
'参 数：LocalFileName ------ 本地文件名
' RemoteFileUrl ------ 远程文件URL
'==================================================
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -