📄 admin_setup.asp

📁 秘密网源代码传闻拉了 100W风投
💻 ASP
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
	FormObject.elements["RSSDefaultThreadsPerFeed"].value = 20;
	FormObject.elements["ThreadsPerPage"].value = 20;
	FormObject.elements["PostsPerPage"].value = 15;
	FormObject.elements["MinVoteOptions"].value = 2;
	FormObject.elements["MaxVoteOptions"].value = 20;
	FormObject.elements["DisplayEditNotes"][0].checked = true;
	FormObject.elements["PostEditBodyAgeInMinutes"].value = 0;
	FormObject.elements["AllowDuplicatePosts"][1].checked = true;
	FormObject.elements["PostInterval"].value = 10;
	FormObject.elements["RegUserTimePost"].value = 0;
	FormObject.elements["PopularPostThresholdPosts"].value = 15;
	FormObject.elements["PopularPostThresholdViews"].value = 200;
	FormObject.elements["PopularPostThresholdDays"].value = 3;

	FormObject.elements["UpFileTypes"].value = "gif|jpg|png|bmp|swf|txt|mid|doc|xls|zip|rar";;
	FormObject.elements["MaxPostAttachmentsSize"].value = 10240;
	FormObject.elements["MaxFileSize"].value = 1024;
	FormObject.elements["MaxFaceSize"].value = 30;
	
	
	FormObject.elements["WatermarkFontSize"].value = 25;
	FormObject.elements["WatermarkFontColor"].value = "#000000";
	document.getElementById("WatermarkFontColor").style.backgroundColor = "#000000";
	FormObject.elements["WatermarkFontIsBold"][0].checked = true;


	FormObject.elements["BannedHtmlLabel"].value = "link|script|object|iframe|form|style|div|caption|!--|meta";
	FormObject.elements["BannedHtmlEvent"].value = "javascript:|onerror|onload|onmouseover";
	FormObject.elements["BannedText"].value = "fuck|shit";
	FormObject.elements["BannedRegUserName"].value = "fuck|shit";

	FormObject.elements["EnableAntiSpamTextGenerateForRegister"][0].checked = true;
	FormObject.elements["EnableAntiSpamTextGenerateForLogin"][1].checked = true;
	FormObject.elements["EnableAntiSpamTextGenerateForPost"][1].checked = true;

	FormObject.elements["IntegralAddThread"].value = "+2";
	FormObject.elements["IntegralAddPost"].value = "+1";
	FormObject.elements["IntegralAddValuedPost"].value = "+3";
	FormObject.elements["IntegralDeleteThread"].value = "-2";
	FormObject.elements["IntegralDeletePost"].value = "-1";
	FormObject.elements["IntegralDeleteValuedPost"].value = "-3";
	FormObject.elements["Digjifen"].value = "+2";
	FormObject.elements["Digfabiao"].value = "+1";
	FormObject.elements["Dighuifu"].value = "+1";
	FormObject.elements["DigDel"].value = "-2";
	FormObject.elements["DigDelhuifu"].value = "-1";
	
}

function IsObjInstalled (OjbSpanID,OjbStr) {
	OjbStr == "" ? document.getElementById(OjbSpanID).innerHTML = "" : Ajax_CallBack(false,OjbSpanID,'Loading.asp?menu=IsObjInstalled&Object='+OjbStr);
}
</script>
<%
End Sub

Sub SiteInfo

	If IsObjInstalled("Scripting.FileSystemObject") Then
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		if not fso.folderexists(Server.MapPath("../skin/"&Request("DefaultSiteStyle")&"")) then Alert("默认风格设置错误，skin/"&Request("DefaultSiteStyle")&" 目录不存在！")
		Set fso = nothing
	end if

	if Request("UpFileOption")<>"" then
		if Not IsObjInstalled(Request("UpFileOption")) then Alert("本服务器不支持 "&Request("UpFileOption")&" 组件！请关闭此功能！")
	end if
	
	if Request("SelectMailMode")<>"" then
		if Not IsObjInstalled(Request("SelectMailMode")) then Alert("本服务器不支持 "&Request("SelectMailMode")&" 组件！请关闭此功能！")
		if Request("SmtpServerMail")="" then Alert("请填写发件人的Email地址！")
	end if
	
	if Request("WatermarkOption")<>"" then
		if Not IsObjInstalled(Request("WatermarkOption")) then Alert("本服务器不支持 "&Request("WatermarkOption")&" 组件！请关闭此功能！")
	end if

	if Request("AccountActivation")="1" and Request("SelectMailMode")="" then Alert("您选择了注册窝友密码通过Email发送，但是您没有设定发送邮件组件！")
	
	filtrate=split(Request("BannedIP"),"|")
	for i = 0 to ubound(filtrate)
		if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then Alert("请检查您输入的IP地址是否正确")
	next

	
	FielsStr="UserOnlineTime|Timeout|UserNameMinLength|UserNameMaxLength|ThreadsPerPage|PostsPerPage|RSSDefaultThreadsPerFeed|PostInterval|PostEditBodyAgeInMinutes|RegUserTimePost|PopularPostThresholdPosts|PopularPostThresholdViews|MinVoteOptions|MaxVoteOptions|MaxPostAttachmentsSize|MaxFileSize|MaxFaceSize|AvatarHeight|AvatarWidth|SignatureMaxLength|MemberListPageSize|PopularPostThresholdDays"
	FielsStrArray=split(FielsStr,"|")
	for i=0 to ubound(FielsStrArray)
		if IsNumeric(Request.Form(""&FielsStrArray(i)&""))=false then Alert(FielsStrArray(i)&"输入框内的值，必须是数字类型！")
	next
	
	Rs.Open "[Wo_SiteSettings]",Conn,1,3
	
	XMLDOM.loadxml("<WO>"&Rs("SiteSettingsXML")&"</WO>")
		SiteSettingsXMLStrings=""
		Set objNodes = XMLDOM.documentElement.ChildNodes
		Set objRoot = XMLDOM.documentElement
		for each ho in Request.Form
			objRoot.SelectSingleNode(ho).text = ""&server.HTMLEncode(Request(""&ho&""))&""
		next
		for each element in objNodes	
			SiteSettingsXMLStrings=SiteSettingsXMLStrings&"<"&element.nodename&">"&element.text&"</"&element.nodename&">"&vbCrlf
		next
	Set XMLDOM=nothing
	Rs("SiteSettingsXML")=SiteSettingsXMLStrings
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub

