据说Macromedia正在开发UD的下一代产品，内部名称：Philistine。今天凌晨在国外某网站偶然找到了这个东东，是一个内部测试版，只限于在开发人员内部使用。我试着做了一个页面，结果叫人惊叹不已，Philistine生成的代码非常简洁，而且和其他工具写出的程序的兼容性非常好。可以预见，很快就会有人用激动人心、革命等字眼来形容这一产品的问世。我相信，制作Philistine的Macromedia的工程师们，已经全面超过了Microsoft的工程师，甚至可以毫不夸张的说，已经超过了一大截。
下面是一个查询页面，如果在以前，这个页面的大小是8K，现在是1.92K。
<% @language="javascript"%>
<%
if(Request.ServerVariables("Query_String")!="")
var offset=Request.QueryString("offset");
else
var offset=1;
var mycn=Server.CreateObject("ADODB.Connection");
mycn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" + Server.MapPath("/firstsite/db/mydb.mdb") + "";
mycn.Open();
var myrs=Server.CreateObject("ADODB.Recordset");
myrs.ActiveConnection=mycn;
myrs.Source="SELECT * FROM login_userinfo";
myrs.CursorType=3;
myrs.CursorLocation=2;
myrs.LockType=3;
myrs.Open();
myrs.PageSize=4;
if(offset<=myrs.PageCount&&offset>=1)
myrs.AbsolutePage=offset;
else
myrs.AbsolutePage=1;
var prepage=offset;
var curpage=offset;
var nextpage=offset;
var fromrecord=curpage*4-3;
var torecord=fromrecord+3;
%>










<%
for(i=0;i<4&&!myrs.EOF;i++)
{Response.Write("");
myrs.MoveNext;}%>

姓名

"+myrs.Fields.Item("username").value+"

<%
if(curpage==1)
Response.Write("最前页 上一页");
else
{
%>
最前页
上一页
<%
}
if(curpage==myrs.PageSize)
Response.Write("下一页 最后页");
else
{
%>
下一页
最后页
<%
}
%>


">
当前共有<%=myrs.PageCount%>页。这是第<%=curpage%>页到第

页

当前共有<%=myrs.RecordCount%>帖。这是第<%=fromrecord%>帖到第<%=torecord%>帖

<%
myrs.Close();
%>