%
'on error resume next
set conn=server.CreateObject("adodb.connection")
conn.open application("conn")
function strIntercept(strName,num)
strLen=len(strName)
line=Cint(strLen/num)
j=1
for i=1 to line
outStr=mid(strName,j,num)
j=j+num
response.write outStr&" "
next
if line*num北京天鸿宝业房地产股份有限公司