<%
'某些网站为了安全，将FSO组件的名称进行更改以达到禁用FSO的目的。如果你的网站是这样做的，请在此输入更改过的名称。默认应为Scripting.FileSystemObject

my_fso="Scripting.FileSystemObject"

'//==========================================================================
'//定义水印设置，只有系统安装ASPJPEG组件并在mycartconn/conn.asp中设置为使用ASPJPEG组件时有效
yin_lx="1"                        '水印类型，0为文本，1为图片水印
yin_logo="/tp/image/sy_logo.gif"     '图片水印位置，绝对路径
yin_logo_Width=120                '图片水印宽度，长度系统会等比缩放
yin_logo_tm=0.5                   '图片水印透明度

'//===========================================================================
'//可分别自定义各处上传超过多少大小的图片则加水印，单位为字节（注：1KB=1024字节）
yin_tp_huiyuan=10240             '会员上传最小加水印的图片大小
yin_tp_user=10240                '商家产品添加处最小加水印的图片大小
yin_tp_qiye=10240                '企业产品添加处最小加水印的图片大小
yin_tp_adminnews=20480           '后台新闻添加处最小加水印的图片大小


'以下程序代码严禁修改
'====================================================================================
'读取整个文件内容子程序
function du_myfso(wj)
set myfso = Server.CreateObject("Scripting.FileSystemObject")
set f = myfso.opentextfile(server.MapPath(wj), 1, TRUE)
du_myfso = f.readall
f.close
set f=Nothing
set myfso=nothing
End Function
'生成文件夹子程序
sub add_myfso (wjj)
set myfso = Server.CreateObject("Scripting.FileSystemObject")
If myfso.FolderExists(server.MapPath(wjj))=False Then
	myfso.CreateFolder server.MapPath(wjj)
End If
set myfso=nothing
end sub
'生成文件子程序
sub add_wj_myfso (wjj,wj,wjnr)
set myfso = Server.CreateObject("Scripting.FileSystemObject")
Set f = myfso.CreateTextFile(server.mappath(wjj&wj),True)
f.WriteLine wjnr
f.close
set f=Nothing
set myfso=nothing
end sub
'修改指定文件FSO子程序
sub xiu_wj_myfso(wjj,wj,wjnr)
set myfso = Server.CreateObject("Scripting.FileSystemObject")
Set f = myfso.opentextfile(server.mappath(wjj&wj),2, TRUE)
f.WriteLine wjnr
f.close
set f=Nothing
set myfso=nothing
end sub
'删除指定文件子程序
sub del_wj_myfso(wj)
set myfso = Server.CreateObject("Scripting.FileSystemObject")
myfso.DeleteFile(server.mappath(wj))
set myfso=nothing
end sub
'============================================================================
'FSO安全修改说明
'我们可以做到禁止他人非法使用FileSystemObject对象,但是我们自己仍然可以使用这个对象. 
'方法如下:查找注册表中 
'HKEY_CLASSES_ROOT\Scripting.FileSystemObject 键值 
'将其更改成为你想要的字符串(右键-->"重命名"),比如更改成为 
'HKEY_CLASSES_ROOT\Scripting.FileSystemObject2 
'这样,在ASP就必须这样引用这个对象了: 
'Set fso = CreateObject("Scripting.FileSystemObject2") 
'而不能使用: 
'Set fso = CreateObject("Scripting.FileSystemObject") 
'如果你使用通常的方法来调用FileSystemObject对象就会无法使用了。 
'只要你不告诉别人这个更改过的对象名称，其他人是无法使用FileSystemObject对象的。这样，作为站点管理者我们就杜绝了他人非法使用FileSystemObject对象，而我们自己仍然可以使用这个对象来方便的实现网站在线管理等等功能了！

function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","") 
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function 

%>