⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_set.asp

📁 学校网站管理系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<input type="radio" name="mypassopen" value="yes" <%if mypassopen="yes" then response.write " checked"%>>打开<br><br>
</td></tr>
<tr><td width=100>&nbsp;输入二次密码：</td><td><input type=text size="20" value="<%=mypass%>" name="mypass" class=yecao>&nbsp;您可以随意输入您的密码<br>
</td></tr>
<tr><td width=100>&nbsp;二次密码开值：</td><td><input type=text size="20" value="<%=mypasskey%>" name="mypasskey" class=yecao>&nbsp;ACCII编码值。<br>
</td></tr>
<tr><td width=100>&nbsp;简单说明：</td><td style="line-height:150%">
①如果您开启了开关，则进入后台时需要验证二次密码<br>
②二次密码防止黑客暴力破解密码的补助器 <br>
③二次密码开值指ACCII编码值,相关值，请<a href="#" onKeyPress="pressKey()"><font color=red><b>单击</b></font></a>此处,在有焦点的时候请键入你想要的相应ACCII键盘值,如果您开启了这个功能您必须要进入管理时按下您设置的ACCII相应的键盘键。这样才会显示出来输入框。
</td></tr>
</table>
</div>
<div style="display:none" id=w7>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td width=75>
&nbsp;版权信息：</td><td>
<textarea  name="copyright" class=yecao style=width:300px;height:60px rows="1" cols="20">
<%=YCMSIE(copyright)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;状态信息：</td><td>
<textarea  name="status" class=yecao style=width:300px;height:60px rows="1" cols="20">
<%=YCMSIE(status)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;关 键 字：</td><td>
  <textarea  name="keywords" class=yecao style=width:300px;height:60px rows="1" cols="20">
