config.asp

来自「站长俱乐部新闻发布程序 采用全新代码设计,完全不同于国内所有程序 采用国际」· ASP 代码 · 共 31 行

<!--
 * 		QQ:23365210
-->
<%

' SECURITY: You must explicitelly enable this "connector" (set it to "True"). 
Dim ConfigIsEnabled
ConfigIsEnabled = True

' Path to user files relative to the document root.
Dim ConfigUserFilesPath
'ConfigUserFilesPath = "/UserFiles/"
ConfigUserFilesPath = Session("Site_uploadDir")

Dim ConfigAllowedExtensions, ConfigDeniedExtensions
Set ConfigAllowedExtensions	= CreateObject( "Scripting.Dictionary" )
Set ConfigDeniedExtensions	= CreateObject( "Scripting.Dictionary" )

ConfigAllowedExtensions.Add	"File", ""
ConfigDeniedExtensions.Add	"File", "php|php2|php3|php4|php5|phtml|pwml|inc|asp|aspx|ascx|jsp|cfm|cfc|pl|bat|exe|com|dll|vbs|js|reg|cgi"

ConfigAllowedExtensions.Add	"Image", "jpg|gif|jpeg|png|bmp"
ConfigDeniedExtensions.Add	"Image", ""

ConfigAllowedExtensions.Add	"Flash", "swf|fla"
ConfigDeniedExtensions.Add	"Flash", ""

ConfigAllowedExtensions.Add	"Media", "swf|fla|jpg|gif|jpeg|png|avi|mpg|mpeg|mp(1-4)|wma|wmv|wav|mid|midi|rmi|rm|ram|rmvb|mov|qt"
ConfigDeniedExtensions.Add	"Media", ""

%>