📄 admin_article.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="1"%>

<html>
<head>
<title>文章详细信息</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
<Script Language="JavaScript" src="Include/DateSelect.js"></Script>

<Script Language="JavaScript">
<!--
function Ar_NameColor_Select() {
	document.forms['Admin_Article'].Ar_Name.style.color=document.Admin_Article.Ar_NameColor.value;
}

function Ar_RunEnv_Select(){
	if(Ar_RunEnv1.style.display=='') {
	Ar_RunEnv1.style.display="none";
	Ar_RunEnv2.style.display="";
	}
	else {
	Ar_RunEnv1.style.display="";
	Ar_RunEnv2.style.display="none";
	document.Admin_Article.Ar_RunEnv.value=document.Admin_Article.Ar_RunEnv_2.value
	}
}
//-->
</Script>

</head>

<body bgcolor="#FFFFFF" leftMargin="10" topmargin="10">

<!--#include file="Include/Session.asp"-->

<Script Language="JavaScript">
<!--
init();
//-->
</script>
<%	
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim ID,ArticleID,SortID,AsSortID
dim Ar_SortID,Ar_AsSortID,Ar_Name,Ar_NameColor,Ar_Author,Ar_AuthorEmail,Ar_AuthorHomepage,Ar_From,Ar_FromURL,Ar_Show,Ar_CommendB,Ar_Keyword,Ar_Content
dim Ar_Username,Ar_IP,Ar_DateTime
dim sContent1,i
dim isArticleModify

