常用ASP自定義函數全集_ASP教程

推薦：解讀ASP常見錯誤類型大全
ActiveServerPages,ASP0126(0x80004005)--找不到包含文件 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)--sql語句出錯(數據類型不匹配或表名(字段名)錯誤或表處于編輯狀態，或表不存在于conn打開的數據庫中) MicrosoftOLEDBProviderforODBCDrivers(0x800

<%

'========================================================
'函數導航
'FormatDate(DT,tp) ------------------------------------------日期格式化
'IsInteger(para)   ---------------------------檢測傳遞的參數是否為數字型
'ChkrequestDate(Para) -----------------------檢測傳遞的參數是否為日期型
'ChkPost() ------------------------------------不允許外部提交數據的選擇
'IsValidEmail(email)------------------------------------------Email檢測
'MakedownName()--------------------------------構造上傳圖片文件名隨機數
'getIP() ----------------------------------------------------獲取IP地址
'LeftTrue(str,n)---------------------------------------字符個數統一顯示
'CheckSql()-為了系統的安全，直接在有數據庫連接的地方都加上SQL注入的免疫
'Runtime()---------------------------------------------程序執行時間檢測
'--------------------FSO文件|文件夾操作--------------------------------
'Checkfolder(folderpath)-------------------------------------創建文件夾
'Deletefolder(folderpath) -----------------------------------刪除文件夾
'Filehaveno(FileName) ---------------------------------判斷文件是否存在
'readfilerecord(Filename) -----------將指定的文件內容讀出|只能是txt文本
'WriteString(String,FileName)------------把指定的字符串寫到指定新文件中
'--------------------進制轉化|加密|------------------------------------
'Encrypt(theNumber)| Decrypt(theNumber)   一套加解密ID的函數,最多8位
'UTF2GB(UTFStr) -------------------------將UTF8編碼文字轉換為GB編碼文字
'toUTF8(szInput)-------------------------將GB編碼文字轉換為UTF8編碼文字
'c10to2(x)-----------------------------------十進制代碼轉換為二進制代碼
'c16to2(x)---------------------------------十六進制代碼轉換為二進制代碼
'c2to16(x)---------------------------------二進制代碼轉換為十六進制代碼
'c2to10(x)-----------------------------------二進制代碼轉換為十進制代碼  
'=========================================================
%>
<%
StartTime=timer()
'日期格式化
Function FormatDate(DT,tp)
dim Y,M,D
Y=Year(DT)
M=month(DT)
D=Day(DT)
if M<10 then M="0"&M
if D<10 then D="0"&D
select case tp
case 1 FormatDate=Y&"年"&M&"月"&D&"日"
case 2 FormatDate=Y&"/"&M&"/"&D
case 3 FormatDate=M&"/"&D
     case 4 FormatDate=Y&"\"&M&"\"&D
case 5 FormatDate=Y&"-"&M&"-"&D
end select
End Function
'--------------------------------
' ---判斷數據是否整型 Being-----------------------------
Function IsInteger(para)
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
end if
next
isInteger=true
if err.number<>0 then err.clear
End Function
'--------------------------------
'檢測傳遞的參數是否為日期型
Function ChkrequestDate(Para)
ChkrequestDate=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsDate(Para)) Then
    ChkrequestDate=True
End If
End Function
'--------------------------------

分享：ASP實現長文章手動分頁的代碼
% setrecordset1=server.createobject(adodb.recordset) exec=SELECT*FROMnewswhereid=id recordset1.Openexec,conn,1,1 % tablewidth=85%border=0align=centercellpadding=3cellspacing=0 trtd ....... % IfRequest(page)=Then pageNum=0