函数 – 青春部落，流年似水

Nelson — Sat, 20 Dec 2014 02:58:53 +0000

html中对图片等比缩放函数代码要考虑的还是有一点小多的。
javascript 对图片进行等比缩放的js函数

函数 – 青春部落，流年似水

Nelson — Tue, 19 Aug 2014 01:30:38 +0000

Function UnicodeToAsciiFile(strFileName)
	'先打开unicode的文件
	set fso = CreateObject("Scripting.FileSystemObject")
	set unicodefile = fso.opentextfile(server.MapPath(strFileName),1,false,-1)'-1是指用unicode方式打开
	
	Dim strFileText
	strFileText = unicodefile.ReadAll'读出文本
	unicodefile.close
	set unicodefile = nothing
	
	response.write strFileText'输出一下文本
	
	'写成ascii的文件
	set fso2 = CreateObject("Scripting.FileSystemObject")
	'Set asciifile = fso2.CreateTextFile(server.MapPath("unicode2ascii.txt"), TRUE , false)
	Set asciifile = fso2.CreateTextFile(server.MapPath(strFileName), TRUE , false)
	asciifile.write strFileText
	asciifile.close
	set unicodefile = nothing
End function