if Trim(Request.Form("GuComm"))="ArAdSa" or Trim(Request.Form("GuComm"))="ArMoSa" then

	GuSystemError=false

	if Trim(Request.Form("Ar_Name"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写文章标题"
		call GuMessage()

	else

	if GuSystemError=false then
		Ar_SortID=Trim(Request.Form("Ar_SortID"))
		Ar_AsSortID=Trim(Request.Form("Ar_AsSortID"))
		Ar_Name=Trim(Request.Form("Ar_Name"))
		Ar_NameColor=Trim(Request.Form("Ar_NameColor"))
		Ar_Author=Trim(Request.Form("Ar_Author"))
		Ar_AuthorEmail=Trim(Request.Form("Ar_AuthorEmail"))
		Ar_AuthorHomepage=Trim(Request.Form("Ar_AuthorHomepage"))
		Ar_From=Trim(Request.Form("Ar_From"))
		Ar_FromURL=Trim(Request.Form("Ar_FromURL"))
		Ar_Show=Trim(Request.Form("Ar_Show"))

		if Request.Form("Ar_CommendB")="1" then
			Ar_CommendB="1"
		else
			Ar_CommendB="0"
		end if

		Ar_Keyword=Trim(Request.Form("Ar_Keyword"))
		Ar_Username=GuAdminUsername
		Ar_IP=GuUserIP
		Ar_DateTime=Trim(Request.Form("Ar_DateTime"))

		For i=1 To Request.Form("Content1").Count
			sContent1=sContent1&Request.Form("Content1")(i)
		Next

		if Request.Form("GuComm")="ArAdSa" then
			call ArticleAddSave()
		else
			call ArticleModifySave()
		end if

	end if


Sub ArticleAddSave()

	dim rsAr1
	set rsAr1=Server.CreateObject("Adodb.RecordSet")
	rsAr1.open "select * from "&GuTablePrefix&"_Article where Ar_Name='"&Ar_Name&"' and Ar_AsSortID="&Ar_AsSortID,GuConn,1,1
	if not(rsAr1.bof and rsAr1.eof) then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="同一分类下相同的文章标题已经存在"
	else
		dim rsAr2
		set rsAr2=Server.CreateObject("Adodb.RecordSet")
		rsAr2.open "select * from "&GuTablePrefix&"_Article where Ar_Name='"&Trim(Request.Form("Ar_Name"))&"'",GuConn,1,3
		GuSQL="select * from "&GuTablePrefix&"_Article where (Ar_ID is null)"
		rsAr2.addnew
		rsAr2("Ar_SortID")=Ar_SortID
		rsAr2("Ar_AsSortID")=Ar_AsSortID
		rsAr2("Ar_Name")=Ar_Name
		rsAr2("Ar_NameColor")=Ar_NameColor

		rsAr2("Ar_Author")=Ar_Author
		rsAr2("Ar_AuthorEmail")=Ar_AuthorEmail
		rsAr2("Ar_AuthorHomepage")=Ar_AuthorHomepage
		rsAr2("Ar_From")=Ar_From
		rsAr2("Ar_FromURL")=Ar_FromURL
		rsAr2("Ar_Show")=Ar_Show
		rsAr2("Ar_CommendB")=Ar_CommendB
		rsAr2("Ar_Keyword")=Ar_Keyword

		if sContent1="" then
			rsAr2("Ar_Content")=Ar_Name
		else
			rsAr2("Ar_Content")=sContent1
		end if

		rsAr2("Ar_UserPublish")="0"
		rsAr2("Ar_Username")=Ar_Username
		rsAr2("Ar_IP")=Ar_IP
		rsAr2("Ar_DateTime")=Ar_DateTime

		rsAr2("Ar_DayDate")=Now()
		rsAr2("Ar_DayHits")=0
		rsAr2("Ar_WeekDate")=Now()
		rsAr2("Ar_WeekHits")=0
		rsAr2("Ar_MonthDate")=Now()
		rsAr2("Ar_MonthHits")=0
		rsAr2("Ar_AllHits")=0

		rsAr2.update

		ArticleID=rsAr2("Ar_ID")

		GuSQL="update "&GuTablePrefix&"_Sort set So_Number=So_Number+1 where So_ID="&Trim(Request.Form("Ar_SortID"))
		GuConn.execute GuSQL
		GuSQL="update "&GuTablePrefix&"_AsSort set AS_Number=AS_Number+1 where AS_ID="&Trim(Request.Form("Ar_AsSortID"))
		GuConn.execute GuSQL

		GuSQL="update "&GuTablePrefix&"_ConfigIC set CIC_Number=CIC_Number+1 where CIC_Type='Sort' and CIC_OldIDA="&Trim(Request.Form("Ar_SortID"))
		GuConn.execute GuSQL
		GuSQL="update "&GuTablePrefix&"_ConfigIC set CIC_Number=CIC_Number+1 where CIC_Type='AsSort' and CIC_OldIDB="&Trim(Request.Form("Ar_AsSortID"))
		GuConn.execute GuSQL

		GuSQL="update "&GuTablePrefix&"_ConfigIC set CIC_Number=CIC_Number+1 where CIC_ID=2"
		GuConn.execute GuSQL

		rsAr2.close
		set rsAr2=Nothing

		GuSystemCode=00
		GuSystemMessage="文章[<a href=""Article.asp?ID="&ArticleID&""" style=""color:"&Ar_NameColor&""" class=""BlueV12"" target=""_blank"">"&Ar_Name&"</a>]已添加完成"
		GuSystemURL="<a href=""Admin_Article.asp?GuComm=Mo&ArticleID="&ArticleID&"""><img src=""Images/Admin_Button_Back.gif"" border=""0""></a>&nbsp;<a href=""Admin_Article.asp""><img src=""Images/Admin_Button_Goto.gif"" border=""0""></a>"
	end if
	rsAr1.close
	set rsAr1=Nothing

	call GuMessage()

end sub


Sub ArticleModifySave()

	dim rsAr9
	set rsAr9=Server.CreateObject("Adodb.RecordSet")
	rsAr9.open "select * from "&GuTablePrefix&"_Article where Ar_Name='"&Ar_Name&"' and Ar_AsSortID="&Ar_AsSortID&" and Ar_ID<>"&Trim(Request.Form("ArticleID")),GuConn,1,1
	if not(rsAr9.bof and rsAr9.eof) then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="同一分类下相同的文章标题已经存在"
	else
		dim rsAr6
		set rsAr6=Server.CreateObject("Adodb.RecordSet")
		GuSQL="select * from "&GuTablePrefix&"_Article where Ar_ID="&Trim(Request.Form("ArticleID"))
		rsAr6.open GuSQL,GuConn,1,3
		rsAr6("Ar_SortID")=Ar_SortID
		rsAr6("Ar_AsSortID")=Ar_AsSortID
		rsAr6("Ar_Name")=Ar_Name
		rsAr6("Ar_NameColor")=Ar_NameColor
		rsAr6("Ar_Author")=Ar_Author
		rsAr6("Ar_AuthorEmail")=Ar_AuthorEmail
		rsAr6("Ar_AuthorHomepage")=Ar_AuthorHomepage
		rsAr6("Ar_From")=Ar_From
		rsAr6("Ar_FromURL")=Ar_FromURL
		rsAr6("Ar_Show")=Ar_Show
		rsAr6("Ar_CommendB")=Ar_CommendB
		rsAr6("Ar_Keyword")=Ar_Keyword

		if sContent1="" then
			rsAr6("Ar_Content")=Ar_Name
		else
			rsAr6("Ar_Content")=sContent1
		end if

		rsAr6("Ar_UserPublish")="0"

		if ArticleModifyUsernameReplace="1" then
			rsAr6("Ar_Username")=Ar_Username
		end if

		if ArticleModifyIPReplace="1" then
			rsAr6("Ar_IP")=Ar_IP
		end if

		if ArticleModifyDateTimeReplace="1" then
			rsAr6("Ar_DateTime")=date()
		else
			rsAr6("Ar_DateTime")=Ar_DateTime
		end if

		if ArticleModifyAllHitsReplace="1" then
			rsAr6("Ar_DayHits")=0
			rsAr6("Ar_WeekHits")=0
			rsAr6("Ar_MonthHits")=0
			rsAr6("Ar_AllHits")=0
		end if

		rsAr6.update
		rsAr6.close
		set rsAr6=Nothing
		GuSystemCode=00
		GuSystemMessage="文章[<a href=""Article.asp?ID="&Trim(Request.Form("ArticleID"))&""" style=""color:"&Ar_NameColor&""" class=""BlueV12"" target=""_blank"">"&Ar_Name&"</a>]已修改完成"
		GuSystemURL="<a href=""#"" onclick=""JavaScript:history.go(-1);""><img src=""Images/Admin_Button_Back.gif"" border=""0""></a>&nbsp;<a href=""Admin_Article.asp""><img src=""Images/Admin_Button_Goto.gif"" border=""0""></a>"
	end if
	rsAr9.close
	set rsAr9=Nothing

	call GuMessage()

end sub
12 下一页
💿 文件大小 846 K
👤 上传用户 jhjfjh22544
📂 所属分类其他数据库
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -