下面的问题如何解决？
<%
Set   rs   =   server.CreateObject( "adodb.recordset ") sql= "select   *   from   user   order   by   user_id   desc " rs.Open   sql,   db,   1,   1 Dim   pagenum rs.pagesize   =   4     Do   While   Not   rs.EOF   And   i   <   rs.pagesize
%>
<td> <%=trim(rs( "user_name "))%> </td>
上面的代码可以运行成功，请问我想判断user_name的长度如果小于等于4就输出，如果大于等于4就截取数据库字段的“user_name”的前面的4个字符，请问我应该在 <td> </td> 之间加上什么什么代码来实现。
在线等，实现成功立即给分。

------解决方案--------------------
dim uname
Do While Not rs.EOF And i < rs.pagesize
uname = trim(rs( "user_name "))
if len(uname)> 4 then uname=left(uname,4)
%>
<td> <%=uname%> </td>

------解决方案--------------------
顶楼上的