10-2020
格式： Format_Date_List(Byval t,Byval ftype) 参数： t：传递要格式化的时间 ftype：传递要格式化的样式 代码： Function Format_Date_List(Byval t,Byval ftype) dim y, …
10-2020
格式： Get_Zodiac(ByVal birthday) 参数： birthday：传递生日时间。 代码： Function Get_Zodiac(ByVal birthday) Dim birthyear,Get_ZodiacList If IsDate(birthday) Then birthyear = Year(…
10-2020
格式：Format_Date_Friend(ByVal dt) 参数： dt:指定要处理的时间参数。 代码： Function Format_Date_Friend(ByVal dt) Dim t_SECOND : t_SECOND = 1 Dim t_MINUTE : t_MINUTE …
10-2020
格式：Format_Date_Simple(byVal dt, byVal fmt) 参数： dt:指定要处理的时间参数。 fmt:需要的格式 代码： function Format_Date_Simple(byVal dt, byVal fmt) Format_Date_Simple = fmt …
10-2020
function cutLength(str,length)str=trim(str)str=replace(str, , )str=replace(str,<br>,)str=replace(str,,)if len(str)>length thenstr=left(str,(length-3))&...end ifcutLeng…
10-2020
代码如下:'函数：空值测试 Function inull(Val) Dim tmp tmp = False If IsNull(Val) Then tmp = True ElseIf IsEmpty(Val) Then tmp = True ElseIf Trim(Val) = …
10-2020
<!--#include file=inc/config.asp--><!--#include file=inc/conn.asp--><%if ks=0 then response.write kssm response.endend ifserver_v1=Cstr(Reque…
10-2020
'可以进入的ip '218.7.44.0 - 218.7.45.253 '61.180.240.0 - 61.180.240.253 '202.118.208.0 -&nb…
10-2020
VFP中压缩bai工具duWinRAR的调用-------------------------------------------压缩：DELETE FILE bak.jhzRUN /N7 WinRAR.exe a -ibck -r -k -o+ -y -hp123 -p123 bak.jhz dbf\*.*或RUN /N7 WinRAR.exe a -ib…
