常用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