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>页&nbsp;&nbsp;&nbsp;&nbsp;第<font color=red>"&page&"</font>页&nbsp;&nbsp;&nbsp;&nbsp;"
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
%>