Function Safecheckstr(Str) If Isnull(Str) Then Safecheckstr = "" Exit Function End If Str = Replace(Str,Chr(0),"", 1, -1, 1) 'Str = Replace(Str, """", """, 1, -1, 1) Str = Replace(Str,"<&
function UBBCode(strContent,ctype) on error resume next if ctype=1 then strContent = HTMLEncode(strContent) else strContent = strContent end if dim objRegExp Set objRegExp=new RegExp objRegExp.IgnoreCase =
'參數:目錄名(相對路徑),對象,頁碼,每頁幾條 Public Function ShowFileList(folderUrl,tag,page_Num,page_Size,listType) Dim f,f1,fc,i,temp,page_Count,disabledtf,tagExp On Error Resume Next temp =
'參數:檔案名稱(相對路徑) '傳回值:0大小 1建立時間 2最後修改時間 3最後瀏覽時間 4路徑 5類型 6名稱 Public Function GetFileInfo(FileName) Dim f,temp Dim file(7) On Error Resume Next temp = Server.Mappath(FileName) If
<%'這裡一定要完整的絕對路徑,前面再加上“\?”'delfolder "\?E:wwwliuhecai."'刪除檔案夾'delfile "\?E:wwwuserliuhecai.index.asp教程"'刪除檔案function Delfolder(t0) 'On Error Resume Next Set fso=Server.Cre
Public Function DateToStr(DateTime,ShowType) Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond Dim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2 TimeZone1="+0800"
Public Function TimeToDiff(DateTime) If IsDate(DateTime) Then Dim tSecond:tSecond=DateDiff("s",DateTime,Now()) If tSecond<60 Then'//一分鐘內 TimeToDiff="剛剛"