常用ASP自定義函數(shù)全集(5)_ASP教程
推薦:解讀ASP常見錯(cuò)誤類型大全ActiveServerPages,ASP0126(0x80004005)--找不到包含文件 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)--sql語(yǔ)句出錯(cuò)(數(shù)據(jù)類型不匹配或表名(字段名)錯(cuò)誤或表處于編輯狀態(tài),或表不存在于conn打開的數(shù)據(jù)庫(kù)中) MicrosoftOLEDBProviderforODBCDrivers(0x800
'函數(shù)功能:判斷文件是否存在
'相關(guān)參數(shù):FileName
'返回值: 如果存在返回True,否則返回False
Function Filehaveno(FileName)
set ffso=server.createobject("scripting.filesystemobject")
Filehaveno=ffso.FileExists(server.mappath(filename))
set ffso=nothing
End Function
'----------------------------------
'函數(shù)功能:把指定的字符串寫到指定新文件中
'相關(guān)參數(shù):String(字符串),FileName(文件名)
'返回值:無(wú)
Function WriteString(String,FileName)
if string="" then exit function
if filename="" then exit function
if instr(filename,".")=0 then exit function
set ffso=server.createobject("scripting.filesystemobject")
set wfso=ffso.CreateTextFile(server.mappath(filename))
wfso.Writeline(string)
wfso.close
set ffso=nothing
End Function
'---------------------------------------
'字符個(gè)數(shù)統(tǒng)一顯示
'left函數(shù),以英文說(shuō)明為標(biāo)準(zhǔn)
Function LeftTrue(str,n)
If len(str)<=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
'If t>n Then exit for '如果要顯示字符
If t>n Then exit for '如果要顯示漢字
TStr=TStr&(mid(str,i,1))
next
LeftTrue = TStr
End If
End Function
'------------------------------------------
'UTF轉(zhuǎn)GB---將UTF8編碼文字轉(zhuǎn)換為GB編碼文字
function UTF2GB(UTFStr)
for Dig=1 to len(UTFStr) 分享:ASP實(shí)現(xiàn)長(zhǎng)文章手動(dòng)分頁(yè)的代碼% 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
'如果UTF8編碼文字以%開頭則進(jìn)行轉(zhuǎn)換
if mid(UTFStr,Dig,1)="%" then
'UTF8編碼文字大于8則轉(zhuǎn)換為漢字
if len(UTFStr) >= Dig+8 then
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
Dig=Dig+8
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
next
UTF2GB=GBStr
end function
- asp FSO 讀寫文件本文件實(shí)現(xiàn)代碼
- asp中isNull、isEmpty和空字符串的區(qū)別
- asp獲取用戶真實(shí)IP地址的方法
- asp連接sqlserver數(shù)據(jù)庫(kù)實(shí)現(xiàn)代碼
- asp中正則表達(dá)式過濾html代碼函數(shù)
- asp中g(shù)et post提交表單區(qū)別
- 網(wǎng)頁(yè)模板:ASP內(nèi)建對(duì)象Request
- xmlhttp的open方法使用詳解
- ASP的常用的自定義函數(shù)大全
- asp中用for循環(huán)的一個(gè)小技巧
- eWebEditor v3.8 列目錄
- ASP無(wú)組件分頁(yè)實(shí)現(xiàn)思路及代碼
- 相關(guān)鏈接:
- 教程說(shuō)明:
ASP教程-常用ASP自定義函數(shù)全集(5)
。