<% 'Msg(str) 消息函数 '参数说明: str:显示字符 Sub Msg(str,method) Response.Clear() Response.Write "<mce:script type="text/javascript"><!-- " &_ "alert('"&str&"');"&method&" // --></mce:script>" Response.End() End Sub 'vbscript方式的消息输出函数 sub msgshow(strmemo,method) with response .clear .write"<mce:script language='vbscript'><!-- "&vbcrlf&_ "MyVar = MsgBox("""&strmemo&""", 64, ""友情提示"")"&vbcrlf&method&vbcrlf&_ " // --></mce:script>" .end end with end sub '调试模式 Function debug(str) Response.Clear() Response.Write(str) Response.End() end Function '输出隐藏内容 Function showhidden(str) showhidden="<span style="display:none" mce_style="display:none">"&str&"</span>" End Function Function CheckNull(strValue) If IsNull(strValue) OR IsEmpty(strValue) OR strValue = "" Then CheckNull = true Else CheckNull = false End If End Function Function CheckNum(strValue) If strValue <> "" AND IsNumeric(strValue) Then CheckNum = true Else CheckNum = false End If End Function '==================================== Function Requests(strValue) strValue = Trim(Request(strValue)) if IsEmpty(strValue) then strValue = empty Else strValue=Replace(strValue,"'","''") strValue=Replace(strValue,";","") strValue=Replace(strValue,"--","") End If Requests = strValue End Function Function RequestForm(strValue) strValue = Trim(Request.Form(strValue)) if IsEmpty(strValue) then strValue=empty Else strValue=Replace(strValue,"'","''") strValue=Replace(strValue,"--","") end if RequestForm = strValue end function Function RequestString(strValue) strValue = Trim(Request.QueryString(strValue)) if IsEmpty(strValue) then strValue=empty exit Function Else strValue=Replace(strValue,"'","''") strValue=Replace(strValue,";","") strValue=Replace(strValue,"--","") end if RequestString = strValue end function function StrReplace(Str)'表单存入替换字符 if Str="" or isnull(Str) then StrReplace="" exit function else StrReplace=replace(str," "," ") '" " StrReplace=replace(StrReplace,chr(13),"<br>")'"<br>" StrReplace=replace(StrReplace,"<","<")' "<" StrReplace=replace(StrReplace,">",">")' ">" end if end function function ReStrReplace(Str)'写入表单替换字符 if Str="" or isnull(Str) then ReStrReplace="" exit function else ReStrReplace=replace(Str," "," ") '" " ReStrReplace=replace(ReStrReplace,"<br>",chr(13))'"<br>" ReStrReplace=replace(ReStrReplace,"<br>",chr(13))'"<br>" ReStrReplace=replace(ReStrReplace,"<BR>",chr(13))'"<br>" ReStrReplace=replace(ReStrReplace,"<BR>",chr(13))'"<br>" ReStrReplace=replace(ReStrReplace,"<","<")' "<" ReStrReplace=replace(ReStrReplace,">",">")' ">" end if end function function HtmlStrReplace(Str)'写入Html网页替换字符 if Str="" or isnull(Str) then HtmlStrReplace="" exit function else HtmlStrReplace=replace(Str,"<br>","<br>")'"<br>" HtmlStrReplace=replace(HtmlStrReplace,"<BR>","<br>")'"<br>" end if end function '截取字符串 function StrLeft(Str,StrLen) dim L,T,I,C if Str="" then StrLeft="" exit function end if Str=Replace(Replace(Replace(Replace(Str," "," "),""",Chr(34)),">",">"),"<","<") L=Len(Str) T=0 for i=1 to L C=Abs(AscW(Mid(Str,i,1))) if C>255 then T=T+2 else T=T+1 end if if T>=StrLen then StrLeft=Left(Str,i) & "…" exit for else StrLeft=Str end if next StrLeft=Replace(Replace(Replace(replace(StrLeft," "," "),Chr(34),"""),">",">"),"<","<") end function %> <% '================================================ '函数名:FormatDate '作 用:格式化日期 '参 数:DateAndTime (原日期和时间) ' Format (新日期格式) '返回值:格式化后的日期 '================================================ Function FormatDate(DateAndTime, Format) On Error Resume Next Dim yy,y, m, d, h, mi, s, strDateTime FormatDate = DateAndTime If Not IsNumeric(Format) Then Exit Function If Not IsDate(DateAndTime) Then Exit Function yy = CStr(Year(DateAndTime)) y = Mid(CStr(Year(DateAndTime)),3) m = CStr(Month(DateAndTime)) If Len(m) = 1 Then m = "0" & m d = CStr(Day(DateAndTime)) If Len(d) = 1 Then d = "0" & d h = CStr(Hour(DateAndTime)) If Len(h) = 1 Then h = "0" & h mi = CStr(Minute(DateAndTime)) If Len(mi) = 1 Then mi = "0" & mi s = CStr(Second(DateAndTime)) If Len(s) = 1 Then s = "0" & s Select Case Format Case "1" strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case "2" strDateTime = yy & m & d & h & mi & s '返回12位 直到秒 的时间字符串 Case "3" strDateTime = yy & m & d & h & mi '返回12位 直到分 的时间字符串 Case "4" strDateTime = yy & "年" & m & "月" & d & "日" Case "5" strDateTime = m & "-" & d Case "6" strDateTime = m & "/" & d Case "7" strDateTime = m & "月" & d & "日" Case "8" strDateTime = y & "年" & m & "月" Case "9" strDateTime = y & "-" & m Case "10" strDateTime = y & "/" & m Case "11" strDateTime = y & "-" & m & "-" & d Case "12" strDateTime = y & "/" & m & "/" & d Case "13" strDateTime = yy & "." & m & "." & d Case Else strDateTime = DateAndTime End Select FormatDate = strDateTime End Function %>