admin_config.asp

本程序采用花香内核

	Dim objStream,FSFlag,fs,WriteFile
	FSFlag = 1
	If DEF_FSOString <> "" Then
		Set fs = Server.CreateObject(DEF_FSOString)
		If Err Then
			FSFlag = 0
			Err.Clear
			Set fs = Nothing
		End If
	Else
		FSFlag = 0
	End If
	
	If FSFlag = 1 Then
		Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
		WriteFile.Write strBody
		WriteFile.Close
		Set Fs = Nothing
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
			GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >inc/config.asp</font>文件内容替换成框中内容"
			Err.Clear
			Set objStream = Noting
			Exit Sub
		End If
		With objStream
			.Type = 2
			.Open
			.Charset = "GB2312"
			.Position = objStream.Size
			.WriteText = strBody
			.SaveToFile Server.MapPath(File),2
			.Close
		End With
		Set objStream = Nothing
	End If
End Sub
sub configok
sessionvar = replace(Trim(Request.Form("sessionvar")),CHR(34),"'")
hx_In = replace(Trim(Request.Form("hx_In")),CHR(34),"'")
bad_ip = replace(Trim(Request.Form("bad_ip")),CHR(34),"'")
webname = replace(Trim(Request.Form("webname")),CHR(34),"'")
weburl = replace(Trim(Request.Form("weburl")),CHR(34),"'")
webmail = replace(Trim(Request.Form("webmail")),CHR(34),"'")
weblogo = replace(Trim(Request.Form("weblogo")),CHR(34),"'")
skin = replace(Trim(Request.Form("skin")),CHR(34),"'")
webbanner = replace(Trim(Request.Form("webbanner")),CHR(34),"'")
webceo = replace(Trim(Request.Form("webceo")),CHR(34),"'")
noceo = replace(Trim(Request.Form("noceo")),CHR(34),"'")
ceopass = replace(Trim(Request.Form("ceopass")),CHR(34),"'")
userfb = replace(Trim(Request.Form("userfb")),CHR(34),"'")
usery = replace(Trim(Request.Form("usery")),CHR(34),"'")
guestdj = replace(Trim(Request.Form("guestdj")),CHR(34),"'")
guestjs = replace(Trim(Request.Form("guestjs")),CHR(34),"'")
guestsoft = replace(Trim(Request.Form("guestsoft")),CHR(34),"'")
guestart = replace(Trim(Request.Form("guestart")),CHR(34),"'")
guestpic = replace(Trim(Request.Form("guestpic")),CHR(34),"'")
guestvid = replace(Trim(Request.Form("guestvid")),CHR(34),"'")
indexnews = replace(Trim(Request.Form("indexnews")),CHR(34),"'")
indexarticle = replace(Trim(Request.Form("indexarticle")),CHR(34),"'")
indexsoft = replace(Trim(Request.Form("indexsoft")),CHR(34),"'")
indexdj = replace(Trim(Request.Form("indexdj")),CHR(34),"'")
indexpic = replace(Trim(Request.Form("indexpic")),CHR(34),"'")
indexjs = replace(Trim(Request.Form("indexjs")),CHR(34),"'")
indexvid = replace(Trim(Request.Form("indexvid")),CHR(34),"'")
indexbook = replace(Trim(Request.Form("indexbook")),CHR(34),"'")
indexcoolsite = replace(Trim(Request.Form("indexcoolsite")),CHR(34),"'")
indexfriendlink = replace(Trim(Request.Form("indexfriendlink")),CHR(34),"'")
indexdiary = replace(Trim(Request.Form("indexdiary")),CHR(34),"'")
newsperpage = replace(Trim(Request.Form("newsperpage")),CHR(34),"'")
diaryperpage = replace(Trim(Request.Form("diaryperpage")),CHR(34),"'")
softperpage = replace(Trim(Request.Form("softperpage")),CHR(34),"'")
articleperpage = replace(Trim(Request.Form("articleperpage")),CHR(34),"'")
picperpage = replace(Trim(Request.Form("picperpage")),CHR(34),"'")
djperpage = replace(Trim(Request.Form("djperpage")),CHR(34),"'")
coolsitesperpage = replace(Trim(Request.Form("coolsitesperpage")),CHR(34),"'")
jsperpage = replace(Trim(Request.Form("jsperpage")),CHR(34),"'")
vidperpage = replace(Trim(Request.Form("vidperpage")),CHR(34),"'")
adperpage = replace(Trim(Request.Form("adperpage")),CHR(34),"'")
newsoft = replace(Trim(Request.Form("newsoft")),CHR(34),"'")
toparticlenum = replace(Trim(Request.Form("toparticlenum")),CHR(34),"'")
topsoftnum = replace(Trim(Request.Form("topsoftnum")),CHR(34),"'")
topdjnum = replace(Trim(Request.Form("topdjnum")),CHR(34),"'")
topjsnum = replace(Trim(Request.Form("topjsnum")),CHR(34),"'")
topvidnum = replace(Trim(Request.Form("topvidnum")),CHR(34),"'")
toppicnum = replace(Trim(Request.Form("toppicnum")),CHR(34),"'")
topcoolsitenum = replace(Trim(Request.Form("topcoolsitenum")),CHR(34),"'")
bestdj = replace(Trim(Request.Form("bestdj")),CHR(34),"'")
bestart = replace(Trim(Request.Form("bestart")),CHR(34),"'")
bestsoft = replace(Trim(Request.Form("bestsoft")),CHR(34),"'")
bestpic = replace(Trim(Request.Form("bestpic")),CHR(34),"'")
bestjs = replace(Trim(Request.Form("bestjs")),CHR(34),"'")
bestvid = replace(Trim(Request.Form("bestvid")),CHR(34),"'")
bestcoolsite = replace(Trim(Request.Form("bestcoolsite")),CHR(34),"'")
adflperpage = replace(Trim(Request.Form("adflperpage")),CHR(34),"'")
point_news = replace(Trim(Request.Form("point_news")),CHR(34),"'")
point_article = replace(Trim(Request.Form("point_article")),CHR(34),"'")
point_down = replace(Trim(Request.Form("point_down")),CHR(34),"'")
point_dj = replace(Trim(Request.Form("point_dj")),CHR(34),"'")
point_js = replace(Trim(Request.Form("point_js")),CHR(34),"'")
point_pic = replace(Trim(Request.Form("point_pic")),CHR(34),"'")
point_vid = replace(Trim(Request.Form("point_vid")),CHR(34),"'")
Dim n,TempStr
	TempStr = ""
	TempStr = TempStr & chr(60) & "%" & VbCrLf
	TempStr = TempStr & "dim sessionvar,WebName,weburl,webmail,weblogo,webbanner,webceo,noceo,ceopass,usery,userfb,guestdj,guestjs,guestsoft,guestart,guestpic,guestvid,skin" & VbCrLf
	TempStr = TempStr & "dim indexnews,indexarticle,indexsoft,indexdj,indexpic,indexjs,indexcoolsite,indexfriendlink,indexdiary,indexbook,indexvid" & VbCrLf
	TempStr = TempStr & "dim newsperpage,diaryperpage,softperpage,articleperpage,picperpage,djperpage,coolsitesperpage,jsperpage,adperpage,vidperpage" & VbCrLf
	TempStr = TempStr & "dim newsoft,toparticlenum,topsoftnum,topdjnum,topjsnum,toppicnum,topcoolsitenum,topvidnum" & VbCrLf
	TempStr = TempStr & "dim bestdj,bestart,bestsoft,bestpic,bestjs,bestcoolsite,adflperpage,bestvid" & VbCrLf
	TempStr = TempStr & "dim point_news,point_article,point_down,point_dj,point_js,point_pic,point_vid" & VbCrLf
	TempStr = TempStr & "Dim hx_Post,hx_In,hx_Inf,hx_Xh,bad_ip" & VbCrLf

	TempStr = TempStr & "'=====网站基本信息=====" & VbCrLf
	TempStr = TempStr & "sessionvar="& Chr(34) & sessionvar & Chr(34) &"                   '设置变量，变量不可以为NO，否则后台无法登陆" & VbCrLf
	TempStr = TempStr & "webname="& Chr(34) & webname & Chr(34) &"                   '设置站点名称" & VbCrLf
	TempStr = TempStr & "weburl="& Chr(34) & weburl & Chr(34) &"            '设置网站地址" & VbCrLf
	TempStr = TempStr & "webmail="& Chr(34) & webmail & Chr(34) &"       '设置站长EMAIL" & VbCrLf
	TempStr = TempStr & "weblogo="& Chr(34) & weblogo & Chr(34) &"  '设置logo代码" & VbCrLf
	TempStr = TempStr & "webbanner="& Chr(34) & webbanner & Chr(34) &"                 '设置banner代码" & VbCrLf
	TempStr = TempStr & "webceo="& Chr(34) & webceo & Chr(34) &"                        '设置站长名字" & VbCrLf
	TempStr = TempStr & "noceo="& Chr(34) & noceo & Chr(34) &"                        '如果有人用你设置的站长名称留言时显示的名称" & VbCrLf
	TempStr = TempStr & "ceopass="& Chr(34) & ceopass & Chr(34) &"                        '设置站长代号" & VbCrLf
	TempStr = TempStr & "hx_In="& Chr(34) & hx_In & Chr(34) &"                        '设置屏蔽不法内容，用|隔开" & VbCrLf   
	TempStr = TempStr & "skin="& Chr(34) & skin & Chr(34) &"                          '设置风格皮肤" & VbCrLf
	TempStr = TempStr & "bad_ip="& Chr(34) & bad_ip & Chr(34) &"                      '设置IP" & VbCrLf
	TempStr = TempStr & "usery="& Chr(34) & usery & Chr(34) &"                        '设置注册" & VbCrLf
	TempStr = TempStr & "userfb="& Chr(34) & userfb & Chr(34) &"                        '设置发表" & VbCrLf
	TempStr = TempStr & "guestdj="& Chr(34) & guestdj & Chr(34) &"                        '设置音乐" & VbCrLf
	TempStr = TempStr & "guestjs="& Chr(34) & guestjs & Chr(34) &"                        '设置特效" & VbCrLf
	TempStr = TempStr & "guestsoft="& Chr(34) & guestsoft & Chr(34) &"                        '设置下载" & VbCrLf
	TempStr = TempStr & "guestart="& Chr(34) & guestart & Chr(34) &"                        '设置文章" & VbCrLf
	TempStr = TempStr & "guestpic="& Chr(34) & guestpic & Chr(34) &"                        '设置图片" & VbCrLf
	TempStr = TempStr & "guestvid="& Chr(34) & guestvid & Chr(34) &"                        '设置影视" & VbCrLf
	TempStr = TempStr & "'=====首页显示信息=====" & VbCrLf
	TempStr = TempStr & "indexnews="&indexnews &"              '首页显示的新闻的条数" & VbCrLf
	TempStr = TempStr & "indexarticle="&indexarticle &"          '首页显示的文章的篇数" & VbCrLf
	TempStr = TempStr & "indexsoft="&indexsoft &"             '首页显示的程序的个数" & VbCrLf
	TempStr = TempStr & "indexdj="&indexdj &"               '首页显示的舞曲的个数" & VbCrLf
	TempStr = TempStr & "indexpic="&indexpic &"               '首页显示的照片的个数" & VbCrLf
	TempStr = TempStr & "indexjs="&indexjs &"               '首页显示的特效的个数" & VbCrLf
	TempStr = TempStr & "indexvid="&indexvid &"               '首页显示的影视的个数" & VbCrLf
	TempStr = TempStr & "indexcoolsite="&indexcoolsite &"          '首页显示的酷站的个数" & VbCrLf
	TempStr = TempStr & "indexfriendlink="&indexfriendlink &"        '首页显示的友情链接的个数" & VbCrLf
	TempStr = TempStr & "indexdiary="&indexdiary &"             '首页显示的公告的条数" & VbCrLf
        TempStr = TempStr & "indexbook="&indexbook &"             '首页显示的留言的条数" & VbCrLf
	TempStr = TempStr & "'=====每页显示几条信息=====" & VbCrLf
	TempStr = TempStr & "newsperpage="&newsperpage &"           '每页显示的新闻的条数" & VbCrLf
	TempStr = TempStr & "diaryperpage="&diaryperpage &"           '显示的每日碎语的篇数" & VbCrLf
	TempStr = TempStr & "softperpage="&softperpage &"           '每页显示的程序个数" & VbCrLf
	TempStr = TempStr & "articleperpage="&articleperpage &"        '每页显示的文章的篇数" & VbCrLf
	TempStr = TempStr & "picperpage="&picperpage &"            '每页显示的照片的个数 " & VbCrLf
	TempStr = TempStr & "djperpage="&djperpage &"             '每页显示的舞曲的个数" & VbCrLf
	TempStr = TempStr & "coolsitesperpage="&coolsitesperpage &"       '每页显示的酷站的个数" & VbCrLf
	TempStr = TempStr & "jsperpage="&jsperpage &"             '每页显示的特效个数" & VbCrLf
	TempStr = TempStr & "vidperpage="&vidperpage &"             '每页显示的影视个数" & VbCrLf
	TempStr = TempStr & "adperpage="&adperpage &"             '每页显示的会员个数" & VbCrLf
	TempStr = TempStr & "'=====显示热门信息=====" & VbCrLf
	TempStr = TempStr & "newsoft="&newsoft &"               '显示最新的程序个数" & VbCrLf
	TempStr = TempStr & "toparticlenum="&toparticlenum &"         '显示阅读次数最多的X篇文章" & VbCrLf
	TempStr = TempStr & "topsoftnum="&topsoftnum &"            '显示下载次数最多的X个程序" & VbCrLf
	TempStr = TempStr & "topdjnum="&topdjnum &"              '显示点击次数最多的X首舞曲" & VbCrLf
	TempStr = TempStr & "topjsnum="&topjsnum &"              '显示点击次数最多的X篇特效" & VbCrLf
	TempStr = TempStr & "topvidnum="&topvidnum &"              '显示点击次数最多的X个影视" & VbCrLf
	TempStr = TempStr & "toppicnum="&toppicnum &"              '显示点击次数最多的X张图片" & VbCrLf
	TempStr = TempStr & "topcoolsitenum="&topcoolsitenum &"         '显示点击次数最多的X个酷站" & VbCrLf
	TempStr = TempStr & "'=====显示推荐信息=====" & VbCrLf
	TempStr = TempStr & "bestart="&bestart &"                '显示推荐文章的个数" & VbCrLf
	TempStr = TempStr & "bestsoft="&bestsoft &"                '显示推荐下载的个数" & VbCrLf
	TempStr = TempStr & "bestdj="&bestdj &"                '显示推荐舞曲的个数" & VbCrLf
	TempStr = TempStr & "bestpic="&bestpic &"                '显示推荐照片的个数" & VbCrLf
	TempStr = TempStr & "bestjs="&bestjs &"                '显示推荐特效的个数" & VbCrLf
	TempStr = TempStr & "bestvid="&bestvid &"                '显示推荐影视的个数" & VbCrLf
	TempStr = TempStr & "bestcoolsite="&bestcoolsite &"           '显示推荐酷站的个数" & VbCrLf
	TempStr = TempStr & "adflperpage="&adflperpage &"           '后台连接每页显示数量" & VbCrLf
	TempStr = TempStr & "'=====显示评论状态信息=====" & VbCrLf
	TempStr = TempStr & "point_news="&point_news &"                '显示新闻评论的状态" & VbCrLf
	TempStr = TempStr & "point_article="&point_article &"               '显示文章评论的状态" & VbCrLf
	TempStr = TempStr & "point_down="&point_down &"                '显示下载评论的状态" & VbCrLf
	TempStr = TempStr & "point_dj="&point_dj &"                '显示音乐评论的状态" & VbCrLf
	TempStr = TempStr & "point_js="&point_js &"                '显示特效评论的状态" & VbCrLf
	TempStr = TempStr & "point_vid="&point_vid &"                '显示影视评论的状态" & VbCrLf
	TempStr = TempStr & "point_pic="&point_pic &"           '显示图片评论的状态" & VbCrLf
	TempStr = TempStr & "%" & chr(62) & VbCrLf
		ADODB_SaveToFile TempStr,"inc/config.asp"
	If GBL_CHK_TempStr = "" Then
Response.Write "<table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=lanyubk style=""border-collapse: collapse""><tr><td class=lanyuss>基本资料更新</td></tr><tr class=lanyuds><td align=""center"" height=""66"">&gt;更新成功&lt;</td></tr></table>"
Else
		%><table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=lanyubk style=""border-collapse: collapse""><tr><td class=lanyuss>基本资料更新</td></tr><tr class=lanyuds><td align=""center"" height=""66"">&gt;<%=GBL_CHK_TempStr%>&lt;<br><br>
		<textarea name="fileContent" cols="80" rows="30"><%=Server.htmlencode(TempStr)%></textarea></td></tr></table><%
		GBL_CHK_TempStr = ""
	End If
End Sub
end if%>