推薦：解讀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)
   '如果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實(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

ASP視頻教程

ASP系列課程從入門到精通教程打包下載  黑鷹ASP視頻教程下載  黑鷹基地ASP特訓(xùn)班教程  FIF ASP互動(dòng)視頻VIP教程下載  輕輕松松學(xué)編程！FIF小組ASP互動(dòng)視頻教程  ASP操作ACCESS數(shù)據(jù)庫(kù)視頻教程