Sub SiteSettingsUp
	Rs.Open "[Wo_SiteSettings]",Conn,1,3
		for each ho in Request.Form
			Rs(ho)=Request(ho)
		next
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub

Sub SiteSettingsUp2
	Rs.Open "[Wo_SiteSettings]",Conn,1,3
		for each ho in Request.Form
			Rs(ho)=Request(ho)
		next
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub

Sub SiteSettingsUp3
	Rs.Open "[Wo_SiteSettings]",Conn,1,3
		for each ho in Request.Form
			Rs(ho)=Request(ho)
		next
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub

Sub SiteSettingsUp4
	Rs.Open "[Wo_SiteSettings]",Conn,1,3
		for each ho in Request.Form
			Rs(ho)=Request(ho)
		next
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub

Sub Showbanner
%>
<form method="POST" action="?menu=SiteSettingsUp">
	<table cellspacing="1" width="100%" border="0" id=CommonListArea>
		<tr id=CommonListTitle3>
			<td align=center colspan="2"><b>HTML代码设置</b></td>
		</tr>
		<tr id=CommonListCell>
			<td align="center" width="20%">版权信息<br><font color="#FF0000">放于页末位置</font> </td>
			<td><textarea name="GenericBottom" rows="6" style="width:100%"><%=GenericBottom%></textarea></td>
		</tr>
	</table>
	<input type="submit" value=" 保 存 "><input type="reset" value=" 重 置 ">
</form>
<%end sub
sub Showbanner2%>
<form method="POST" action="?menu=SiteSettingsUp2">
	<table cellspacing="1" width="100%" border="0" id=CommonListArea>
		<tr id=CommonListTitle3>
			<td align=center colspan="2"><b>HTML代码设置</b></td>
		</tr>
		<tr id=CommonListCell>
			<td align="center" width="20%">页面顶部信息<br><font color="#FF0000">放于&lt;Body&gt;内</font></td>
			<td><textarea name="GenericHeader" rows="6" style="width:100%"><%=GenericHeader%></textarea></td>
		</tr>
	</table>
	<input type="submit" value=" 保 存 "><input type="reset" value=" 重 置 ">
</form>
<%end sub
sub Showbanner3%>
<form method="POST" action="?menu=SiteSettingsUp3">
	<table cellspacing="1" width="100%" border="0" id=CommonListArea>
		<tr id=CommonListTitle3>
			<td align=center colspan="2"><b>HTML代码设置</b></td>
		</tr>
		<tr id=CommonListCell>
			<td align="center" width="20%">Banner (468 x 60)<br><font color="#FF0000">顶部右侧位置</font> </td>
			<td><textarea name="GenericTop" rows="6" style="width:100%"><%=GenericTop%></textarea></td>
		</tr>
	</table>
	<input type="submit" value=" 保 存 "><input type="reset" value=" 重 置 ">
</form>
<%
END SUB
Sub Showbanner4
%>
<form method="POST" action="?menu=SiteSettingsUp4">
	<table cellspacing="1" width="100%" border="0" id=CommonListArea>
		<tr id=CommonListTitle3>
			<td align=center colspan="2"><b>GOOGLE代码设置</b></td>
		</tr>
		<tr id=CommonListCell>
			<td align="center" width="20%">GOOGLE代码<br><font color="#FF0000">放于内容页位置</font> </td>
			<td><textarea name="GGAD72860" rows="6" style="width:100%"><%=GGAD72860%></textarea></td>
		</tr>
	</table>
	<input type="submit" value=" 保 存 "><input type="reset" value=" 重 置 ">
</form>
<%
End Sub

Sub UserAgreement
%>
<form method="POST" action="?menu=SiteSettingsUp">
<table cellspacing="1" width="100%" border="0" id=CommonListArea>
	<tr id=CommonListTitle3>
		<td align=center><b>注册窝友协议设置</b></td>
	</tr>
	<tr id=CommonListCell>
		<td align=center><textarea name="CreateUserAgreement" rows="18" style="width:100%"><%=CreateUserAgreement%></textarea></td>
	</tr>
</table>
<input type="submit" value=" 保 存 ">		<input type="reset" value=" 重 置 ">
</form>
<%
End Sub

%>
上一页 1 2 34
💿 文件大小 1782 K
👤 上传用户 csytml
📂 所属分类其他
🏷️ 相关标签

#100W #源代码
⌨️ 快捷键说明

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