28,390
社区成员
发帖
与我相关
我的任务
分享怎么才能控制每页的显示条数？
另外如果我想修改其中的记录又该怎么做？
我的代码如下：
<HTML>
<HEAD>
<TITLE>数据显示</TITLE>
</HEAD>
<BODY background="images/background.jpg">
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=MSDAORA.1;Password=c;User ID=calldb;Data Source=ecenter"
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "Select * From app_para"
Set rs = Conn.Execute(SQLstr)
%>
<br>
<div align="center"><h2>兰州邮政185参数维护</h2></div>
<br>
<table border=1 width=950 height="25">
<tr>
<td height="15" width="300">
<div align="center">参数名称</div>
</td>
<td height="15" width="200">
<div align="center">参数值</div>
</td>
<td height="15" width="200">
<div align="center">值描述</div>
</td>
<td height="15" width="250">
<div align="center">参数描述</div>
</td>
</tr>
<% while Not rs.EOF%>
<tr>
<td>
<div align="center"><%=rs.Fields("para_name")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("para_value")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("value_describe")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("para_describe")%></div>
</td>
<%
rs.MoveNext
Wend
%>
</tr>
</table>
</BODY>
</HTML>
我的代码如下：
<HTML>
<HEAD>
<TITLE>数据显示</TITLE>
</HEAD>
<BODY background="images/background.jpg">
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=MSDAORA.1;Password=c;User ID=calldb;Data Source=ecenter"
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "Select * From app_para"
Set rs = Conn.Execute(SQLstr)
%>
<br>
<div align="center"><h2>兰州邮政185参数维护</h2></div>
<br>
<table border=1 width=950 height="25">
<tr>
<td height="15" width="300">
<div align="center">参数名称</div>
</td>
<td height="15" width="200">
<div align="center">参数值</div>
</td>
<td height="15" width="200">
<div align="center">值描述</div>
</td>
<td height="15" width="250">
<div align="center">参数描述</div>
</td>
</tr>
<% while Not rs.EOF%>
<tr>
<td>
<div align="center"><%=rs.Fields("para_name")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("para_value")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("value_describe")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("para_describe")%></div>
</td>
<%
rs.MoveNext
Wend
%>
</tr>
</table>
</BODY>
</HTML>
...全文
请发表友善的回复…
发表回复
