<%
function getlengthb(g_str,g_num,g_r)
dim g_i,g_s,g_n
if lenb(g_str)>g_num then
g_s=""
g_n=0
for g_i=1 to len(g_str)
if asc(mid(g_str,g_i,1))<0 or asc(mid(g_str,g_i,1))>255 then
g_n=g_n+2
else
g_n=g_n+1
end if
if g_n<=g_num then
g_s=g_s & mid(g_str,g_i,1)
else
exit for
end if
next
g_s=g_s & g_r
else
g_s=g_str
end if
getlengthb=g_s
end function
dim newStr,newStr2
set rs=server.CreateObject ("adodb.recordset")
sql="select top 13 * from ht_xw where class in (select id from ht_xw_class where keys='yaowen') order by id desc"
rs.Open sql,conn,3
str=""
for i=1 to 8
if rs.eof then
exit for
end if
newStr=newStr & "
