📄 admin_config.asp

📁 本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、教育科研、教师之窗、学生园地、学校党建、校园相册、校内论坛(导航内容后台生成,可随
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
<td width="*" height="25"><input size="30" value="<%=bestjs%>" name="bestjs"> 默认：10 条</td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">本校影像：</td>
<td width="*" height="25"><input size="30" value="<%=bestpic%>" name="bestpic"> 默认：2 张</td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">网站：</td>
<td width="*" height="25"><input size="30" value="<%=bestcoolsite%>" name="bestcoolsite"> 默认：2 个</td>
</tr>
<tr class=lanyuqs>
<td colspan="2">其它设置</td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">最新程序：</td>
<td width="*" height="25"><input size="30" value="<%=newsoft%>" name="newsoft"> 默认：10 条</td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">后台连接：</td>
<td width="*" height="25"><input size="30" value="<%=adflperpage%>" name="adflperpage"> 默认：30 条</td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">后台公告：</td>
<td width="*" height="25"><input size="30" value="<%=diaryperpage%>" name="diaryperpage"> 默认：20 条</td>
</tr>
<tr class=lanyuqs>
<td colspan="2" align="center"><input type="submit" value=" 更 新 数 据 "></td>
</tr>
</table>
<%
end sub
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
	On Error Resume Next
	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),"'")
Ly_In = replace(Trim(Request.Form("Ly_In")),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),"'")
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),"'")
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),"'")
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),"'")
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),"'")
toppicnum = replace(Trim(Request.Form("toppicnum")),CHR(34),"'")
topcoolsitenum = replace(Trim(Request.Form("topcoolsitenum")),CHR(34),"'")
bestdj = replace(Trim(Request.Form("bestdj")),CHR(34),"'")
bestpic = replace(Trim(Request.Form("bestpic")),CHR(34),"'")
bestjs = replace(Trim(Request.Form("bestjs")),CHR(34),"'")
bestcoolsite = replace(Trim(Request.Form("bestcoolsite")),CHR(34),"'")
adflperpage = replace(Trim(Request.Form("adflperpage")),CHR(34),"'")
Dim n,TempStr
	TempStr = ""
	TempStr = TempStr & chr(60) & "%" & VbCrLf
	TempStr = TempStr & "dim sessionvar,WebName,weburl,webmail,weblogo,webbanner,webceo,noceo,ceopass" & VbCrLf
	TempStr = TempStr & "dim indexnews,indexarticle,indexsoft,indexdj,indexpic,indexjs,indexcoolsite,indexfriendlink,indexdiary" & VbCrLf
	TempStr = TempStr & "dim newsperpage,diaryperpage,softperpage,articleperpage,picperpage,djperpage,coolsitesperpage,jsperpage" & VbCrLf
	TempStr = TempStr & "dim newsoft,toparticlenum,topsoftnum,topdjnum,topjsnum,toppicnum,topcoolsitenum" & VbCrLf
	TempStr = TempStr & "dim bestdj,bestpic,bestjs,bestcoolsite,adflperpage" & VbCrLf
	TempStr = TempStr & "Dim Ly_Post,Ly_In,Ly_Inf,Ly_Xh" & 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 & "Ly_In="& Chr(34) & Ly_In & 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 & "indexcoolsite="&indexcoolsite &"          '首页显示的推荐网站的个数" & VbCrLf
	TempStr = TempStr & "indexfriendlink="&indexfriendlink &"        '首页显示的友情链接的个数" & VbCrLf
	TempStr = TempStr & "indexdiary="&indexdiary &"             '首页显示的公告的条数" & 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 & "'=====显示热门信息=====" & 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 & "toppicnum="&toppicnum &"              '显示点击次数最多的X张图片" & VbCrLf
	TempStr = TempStr & "topcoolsitenum="&topcoolsitenum &"         '显示点击次数最多的X个网站" & VbCrLf
	TempStr = TempStr & "'=====显示推荐信息=====" & VbCrLf
	TempStr = TempStr & "bestdj="&bestdj &"                '显示推荐音乐的个数" & VbCrLf
	TempStr = TempStr & "bestpic="&bestpic &"                '显示推荐照片的个数" & VbCrLf
	TempStr = TempStr & "bestjs="&bestjs &"                '显示推荐文章的个数" & VbCrLf
	TempStr = TempStr & "bestcoolsite="&bestcoolsite &"           '显示推荐网站的个数" & VbCrLf
	TempStr = TempStr & "adflperpage="&adflperpage &"           '后台连接每页显示数量" & 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%>
上一页 12
⌨️ 快捷键说明

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