小弟求救啦，简单的ASP编写。

[万年水母]

今天去面试Delphi程序员，但对方要求会一点点ASP,于是叫我回家写一个简单的页面。要求是：

有一数据表格，有code和name两个字段，要在网页上列出这两个字段，要求有上下翻页的功能，还有刷新的功能（也就是按一个按钮可以刷新当前页面），请哪位大哥帮帮忙。

后台数据库是用MS SQL server 7.0

比如数据库在名了HOST的计算机上，数据库的名字叫Test,表格名字是Table,有code和name两个字段，都是字符型的。ASP网页只要有上下翻页的功能，和刷新的功能就OK啦。

麻烦哪位大哥帮个忙，Thanks。

[nielinjie]

难道要我写完整的源代码吗，太过分了吧

[Dsoul]

你可以用存储过程写啊.然后我可以给你asp调用存储过程的代码.赫赫.
(其实存储过程的语句改一改就是asp了.)

[Dsoul]

function sel_num(msgnum) //一个简单的分页显示程序
select case msgnum
case "1"
dsp_num=20
case "2"
dsp_num=30
case "3"
dsp_num=40
case else
dsp_num=10
end select
sel_num=dsp_num
end function

Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "DB_name"

dsp_num=sel_num(trim(request("msgnum"))) //每页显示信息数
if request("pageid")="" then
pageid=0
else
pageid=cint(trim(request("pageid")))
end if //取页数
startid=pageid*dsp_num+1
endid=startid+dsp_num //计算页的开始,结尾信息id
Set rs=MyConn.execute("select column from Table_name")
if NOT (rs.EOF or rs.BOF) then
rs.MoveFirst
msgcount=1 //统计总的信息数
do while NOT rs.EOF
if msgcount>=startid and msgcount<endid then //确定是否显示
response.write(rs("column"))
end if
msgcount=msgcount+1
rs.MoveNext
loop
if pageid=0 then
prepage="上页"
else
prepage="<a href='page_name.asp?msgnum="&dsp_num&"&pageid="&pageid-1&"'>上页</a>"
end if
if msgcount>endid then
nexpage="<a href='page_name.asp?msgnum="&dsp_num&"&pageid="&pageid+1&"'>下页</a>"
else
nexpage="下页"
end if
curpage="第"&pageid+1&"页"
else
response.write("对不起,暂时无信息!")
end if


找到了以前写的一个框架.你自己考虑改一下吧

[四大皆空相]

to dsoul:

这个代码不简单, DepYuka兄弟怕难改写吧.

DepYuka 分叶程序算不上难写,但有些复杂,特别要考虑总记录数,尾数的处理

如果面试单位希望你在这方面工作的话,恐怕老兄要仔细看以下asp中的数据操作了

特别是 RecordSet 对象 这一篇.

[Dsoul]

是么?一切看造化,因为这个程序功能简单,代码复杂,我也不是专门写asp的了.赫赫.

[万年水母]

up一下，谁会写的帮个忙啦，我完全不会ASP，反正工作也不是要用ASP写程序。