admin_set.asp

网站整站

</tr>
<tr><td class='hr'></td></tr>
<tr>
<td align='center' height='30' class='bg'>
<input type="submit" value="更 新 保 存"  style="width:150px;height:22px" class="button" />
</td>
</tr>
</table>
</form>



<%
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()


'设置网站基本变量
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),"'")
webceo=replace(Trim(Request.Form("webceo")),CHR(34),"'")
webpassport=replace(Trim(Request.Form("webpassport")),CHR(34),"'")
skin=replace(Trim(Request.Form("skin")),CHR(34),"'")
skinmode=replace(Trim(Request.Form("skinmode")),CHR(34),"'")
indexname=replace(Trim(Request.Form("indexname")),CHR(34),"'")
copyright=replace(Trim(Request.Form("copyright")),CHR(34),"'")
keywords=replace(Trim(Request.Form("keywords")),CHR(34),"'")
kicktime=replace(Trim(Request.Form("kicktime")),CHR(34),"'")
status=replace(Trim(Request.Form("status")),CHR(34),"'")
up=replace(replace(Trim(lcase(Request.Form("up"))),CHR(34),"'"),"asp","txt")
upsize=replace(Trim(Request.Form("upsize")),CHR(34),"'")
indexpage=replace(Trim(Request.Form("indexpage")),CHR(34),"'")
yecaopage=replace(Trim(Request.Form("yecaopage")),CHR(34),"'")
adminpage=replace(Trim(Request.Form("adminpage")),CHR(34),"'")
toplist=replace(Trim(Request.Form("toplist")),CHR(34),"'")
bestlist=replace(Trim(Request.Form("bestlist")),CHR(34),"'")
'设置屏蔽变量
rightmenu=replace(Trim(Request.Form("rightmenu")),CHR(34),"'")
logincode=replace(Trim(Request.Form("logincode")),CHR(34),"'")
downdj=replace(Trim(Request.Form("downdj")),CHR(34),"'")
gopic=replace(Trim(Request.Form("gopic")),CHR(34),"'")
gobook=replace(Trim(Request.Form("gobook")),CHR(34),"'")
'设置安全变量
mypassopen=replace(Trim(Request.Form("mypassopen")),CHR(34),"'")
mypass=replace(Trim(Request.Form("mypass")),CHR(34),"'")
mypasskey=replace(Trim(Request.Form("mypasskey")),CHR(34),"'")
'用户变量
user_mode=replace(Trim(Request.Form("user_mode")),CHR(34),"'")
noregtext=replace(Trim(Request.Form("noregtext")),CHR(34),"'")
userup=replace(Trim(Request.Form("userup")),CHR(34),"'")
usernews=replace(Trim(Request.Form("usernews")),CHR(34),"'")
userart=replace(Trim(Request.Form("userart")),CHR(34),"'")
userpic=replace(Trim(Request.Form("userpic")),CHR(34),"'")
userdown=replace(Trim(Request.Form("userdown")),CHR(34),"'")
userdj=replace(Trim(Request.Form("userdj")),CHR(34),"'")
newspl=replace(Trim(Request.Form("newspl")),CHR(34),"'")
artpl=replace(Trim(Request.Form("artpl")),CHR(34),"'")
picpl=replace(Trim(Request.Form("picpl")),CHR(34),"'")
downpl=replace(Trim(Request.Form("downpl")),CHR(34),"'")
djpl=replace(Trim(Request.Form("djpl")),CHR(34),"'")
web=replace(Trim(Request.Form("web")),CHR(34),"'")
webwords=replace(Trim(Request.Form("webwords")),CHR(34),"'")
'设置IP变量
replace_ip=replace(Trim(Request.Form("replace_ip")),CHR(34),"'")


