实现asp分页，向asp说声拜拜 - 超少

公告

小组接了省教育厅的项目后，我在oa3.0练习中被时哥拉来弄保定吧，已经有半个月了。也是我学习asp的半个月。以前由于不明白很讨厌asp，用.net时前台后台分的那么详细，现在用asp居然代码和html页面放在一起，而且一句话就加了个页面进来，觉得这太不符合常情了。
曾经也觉得不懂句法乱改页面挺好玩的。不过过了几天失败过n多次后就郁闷了。然后再也不想弄asp了。那时真是进退两难。我领着一堆看都看不懂的asp任务，小组又忙省教育厅没人管我，太简单的东西又不好意思常去问时哥。马哥不学asp，峰老又不常来。于是有种被抛弃的感觉。呵呵~~~
这样熬了不久，渐渐的能解决点简单的任务，也经过朱哥的帮忙终于熬过了艰难的阶段。然后能解决些一般asp错误后，空闲时间投入到asp版的新闻发布的制作。
随着任务的减少，再加上通宵。asp版新闻发布算是完成了。
晚上忽然想到可能以后再也接触不到asp技术了，想想就这样和asp擦肩而过，真有种不舍之情。安排一个通宵时间把分页功能完成了，算是给asp的学习生涯画一个完美的句号吧。不枉学了半个月的asp，无憾的向asp说声再见！

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>asp版新闻发布</title>

</head>

<body>

if request.QueryString("action")="del" then

dim ok

dim ok2

ok=request.Form("id")

ok2=split(ok,", ")

response.Write(ok2(i))

For i = 0 To UBound(ok2)

response.Write("您选的第"& i+1 &"个ID：" & ok2(i)& "<br />")

conn.execute("DELETE FROM [dbh171001].[h171001].[PowerSite_User_Disp] where userid=" & ok2(i))

response.Redirect("showNews.asp?action=delok")

set conn=nothing

end if

sqlwm = "SELECT * FROM PowerSite_User_Disp"

set rswm= server.CreateObject("adodb.recordset")

rswm.open sqlwm,conn,1,1

rswm.pagesize=5

curpage=Request.QueryString("curpage")

if curpage="" then curpage=1

rswm.absolutepage=curpage

<br />

<%for i= 1 to rswm.pagesize

if rswm.eof then

exit for

end if

<%=rswm("UserID")%>  <%=rswm("msn")%> <%=rswm("qq")%>

<br />

rswm.movenext

<%if curpage=1 then%>

首页

<%else%>

<%end if%>

<%if curpage=1 then%>

<%else%>

<%end if%>

<%if rswm.pagecount<curpage+1 then%>

<%else%>

<%end if%>

<%if rswm.pagecount<curpage+1 then%>

尾页

<%else%>

<%end if%>

</form>

</body>

posted on 2007-10-30 01:23 超少阅读(337) 评论(2) 收藏举报

刷新页面返回顶部