主题:  ASP新手求助

阿嘉

职务:普通成员
等级:1
金币:0.0
发贴:25
注册:2001/2/22 7:49:30
#12002/8/18 6:35:06
之前我对ASP一点都不懂
但我看了hmily和都市无情人写的《Dreamweaver MX Ultradev探索》系列
做了一个用表单提交到数据库,然后在页面显示出来的小程序。
地址
显示页http://www.scpzh.com/war3/pzhname/index.asp
提交页http://www.scpzh.com/war3/pzhname/index1.asp

现在有两点疑问

1 如何做到新提交上去的数据,显示在页面的第一位置,而不是原来的最后
2 如何在显示出来的页面实现分页呢?

能用DW MX搞定吗?请帮帮我,谢谢~~

编辑历史:[这消息被阿嘉编辑过(编辑时间2002-08-18 06:38:50)]


奔腾的心

职务:普通成员
等级:7
金币:10.0
发贴:6114
注册:2001/11/4 15:11:47
#22002/8/18 11:48:41
显示第一位子,可由id 倒叙排列显示,当然时间也ok

分页,可以用以下方法

rs.pagesize=10 //设定每页显示个数
if page="" then //如果没有变量接收,定为1
page=1
else page=cint(request("page")//接受变量
page=rs.absolutepage//当前页为接收到的页数

看显示如下<%=rs.pagecount%>页,当前为<%=page%>页

下面是关键:<%for i=1 to rs.pagecount%>
第<%=1%>页
<%next%>



阿嘉

职务:普通成员
等级:1
金币:0.0
发贴:25
注册:2001/2/22 7:49:30
#32002/8/18 12:13:41
谢谢,能否说说加在什么地方
对不起啦,我真的很菜~~~
下面是我显示页的代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_index_STRING
Recordset1.Source = "SELECT * FROM 用户名"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>


战队组成

















   =PZH=队员列表










如果下面没有你的资料,而你也是=PZH=队员,那就自行填写资料,添加进去吧:)

















<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>









<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
ID
网名
QQ
常用种族
籍贯
生日
t入队时间
<%=(Recordset1.Fields.Item("ID").value)%>
<%=(Recordset1.Fields.Item("网名").value)%>
<%=(Recordset1.Fields.Item("QQ").value)%>
<%=(Recordset1.Fields.Item("常用种族").value)%>
<%=(Recordset1.Fields.Item("籍贯").value)%>
<%=(Recordset1.Fields.Item("生日").value)%>
<%=(Recordset1.Fields.Item("入队时间").value)%>





















Copyright @ 2002 scpzh.com Inc.
All rights reserved. 攀枝花竟技联盟 版权所有





<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

编辑历史:[这消息被阿嘉编辑过(编辑时间2002-08-18 12:18:00)]
[这消息被阿嘉编辑过(编辑时间2002-08-18 12:18:33)]


奔腾的心

职务:普通成员
等级:7
金币:10.0
发贴:6114
注册:2001/11/4 15:11:47
#42002/8/18 14:31:23
定义完了rs 就可以加了,定义你的显示样式

至于分页的显示,就看你想在那里输出了

上面有点错误,应该是for i=1 to rs.pagesize