<%=YCMSIE(keywords)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;在线超时：</td><td>
<input size="20" value="<%=YCMSIE(kicktime)%>" name="kicktime" class=yecao style=width:100px> 以分钟为单位<br>
</td></tr>
</table>
</div>
</td></tr></table>
</td></tr>
<tr><td width="398" height="37" colspan="8" style="border-top-style: solid; border-top-width: 0; padding: 5" align="center">
<input type="submit" value="更 新"  style="width: 60;height:22" class=adminbutton></td></form></tr></table></td></tr></table>
<%
end sub
Function YCMSIE(byval s_string)
If isnull(s_string) Then
YCMSIE=""
Else
s_string=replace(s_string,"&","&amp;")
s_string=replace(s_string,chr(34),"&quot;")
s_string=replace(s_string,"<","&lt;")
YCMSIE=replace(s_string,">","&gt;")
End If
End Function
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，无法完成操作，请手工修改<font color=Red >inc/asp.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 setok()
Dim n,TempStr
TempStr=""
TempStr=TempStr&chr(60) & "%" & VbCrLf
TempStr=TempStr&"'■■■■■■■■网站基本信息■■■■■■■■" & VbCrLf
TempStr=TempStr&"yecao="&Chr(34)&replace(STrim(Request.Form("yecao")),CHR(34),"'")&Chr(34)&"          '后台缓存" & VbCrLf
TempStr=TempStr&"mypassopen="&Chr(34)&replace(STrim(Request.Form("mypassopen")),CHR(34),"'")&Chr(34)&"    '二次密码启动开关" & VbCrLf
TempStr=TempStr&"mypasskey="&Chr(34)&replace(STrim(Request.Form("mypasskey")),CHR(34),"'")&Chr(34)&"    '二次密码启动值" & VbCrLf
TempStr=TempStr&"mypass="&Chr(34)&replace(STrim(Request.Form("mypass")),CHR(34),"'")&Chr(34)&"    '二次密码" & VbCrLf
TempStr=TempStr&"sys="&Chr(34)&replace(STrim(Request.Form("sys")),CHR(34),"'")&Chr(34)&"    '前台缓存" & VbCrLf
TempStr=TempStr&"webname="&Chr(34)&replace(STrim(Request.Form("webname")),CHR(34),"'")&Chr(34)&"      '设置站点名称" & VbCrLf
TempStr=TempStr&"weburl="&Chr(34)&replace(STrim(Request.Form("weburl")),CHR(34),"'")&Chr(34) &"       '设置网站地址" & VbCrLf
TempStr=TempStr&"webmail="&Chr(34)&replace(STrim(Request.Form("webmail")),CHR(34),"'")&Chr(34)&"      '设置站长EMAIL" & VbCrLf
TempStr=TempStr&"weblogo="&Chr(34)&replace(STrim(Request.Form("weblogo")),CHR(34),"'")&Chr(34)&"       '设置logo代码" & VbCrLf
TempStr=TempStr&"border="&Chr(34)&replace(STrim(Request.Form("border")),CHR(34),"'")&Chr(34)&"         '设置广告代码" & VbCrLf
TempStr=TempStr&"webceo="&Chr(34)&replace(STrim(Request.Form("webceo")),CHR(34),"'")&Chr(34)&"         '设置站长名字" & VbCrLf
TempStr=TempStr&"skin="&Chr(34)&replace(STrim(Request.Form("skin")),CHR(34),"'")&Chr(34)&"    '设置站点首页默认皮肤" & VbCrLf
TempStr=TempStr&"downdj="&Chr(34)&replace(STrim(Request.Form("downdj")),CHR(34),"'")&Chr(34)&"         '设置是否下载娱乐" & VbCrLf
TempStr=TempStr&"web="&Chr(34)&replace(STrim(Request.Form("web")),CHR(34),"'")&Chr(34)&"         '设置是否打开站点" & VbCrLf
TempStr=TempStr&"webwords="&Chr(34)&replace(STrim(Request.Form("webwords")),CHR(34),"'")&Chr(34)&"    '设置维护说明" & VbCrLf
TempStr=TempStr&"copyright="&Chr(34)&replace(STrim(Request.Form("copyright")),CHR(34),"'")&Chr(34)&"  '设置维护说明" & VbCrLf
TempStr=TempStr&"keys="&Chr(34)&replace(STrim(Request.Form("keys")),CHR(34),"'")&Chr(34)&"  '关键字过滤，请用“|”分隔多项！" & VbCrLf 
TempStr=TempStr&"rightmenu="&replace(STrim(Request.Form("rightmenu")),CHR(34),"'")&"  '禁止右键0为不禁止|1为半禁止|2为全禁止" & VbCrLf
TempStr=TempStr&"keywords="&Chr(34)&replace(STrim(Request.Form("keywords")),CHR(34),"'")&Chr(34)&"  '网站关键字，为了让搜索器自动找到你的网站" & VbCrLf
TempStr=TempStr&"kicktime="&Chr(34)&replace(STrim(Request.Form("kicktime")),CHR(34),"'")&Chr(34)&"  '在线用户超时时间" & VbCrLf
TempStr=TempStr&"status="&Chr(34)&replace(STrim(Request.Form("status")),CHR(34),"'")&Chr(34)&"  '状态栏信息" & VbCrLf
TempStr=TempStr&"replace_reg="&Chr(34)&replace(STrim(Request.Form("replace_reg")),CHR(34),"'")&Chr(34)&"  '注册过滤，用|分隔多个名字。" & VbCrLf
TempStr=TempStr&"replace_ip="&Chr(34)&replace(STrim(Request.Form("replace_ip")),CHR(34),"'")&Chr(34)&"  'IP封锁，用|分隔多个IP。" & VbCrLf
TempStr=TempStr&"qq_online="&Chr(34)&replace(STrim(Request.Form("qq_online")),CHR(34),"'")&Chr(34)&"  '在线QQ交流代码" & VbCrLf
TempStr=TempStr&"'■■■■■■■■用户设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"noregtext="&Chr(34)&replace(STrim(Request.Form("noregtext")),CHR(34),"'")&Chr(34)&"   '屏蔽注册说明" & VbCrLf
TempStr=TempStr&"user_mode="&Chr(34)&replace(STrim(Request.Form("user_mode")),CHR(34),"'")&Chr(34)&"   '会员系统模式0=关闭，1=关闭，但能登陆，2=会员可以登陆，新用户注册需要审核，3=会员可以登陆，新用户注册不需要通过审核" & VbCrLf
TempStr=TempStr&"userup="&Chr(34)&replace(STrim(Request.Form("userup")),CHR(34),"'")&Chr(34)&"     '是否可以上传" & VbCrLf
TempStr=TempStr&"usernews="&Chr(34)&replace(STrim(Request.Form("usernews")),CHR(34),"'")&Chr(34)&" '是否可以发布新闻" & VbCrLf
TempStr=TempStr&"userart="&Chr(34)&replace(STrim(Request.Form("userart")),CHR(34),"'")&Chr(34)&"   '是否可以发布文章" & VbCrLf
TempStr=TempStr&"userdj="&Chr(34)&replace(STrim(Request.Form("userdj")),CHR(34),"'")&Chr(34)&"    '是否可以发布娱乐" & VbCrLf
TempStr=TempStr&"userpic="&Chr(34)&replace(STrim(Request.Form("userpic")),CHR(34),"'")&Chr(34)&"   '是否可以发布图片" & VbCrLf
TempStr=TempStr&"userdown="&Chr(34)&replace(STrim(Request.Form("userdown")),CHR(34),"'")&Chr(34)&" '是否可以发布下载" & VbCrLf
TempStr=TempStr&"shownews="&Chr(34)&replace(STrim(Request.Form("shownews")),CHR(34),"'")&Chr(34)&" '是否可以浏览新闻" & VbCrLf
TempStr=TempStr&"showart="&Chr(34)&replace(STrim(Request.Form("showart")),CHR(34),"'")&Chr(34)&"   '是否可以浏览文章" & VbCrLf
TempStr=TempStr&"showdj="&Chr(34)&replace(STrim(Request.Form("showdj")),CHR(34),"'")&Chr(34)&"    '是否可以浏览娱乐" & VbCrLf
TempStr=TempStr&"showpic="&Chr(34)&replace(STrim(Request.Form("showpic")),CHR(34),"'")&Chr(34)&" '是否可以浏览图片" & VbCrLf
TempStr=TempStr&"showdown="&Chr(34)&replace(STrim(Request.Form("showdown")),CHR(34),"'")&Chr(34)&" '是否可以浏览下载" & VbCrLf
TempStr=TempStr&"'■■■■■■■■前台首页设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"indexpage=split("""&replace(STrim(Request.Form("indexpage")),CHR(34),"'")&""",""|"") '首页设置，新闻|文章|图片|娱乐|下载|连接|公告" & VbCrLf
TempStr=TempStr&"yecaopage=split("""&replace(STrim(Request.Form("yecaopage")),CHR(34),"'")&""",""|"") '分页设置，新闻|文章|图片|娱乐|下载|连接|留言" & VbCrLf
TempStr=TempStr&"adminpage="&replace(STrim(Request.Form("adminpage")),CHR(34),"'")&"     '后台分页设置" & VbCrLf
TempStr=TempStr&"toplist="&replace(STrim(Request.Form("toplist")),CHR(34),"'")&"       '点击排行设置" & VbCrLf
TempStr=TempStr&"bestlist="&replace(STrim(Request.Form("bestlist")),CHR(34),"'")&"      '本站推荐设置" & VbCrLf
TempStr=TempStr&"sou="&Chr(34)&replace(STrim(Request.Form("sou")),CHR(34),"'")&Chr(34)&" '游客是否可以搜索" & VbCrLf
TempStr=TempStr&"varfeng="&Chr(34)&replace(STrim(Request.Form("varfeng")),CHR(34),"'")&Chr(34)&"         '设置是否打开所有评论" & VbCrLf
TempStr=TempStr&"plnews="&Chr(34)&replace(STrim(Request.Form("plnews")),CHR(34),"'")&Chr(34)&"         '设置是否打开新闻评论" & VbCrLf
TempStr=TempStr&"plart="&Chr(34)&replace(STrim(Request.Form("plart")),CHR(34),"'")&Chr(34)&"         '设置是否打开文章评论" & VbCrLf
TempStr=TempStr&"pldj="&Chr(34)&replace(STrim(Request.Form("pldj")),CHR(34),"'")&Chr(34)&"         '设置是否打开音乐评论" & VbCrLf
TempStr=TempStr&"plflash="&Chr(34)&replace(STrim(Request.Form("plflash")),CHR(34),"'")&Chr(34)&"         '设置是否打开FLASH评论" & VbCrLf
TempStr=TempStr&"plpic="&Chr(34)&replace(STrim(Request.Form("plpic")),CHR(34),"'")&Chr(34)&"         '设置是否打开图片评论" & VbCrLf
TempStr=TempStr&"pldown="&Chr(34)&replace(STrim(Request.Form("pldown")),CHR(34),"'")&Chr(34)&"         '设置是否打开下载评论" & VbCrLf
TempStr=TempStr&"'■■■■■■■■上传文件设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"newsup="&Chr(34)&replace(STrim(Request.Form("newsup")),CHR(34),"'")&Chr(34)&"     '新闻附件格式" & VbCrLf
TempStr=TempStr&"artup="&Chr(34)&replace(STrim(Request.Form("artup")),CHR(34),"'")&Chr(34)&"     '文章附件格式" & VbCrLf
TempStr=TempStr&"djup="&Chr(34)&replace(STrim(Request.Form("djup")),CHR(34),"'")&Chr(34)&"     '娱乐附件格式" & VbCrLf
TempStr=TempStr&"djpicup="&Chr(34)&replace(STrim(Request.Form("djpicup")),CHR(34),"'")&Chr(34)&" '下载略图附件格式"&VbCrLf
TempStr=TempStr&"picup="&Chr(34)&replace(STrim(Request.Form("picup")),CHR(34),"'")&Chr(34)&"     '图片附件格式" & VbCrLf
TempStr=TempStr&"lrcup="&Chr(34)&replace(STrim(Request.Form("lrcup")),CHR(34),"'")&Chr(34)&"     '娱乐附件格式" & VbCrLf
TempStr=TempStr&"downup="&Chr(34)&replace(STrim(Request.Form("downup")),CHR(34),"'")&Chr(34)&"     '下载附件格式" & VbCrLf
TempStr=TempStr&"downpicup="&Chr(34)&replace(STrim(Request.Form("downpicup")),CHR(34),"'")&Chr(34)&" '下载略图附件格式"&VbCrLf
TempStr=TempStr&"otherup="&Chr(34)&replace(STrim(Request.Form("otherup")),CHR(34),"'")&Chr(34)&"     '频道附件格式" & VbCrLf
TempStr=TempStr&"'■■■■■■■■上传文件大小设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"newsupsize="&Chr(34)&replace(STrim(Request.Form("newsupsize")),CHR(34),"'")&Chr(34)&" '新闻附件大小" & VbCrLf
TempStr=TempStr&"artupsize="&Chr(34)&replace(STrim(Request.Form("artupsize")),CHR(34),"'")&Chr(34)&"  '文章附件大小" & VbCrLf
TempStr=TempStr&"djupsize="&Chr(34)&replace(STrim(Request.Form("djupsize")),CHR(34),"'")&Chr(34)&"   '娱乐附件大小" & VbCrLf
TempStr=TempStr&"djpicupsize="&Chr(34)&replace(STrim(Request.Form("djpicupsize")),CHR(34),"'")&Chr(34)&"'娱乐略图大小"& VbCrLf
TempStr=TempStr&"picupsize="&Chr(34)&replace(STrim(Request.Form("picupsize")),CHR(34),"'")&Chr(34)&"  '图片附件大小" & VbCrLf
TempStr=TempStr&"lrcupsize="&Chr(34)&replace(STrim(Request.Form("lrcupsize")),CHR(34),"'")&Chr(34)&"   '娱乐附件格式" & VbCrLf
TempStr=TempStr&"downupsize="&Chr(34)&replace(STrim(Request.Form("downupsize")),CHR(34),"'")&Chr(34)&" '下载附件大小" & VbCrLf
TempStr=TempStr&"downpicupsize="&Chr(34)&replace(STrim(Request.Form("downpicupsize")),CHR(34),"'")&Chr(34)&"'下载略图大小"& VbCrLf
TempStr=TempStr&"otherupsize="&Chr(34)&replace(STrim(Request.Form("otherupsize")),CHR(34),"'")&Chr(34)&" '频道附件大小"& VbCrLf
TempStr=TempStr&"%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStr,"inc/set.asp"
If GBL_CHK_TempStr="" Then
Response.Write("<script>alert('网站设置成功！');this.location.href='admin.asp?action=right';</script>")
Response.End
Else
GBL_CHK_TempStr=""
End If
End Sub
FUNCTION STrim(str)
	STrim=Trim(Replace(str,vbcrlf,"<br>"))
END FUNCTION
call closedata()%>
123

⌨️ 快捷键说明

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