Dim n,TempStr
TempStr=""
TempStr=TempStr&chr(60)&"%" & VbCrLf
TempStr=TempStr&"'◇◆◇◆◇◆『基本信息』◇◆◇◆◇◆"&VbCrLf
TempStr=TempStr&"webpassport="&Chr(34)&webpassport&Chr(34)&"      '设置备案代号" & 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&"webceo="&Chr(34)&webceo&Chr(34)&"        '设置站长名字" & VbCrLf
TempStr=TempStr&"skin="&Chr(34)&skin&Chr(34)&"           '设置站点首页默认皮肤" & VbCrLf
TempStr=TempStr&"skinmode="&Chr(34)&skinmode&Chr(34)&"    '设置皮肤读取模式" & VbCrLf 
TempStr=TempStr&"indexname=split("""&indexname&""",""|"")      '设置站点频道名称" & VbCrLf
TempStr=TempStr&"indexpage=split("""&indexpage&""",""|"") '首页设置，新闻|文章|图片|娱乐|下载|连接|公告" & VbCrLf
TempStr=TempStr&"yecaopage=split("""&yecaopage&""",""|"") '分页设置，新闻|文章|图片|娱乐|下载|连接|留言" & VbCrLf
TempStr=TempStr&"copyright="&Chr(34)&copyright&Chr(34)&"  '设置版权信息" & VbCrLf
TempStr=TempStr&"keywords="&Chr(34)&keywords&Chr(34)&"    '网站关键字" & VbCrLf
TempStr=TempStr&"kicktime="&Chr(34)&kicktime&Chr(34)&"    '在线用户超时时间" & VbCrLf
TempStr=TempStr&"status="&Chr(34)&status&Chr(34)&"        '状态栏信息" & VbCrLf
TempStr=TempStr&"'◇◆◇◆◇◆『上传文件格式设置』◇◆◇◆◇◆" & VbCrLf
TempStr=TempStr&"up="&Chr(34)&up&Chr(34)&"                '附件格式" & VbCrLf
TempStr=TempStr&"upsize="&Chr(34)&upsize&Chr(34)&"            '附件大小" & VbCrLf
TempStr=TempStr&"adminpage="&adminpage&"     '后台分页设置" & VbCrLf
TempStr=TempStr&"toplist="&toplist&"         '点击排行设置" & VbCrLf
TempStr=TempStr&"bestlist="&bestlist&"       '本站推荐设置" & VbCrLf
TempStr=TempStr&"'◇◆◇◆◇◆『用户设置』◇◆◇◆◇◆" & VbCrLf
TempStr=TempStr&"noregtext="&Chr(34)&noregtext&Chr(34)&"   '屏蔽注册说明" & VbCrLf
TempStr=TempStr&"user_mode="&Chr(34)&user_mode&Chr(34)&"   '用户系统模式" & VbCrLf
TempStr=TempStr&"usernews="&Chr(34)&usernews&Chr(34)&" '是否可以发布新闻" & VbCrLf
TempStr=TempStr&"userart="&Chr(34)&userart&Chr(34)&"   '是否可以发布文章" & VbCrLf
TempStr=TempStr&"userdj="&Chr(34)&userdj&Chr(34)&"    '是否可以发布娱乐" & VbCrLf
TempStr=TempStr&"userpic="&Chr(34)&userpic&Chr(34)&"   '是否可以发布图片" & VbCrLf
TempStr=TempStr&"userdown="&Chr(34)&userdown&Chr(34)&" '是否可以发布下载" & VbCrLf
TempStr=TempStr&"'◇◆◇◆◇◆『屏蔽设置』◇◆◇◆◇◆" & VbCrLf
TempStr=TempStr&"downdj="&Chr(34)&downdj&Chr(34)&"        '设置是否下载娱乐" & VbCrLf
TempStr=TempStr&"gopic="&Chr(34)&gopic&Chr(34)&"        '设置图片滚动" & VbCrLf
TempStr=TempStr&"gobook="&Chr(34)&gobook&Chr(34)&"        '设置游客留言" & VbCrLf
TempStr=TempStr&"web="&Chr(34)&web&Chr(34)&"              '设置是否打开站点" & VbCrLf
TempStr=TempStr&"rightmenu="&Chr(34)&rightmenu&Chr(34)&"  '设置右键开关" & VbCrLf
TempStr=TempStr&"logincode="&Chr(34)&logincode&Chr(34)&"  '设置验证码开关" & VbCrLf
TempStr=TempStr&"webwords="&Chr(34)&webwords&Chr(34)&"    '设置维护说明" & VbCrLf
TempStr=TempStr&"'◇◆◇◆◇◆『评论设置』◇◆◇◆◇◆" & VbCrLf
TempStr=TempStr&"newspl="&Chr(34)&newspl&Chr(34)&"    '新闻评论开关" & VbCrLf
TempStr=TempStr&"artpl="&Chr(34)&artpl&Chr(34)&"      '文章评论开关" & VbCrLf
TempStr=TempStr&"picpl="&Chr(34)&picpl&Chr(34)&"      '图片评论开关" & VbCrLf
TempStr=TempStr&"downpl="&Chr(34)&downpl&Chr(34)&"    '下载评论开关" & VbCrLf
TempStr=TempStr&"djpl="&Chr(34)&djpl&Chr(34)&"        '娱乐评论开关" & VbCrLf
TempStr=TempStr&"'◇◆◇◆◇◆『安全设置』◇◆◇◆◇◆" & VbCrLf
TempStr=TempStr&"mypassopen="&Chr(34)&mypassopen&Chr(34)&"  '二次密码启动开关" & VbCrLf
TempStr=TempStr&"mypasskey="&Chr(34)&mypasskey&Chr(34)&"    '二次密码启动值" & VbCrLf
TempStr=TempStr&"mypass="&Chr(34)&mypass&Chr(34)&"          '二次密码" & VbCrLf
TempStr=TempStr&"'◇◆◇◆◇◆『ip设置』◇◆◇◆◇◆" & VbCrLf
TempStr=TempStr&"replace_ip="&Chr(34)&replace_ip&Chr(34)&"  'IP封锁，用|分隔多个IP。" & VbCrLf
TempStr=TempStr&"%"&chr(62)&VbCrLf
ADODB_SaveToFile TempStr,"inc/set.asp"
If GBL_CHK_TempStr="" Then
Response.Write("<script>this.location.href='admin.asp?action=right';</script>")
Response.End
Else
Response.Write("<textarea name=""fileContent"" cols=""80"" rows=""30"">"&Server.htmlencode(TempStr)&"</textarea>")
GBL_CHK_TempStr=""
End If
End Sub
call closedata()%>