<%
function cutStr(str,strlen)
dim l,t,c
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
cutStr=left(str,i)
exit for
else
cutStr=str
end if
next
cutStr=replace(cutStr,chr(10),"")
end function
%>
深圳服装设计培训专题-深圳服装培训-深圳服装设计师培训
<%
Set Rs=server.createobject("adodb.recordset")
sql="select top 8 * from course where ntypeid=92 and vip=1 order by id desc"
Rs.open SQL,conn,1,1
do while not rs.eof
%>
<%
Set Rs=server.createobject("adodb.recordset")
sql="select top 25 * from course where ntypeid=92 order by gxtime,id desc"
Rs.open SQL,conn,1,1
do while not rs.eof
%>
