高手请指导这段代码是什么意思!

[dingjingsong]

我们网站当流量达到一定量后就访问不到了,因为数据库的问题?请问高手,下面这段代码是不是制约了网站的访问情况!谢谢!我只有这么多分了,全部送上!,我在线等!太急了!

<%
dim cnndb
dim mdb
dim menuarray(30)
on error resume next
set cnndb=server.CreateObject("adodb.connection")
cnndb.open "Provider=SQLOLEDB;Data Source=(local);uid=spqi;pwd=1234;DataBase=SCZJWebData"
if err.number<>0 then
response.Write("连接数据库失败")
response.end
end if
mySiteName="http://www.spqi.com"

dim vip_type_array(10)
vip_type_array(1)="普通会员"
vip_type_array(2)="黄金会员"
vip_type_array(3)="白金会员"
vip_type_array(4)="钻石会员"
vip_type_array(5)="理事会员"

function LenChinaStr(abcstr)
dim abcdd,abci,abcj,strabc1
abcdd=len(abcstr)
if abcdd>0 then
abcj=0
for abci=1 to abcdd
strabc1=mid(abcstr,abci,1)
if asc(strabc1)<=32 or asc(strabc1)>122 then
abcj=abcj+2
else
abcj=abcj+1
end if
next
LenChinaStr=abcj-1
else
LenChinaStr=0
end if
end function

function ChinaStr(abcstr,strlen,op)
dim abcdd,abci,abcj,strabc1,tmpstr
abcdd=len(abcstr)
if abcdd>0 then
abcj=0
tmpstr=""
if op=1 then
abcstr=strreverse(abcstr)
end if
for abci=1 to abcdd
strabc1=mid(abcstr,abci,1)
tmpstr=tmpstr & strabc1
if asc(strabc1)<=32 or asc(strabc1)>122 then
abcj=abcj+2
if abcj>=strlen then
exit for
end if
else
abcj=abcj+1
if abcj>=strlen then
exit for
end if
end if
next
if op=1 then
chinastr=strreverse(tmpstr)
else
chinastr=tmpstr
end if
else
chinastr=""
end if
end function