📄 admin_news.asp

📁 不错的个人网站
💻 ASP
字号:
<!--#include file="inc/news.asp"-->
<!--#include file="inc/HZC.asp"-->
<%
if session("adminlogin")<>sessionvar then
  founderr=true
Response.Write("<LINK href=inc/admin.css type=text/css rel=StyleSheet><p align=center><font color=#FFFFFF><br><br>您还没有登录或者登录已超时，请重新登录！</font></p>")
  response.end
else%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%
select case Request("menu")
case ""
config
case "config"
config
case "configok"
configok
end select
sub config%>



<table width=98% align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form method="post" action="?menu=configok">

<tr class=lanyuss>
<td colspan="2" height="25">公告管理</td>
</tr>


<tr class=lanyuds>
<td height="25" width="80">公告内容：</td>
<td width="*" height="25"><input size="80" value="<%=HZC_gg%>" name="HZC_gg"></td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">公告颜色：</td>
<td width="*" height="25"><input size="30" value="<%=HZC_ggcolour%>" name="HZC_ggcolour"> 公告颜色，默认为白色 #FFFFFF</td>
</tr>
<tr class=lanyuds>
<td height="25" width="80">滚动速度：</td>
<td width="*" height="25"><input size="30" value="<%=HZC_ggsd%>" name="HZC_ggsd"> 公告滚动的速度，数值越大，滚动速度越慢，默认为 120</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/news.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
HZC_gg = replace(Trim(Request.Form("HZC_gg")),CHR(34),"'")
HZC_ggcolour = replace(Trim(Request.Form("HZC_ggcolour")),CHR(34),"'")
HZC_ggsd = replace(Trim(Request.Form("HZC_ggsd")),CHR(34),"'")
Dim n,TempStr
	TempStr = ""
	TempStr = TempStr & chr(60) & "%" & VbCrLf
	TempStr = TempStr & "dim HZC_gg,HZC_ggcolour,HZC_ggsd" & VbCrLf

        TempStr = TempStr & "'=====公告管理=====" & VbCrLf
	TempStr = TempStr & "HZC_gg="& Chr(34) & HZC_gg & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "HZC_ggcolour="& Chr(34) & HZC_ggcolour & Chr(34) &" " & VbCrLf
	TempStr = TempStr & "HZC_ggsd="& Chr(34) & HZC_ggsd & Chr(34) &" " & VbCrLf

	TempStr = TempStr & "%" & chr(62) & VbCrLf
		ADODB_SaveToFile TempStr,"inc/news.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%>
⌨️ 快捷键说明

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