www.gusucode.com > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT) > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT)\ASP医药网站042\医药网站代码\dividepage.asp
<% sub divide(tourl,page,pagecount) response.write "<table width=""96%"" border=0 class=""td""><tr><td width=""100%"" align=""right"">共<font color=red>"&pagecount&"</font>页 第<font color=red>"&page&"</font>页 " if not pagecount=1 then if page=1 then response.write "<a href="""&tourl&"&page=2"">下一页</a> "&_ "<a href="""&tourl&"&page="&pagecount&""">尾页</a> " elseif cint(page)=pagecount then response.write "<a href="""&tourl&"&page=1"">首页</a> "&_ "<a href="""&tourl&"&page="&page-1&""">上一页</a> " else response.write "<a href="""&tourl&"&page=1"">首页</a> "&_ "<a href="""&tourl&"&page="&page+1&""">下一页</a> "&_ "<a href="""&tourl&"&page="&page-1&""">上一页</a> "&_ "<a href="""&tourl&"&page="&pagecount&""">尾页</a> " end if end if response.write "跳转到:<select name=""page"" size=1 class=""list"" onchange=""javascript:window.open ('"&tourl&"&page='+this.options(this.selectedIndex).value,'_top')"">" for i=1 to pagecount response.write "<option value="&i&"" if i=cint(page) then response.write " selected" end if response.write ">第"&i&"页</option>" next response.write "</select></td></tr></table>" end sub %>