求matlab的constr優化函數的源代碼，要用但7.0沒有，請高手給個代碼

rs2.open sql2,conn,3,2

%>

<%

dim i,intPage,page,pre,last,filepath

set rs1 = server.CreateObject("adodb.recordset")

sql1="select * from user order by count desc"

rs1.PageSize = 12

rs1.CursorLocation = 3

rs1.Open sql1,conn,1,1