function.asp

来自「图书管管理系统」· ASP 代码 · 共 36 行

<!--#include file="adovbs.inc"-->
<%	
	Function GetFileName(imagespath)
		If imagespath <> "" Then
			GetFileName = "UpImages/" & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&Right(imagespath,4)
		Else	
			GetFileName =""
		End If
	End Function
	
	Function upImages(imagespath)
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Type = 1 
		objStream.Open
		objStream.LoadFromFile imagespath
		objStream.SaveToFile Server.MapPath(GetFileName(imagespath)),adSaveCreateOverWrite
		objStream.Close
		If ERR.number<>0 Then
			upImages = 0 
		Else
			upImages = 1
		End If
	End Function
	
	Function unHtml(content)
		unHtml=content
		If content <> "" Then
			unHtml=replace(unHtml,"&","&amp;")
			unHtml=replace(unHtml,"<","&lt;")
			unHtml=replace(unHtml,">","&gt;")
			unHtml=replace(unHtml,chr(34),"&quot;")
			unHtml=replace(unHtml,chr(13),"<br>")
			unHtml=replace(unHtml,chr(32),"&nbsp;")
		End If
	End Function
%>