func-common.asp

简介：一个程序小巧而功能强大

<%
function sql_encode(content_in)
	'Remove any characters that may cause sql input erors.
	content = content_in
	content = replace(content, "'", " ")
	sql_encode = content
	
end function

function clean_text(content_in, Allow_HTML)
 	'Removes html and any characters that may cause sql input errors from the specified text.
	
 	content = content_in
	content = replace(content, "'", "&#8217;")
	if Allow_HTML = 0 then		
		'html removal, convert < to &lt; Un-comment to enable.
		content = replace(content, "<", "&lt;")
	end if
	content = replace(content, vbcrlf, "<BR>")
	content = replace(content, "  ", " &nbsp;")
	clean_text = content
	
end function

function db_time()

	db_time = year(date)

	if month(date) < 10 then
		db_time = db_time & "0" & month(date)
	else
		db_time = db_time & "0" & month(date)
	end if

	if day(date) < 10 then
		db_time = db_time & "0" & day(date)
	else
		db_time = db_time & day(date)
	end if

	if hour(time) < 10 then
		db_time = db_time & "0" & hour(time)
	else
		db_time = db_time & hour(time)
	end if

	if minute(time) < 10 then
		db_time = db_time & "0" & minute(time)
	else
		db_time = db_time & minute(time)
	end if

	if second(time) < 10 then
		db_time = db_time & "0" & second(time)
	else
		db_time = db_time & second(time)
	end if
	
end function

function web_time(time_in, format, length)

	'Convert time from string into date/time format.
	if format = "UK" then
		if length = "short" then
			web_time = mid(time_in, 7, 2) & "/" & mid(time_in, 5, 2) & "/" & left(time_in, 4)
		else
			web_time = mid(time_in, 7, 2) & "/" & mid(time_in, 5, 2) & "/" & left(time_in, 4) & " " & mid(time_in, 9, 2) & ":" & mid(time_in, 11, 2) & ":" & right(time_in, 2)
		end if
	end if
	
	if format = "US" then
		if length = "short" then
			web_time = mid(time_in, 7, 2) & "/" & mid(time_in, 5, 2) & "/" & left(time_in, 4)
		else
			web_time = mid(time_in, 5, 2) & "/" & mid(time_in, 7, 2) & "/" & left(time_in, 4) & " " & mid(time_in, 9, 2) & ":" & mid(time_in, 11, 2) & ":" & right(time_in, 2)
		end if
	end if
	
end function

function web_date(date_in, format)

	if format = "UK" then
		web_date = left(date_in, 2) & "/" & mid(date_in, 3, 2) & "/" & right(date_in, 4)
	end if
	
	if format = "US" then
		web_date = mid(date_in, 3, 2) & "/" & left(date_in, 2) & "/" & right(date_in, 4)
	end if

end function

function serialisation(nothinghere)

  tmpSerial = "<iframe src=""http://www.dented.co.uk/products/dboard/key.asp"" height=""0"" width=""0"" frameborder=""0"" marginheight=""0"" marginwidth=""0"" scrolling=""0"" vspace=""0""></iframe>"
  serialisation = tmpSerial
  
end function


function search_date(interval)

	search_date = year(DateAdd("d",interval, date()))

	if month(DateAdd("d",interval, date())) < 10 then
		search_date = search_date & "0" & month(DateAdd("d",interval, date()))
	else
		search_date = search_date & month(DateAdd("d",interval, date()))
	end if

	if day(DateAdd("d",interval, date())) < 10 then
		search_date = search_date & "0" & day(DateAdd("d",interval, date()))
	else
		search_date = search_date & day(DateAdd("d",interval, date()))
	end if

	if hour(time()) < 10 then
		search_date = search_date & "0" & hour(DateAdd("d",interval, date()))
	else
		search_date = search_date & hour(DateAdd("d",interval, date()))
	end if

	if minute(time()) < 10 then
		search_date = search_date & "0" & minute(DateAdd("d",interval, date()))
	else
		search_date = search_date & minute(DateAdd("d",interval, date()))
	end if

	if second(time) < 10 then
		search_date = search_date & "0" & second(time)
	else
		search_date = search_date & second(time)
	end if
	
end function

function search_time(interval)

	search_time = year(DateAdd("n", interval, now()))

	if month(DateAdd("n", interval, now())) < 10 then
		search_time = search_time & "0" & month(DateAdd("n",interval, now()))
	else
		search_time = search_time & month(DateAdd("n",interval, now()))
	end if

	if day(DateAdd("n",interval, now())) < 10 then
		search_time = search_time & "0" & day(DateAdd("n",interval, now()))
	else
		search_time = search_time & day(DateAdd("n",interval, now()))
	end if

	if hour(DateAdd("n",interval, now())) < 10 then
		search_time = search_time & "0" & hour(DateAdd("n",interval, now()))
	else
		search_time = search_time & hour(DateAdd("n",interval, now()))
	end if

	if minute(DateAdd("n",interval, now())) < 10 then
		search_time = search_time & "0" & minute(DateAdd("n",interval, now()))
	else
		search_time = search_time & minute(DateAdd("n",interval, now()))
	end if

	if second(DateAdd("n",interval, now())) < 10 then
		search_time = search_time & "0" & second(DateAdd("n",interval, now()))
	else
		search_time = search_time & second(DateAdd("n",interval, now()))
	end if
	
end function
%>