下面的问题如何解决？
<%
Set rs = server.CreateObject( "adodb.recordset ")sql= "select * from user order by user_id desc "rs.Open sql, db, 1, 1Dim pagenumrs.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>
[解决办法]
顶楼上的
