function.asp

这是去年开发的中移鼎讯手机进销存系统 大家

<%
Class Sk
	Private bug
	Private InputStr
	Private s_Time
	Private n_Flag
	Function Sqlbug(bug)
		bug=Trim(bug)
		bug=replace(bug," ","　")
		bug=replace(bug," or ","　ＯＲ　")
		bug=replace(bug,"'","’")
		bug=replace(bug,",","，")
		sqlbug=bug
	End Function
	Function ChkInputStr(InputStr)
		InputStr=trim(InputStr)
		InputStr=replace(InputStr,"<","&lt;")
		InputStr=replace(InputStr,">","&gt;")
		'InputStr=InputStr(sEnd,".","。")
		'InputStr=InputStr(sEnd,"/","／")
		ChkInputStr=InputStr
	End Function
	Function Format_Time(s_Time, n_Flag)
		Dim y, y1, m, d, h, mi, s
		Format_Time = ""
		If IsDate(s_Time) = False Then Exit Function
		y = cstr(year(s_Time))
		y1 = cstr(right(year(s_Time),2))
		m = cstr(month(s_Time))
		If len(m) = 1 Then m = "0" & m
		d = cstr(day(s_Time))
		If len(d) = 1 Then d = "0" & d
		h = cstr(hour(s_Time))
		If len(h) = 1 Then h = "0" & h
		mi = cstr(minute(s_Time))
		If len(mi) = 1 Then mi = "0" & mi
		s = cstr(second(s_Time))
		If len(s) = 1 Then s = "0" & s
		Select Case n_Flag
		Case 1
			' yyyy-mm-dd hh:mm:ss
			Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
		Case 2
			' yyyy-mm-dd
			Format_Time = y & "-" & m & "-" & d
		Case 3
			' hh:mm:ss
			Format_Time = h & ":" & mi & ":" & s
		Case 4
			' yyyy年mm月dd日
			Format_Time = y & "年" & m & "月" & d & "日"
		Case 5
			' yyyymmdd
			Format_Time = y & m & d
		Case 6
			' mm-dd
			Format_Time = m & "-" & d
		Case 7
			'yymmddhhmmss年月日时分秒
			Format_Time = y1 & m & d & h & mi & s	
		Case 8
			' yyyy年mm月dd日hh时mm分
			Format_Time = m & "-" & d & " " & h & ":" & mi
			
		End Select
	End Function
		
End Class
Dim objst,Astr
Set objst = New Sk
Astr="fdsa<fdas>dfas"
Response.Write objst.ChkInputStr(Astr)
Response.Write "<br>"
Response.Write objst.Format_Time(now(),3)

'字符处理类
'时间处理类
'分页类


%>