<%@LANGUAGE="JavaScript"%>
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<HTML>
<BODY>
<%
var myConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=";
myConnect += Server.MapPath("\\")
myConnect += "\\GlobalScripts\\htmlColor.mdb;";
var ConnectObj = Server.CreateObject("ADODB.Connection");
var RS = Server.CreateObject("ADODB.Recordset");
var sql="SELECT * FROM colorChart;";
ConnectObj.Open (myConnect);
RS.Open(sql,ConnectObj,adOpenForwardOnly,adLockReadOnly,adCmdText);
var recordCount = RS.Fields.Count;
var x = 0;
var getFieldNames = false;
Response.Write("<TABLE BORDER=\"1\" CELLSPACING=\"0\">\r");
while (!RS.EOF)
{
if (x >= recordCount)
{
x = 0
}
Response.Write("<TR>");
if (!getFieldNames)
{
while (x <= recordCount-1)
{
Response.Write("<TH>" + RS.Fields(x).Name + "</TH>");
x++;
}
getFieldNames = true;
x = 0;
Response.Write("</TR>\r<TR>")
}
while (x <= recordCount-1)
{
Response.Write("<TD>" + RS.Fields(x).Value + "</TD>");
x++;
}
Response.Write("</TR>\r");
RS.MoveNext();
}
Response.Write("</TABLE>\r");
RS.Close();
ConnectObj.Close();
RS = null;
ConnectObj = null;
%>
</BODY>
</HTML>
[url=javascript:lesson(]Click Here[/url] to run the script in a new window.
I don't think this needs much explaining. The <%@LANGUAGE="JavaScript"%>
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<HTML>
<BODY>
<%
var myConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=";
myConnect += Server.MapPath("\\")
myConnect += "\\GlobalScripts\\htmlColor.mdb;";
var ConnectObj = Server.CreateObject("ADODB.Connection");
var RS = Server.CreateObject("ADODB.Recordset");
var sql="SELECT * FROM colorChart;";
ConnectObj.Open (myConnect);
RS.Open(sql,ConnectObj,adOpenForwardOnly,adLockReadOnly,adCmdText);
var myArray = RS.GetRows().toArray();
Response.Write("Let's see the results of myArray as JavaScript");
Response.Write(" sees them (which is flat).<BR>\r");
Response.Write(myArray + "<BR><BR>\r")
RS.MoveFirst();
var myVBArray = new VBArray(RS.GetRows())
Response.Write("We can use the <I>new VBArray</I> constructor and the ")
Response.Write("<I>getItem( )</I> method. For example: myVBArray.getItem(1,1) ")
Response.Write("returns " + myVBArray.getItem(1,1) + "<BR><BR>\r")
Response.Write("Now lets make something useful.<BR>\r")
Response.Write("<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0>")
Response.Write("\r<TR>")
for (var x=0; x<=myArray.length-1; x++)
{
Response.Write("<TD>" + myArray[x] + "</TD>")
if ((x+1)%RS.Fields.Count==0)
{
Response.Write("</TR>\r<TR>")
}
}
Response.Write("</TR>\r")
Response.Write("</TABLE>")
RS.Close();
RS = null;
ConnectObj.Close();
ConnectObj = null;
%>
</BODY>
</HTML>
[url=javascript:lesson(]Click Here[/url] to run the script in a new window.
Notice when we use [i]getRows( )[/i] we don't get the column names (but that would be really easy to fix). The problem with myArray is that it's not very useful in its raw state. So we use a modulo operator and thanks to a little thing called [i]RS.Fields.Count[/i] we can tell how many times we write data to the table before staring a new table row.
If you like the [i]new VBArray[/i] constructor you should know that you have the following methods: [i]dimensions() getItem() lbound() toArray()[/i] and [i]ubound()[/i].
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有