conn.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 45 行

<%
sNameData = "water.mdb"             
Set conn = Server.CreateObject("ADODB.Connection")
strCon ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(sNameData)
conn.Open strCon


Function CkSLen(txt)
dim text,x,y,ii
txt=trim(txt) 
x = len(txt) 
y = 0 
for ii = 1 to x 
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字 
y = y + 2 
else 
y = y + 1 
end if 
next 
CkSLen = y 
End Function 

function IStrg(txt,length) 
txt=trim(txt) 
x = len(txt) 
y = 0 
if x >= 1 then 
for ii = 1 to x 
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '????? 
y = y + 2 
else 
y = y + 1 
end if 
if y >= length then  
txt = left(trim(txt),ii) '如果是汉字 
exit for 
end if 
next 
IStrg = txt 
else 
IStrg = "" 
end if 

End Function 
%>