UC知道asp长篇分页显示
来源：百度知道 编辑：UC知道 时间：2024/05/06 14:45:37
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="">
<%
Response.Buffer=True
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("admin/db1.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Dim varid,strSql
varid=Request.QueryString("id")
strSql="Select * From lishi Where id=" & varid
Set rs=db.Execute(strSql)
%>
<%
If RS.Eof And RS.Bof then
Response.Write "当前没有文章!<BR>"
Else
do while not RS.Eof
vartitle=RS("title")
varcount=RS("count")
Response.write "<table width='583' border=
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="">
<%
Response.Buffer=True
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("admin/db1.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Dim varid,strSql
varid=Request.QueryString("id")
strSql="Select * From lishi Where id=" & varid
Set rs=db.Execute(strSql)
%>
<%
If RS.Eof And RS.Bof then
Response.Write "当前没有文章!<BR>"
Else
do while not RS.Eof
vartitle=RS("title")
varcount=RS("count")
Response.write "<table width='583' border=
142? 我没有看到有这么多行啊```加我QQ599100303 我帮你看看
数组维数和元素数目你没有指定，肯定会错，你看看
http://www.itlearner.com/code/vbsdocs/592.htm