asp+javascript急急急急急急??
各位大哥我的代码老是出现microsoft jscript错误或adodb.Recoredset错误.请各位看看??
<%@language="javascript"%>
<!--#include file="adojavas.INC"-->
<%
var conn;
conn=Server.CreateObject("ADODB.CONNECTION")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("dc.mdb")
conn.Open()
var rs;
var Page;
rs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=conn
str="SELECT * FROM information ORDER BY 时间 DESC"
rs.Open(str,conn,1,1)
if(rs.Eof && rs.Bof)
{
Response.Write("<DIV ALIGN='CENTER'><font color='#000000' size='4px' face='宋体'>没有任何记录</font></DIV>");
}
else
{
Response.Write("<TABLE WIDTH='54%' ALIGN='CENTER' BORDER='0' CELLSPACING='1' CELLPADDING='1' bgcolor='#000000' color='#ffffff' style='BORDER-RIGHT:2px outset; BORDER-TOP:2px outset; FONT-SIZE:10pt; BORDER-LEFT:2px outset; BORDER-BOTTOM:2px outset'>");
Response.Write("<tr>");
Response.Write("<td><div align='center' style='font-size:14px;font-family:Arial,宋体;color:#ffffff'>")%><%=rs.RecordCount%>
<%
Response.Write("</div></td>");
Response.Write("</tr>");
Response.Write("<tr>");
Response.Write("<td width='35%'><font color='#ffffff'><b>企业或单位名称</b></font></td>");
Response.Write("<td width='20%'><font color='#ffffff'><b>时间</font></b></td>");
Response.Write("</tr>");
if(Request.QueryString("Page")!="")
{
if((Request.QueryString("Page")==0) || (Request.QueryString("Page")<1))
{
Page=1
}
else
{
Page=Request.QueryString("Page")
}
}
rs.PageSize=10;
rs.AbsolutePage=Page;
for(i=1;i<=rs.PageSize;i++)
{
Response.Write("<tr>");
Response.Write("<td width='35%'><font color='#ffffff'>")%><%=rs.Fields("企业")%>
<%
Response.Write("</td>");
Response.Write("<td width='20%'><font color='#ffffff'>")%><%=rs.Fields("时间")%>
<%
Response.Write("</tr>");
if(!rs>PageSize)
{
rs.MoveNext
}
}
Response.Write("</table>");
Response.Write("</div></marquee>");
%>
<%
if(Request.QueryString("Page")!=1)
{
Response.Write("<div align=center><A HREF='information.asp?Page=1'>首页</A> <A HREF='information.asp?Page=<%(Page-1)%>'>上一页 </A></div>")
}
if(Request.QueryString("Page")!=PageCount)
{
Response.Write("<div align=center><A HREF=information.asp?Page=<%=(Page+1)%>>下一页</A> <A HREF='information.asp?Page=<%=rs.PageCount%>'>尾页</A></div>")
Response.Write("<div align=center></div>")
}
rs.Close()
conn.Close()
}
%>