推荐：网站制作ASP语言的特点与功能ASP(Active Server Page的缩写) 意思是活动服务器网页。ASP是微软公司开发,用于代替CGI脚本程序的一种应用. 它可以与数据库和其它程序进行交互,是一种简单,方便的编程工具。ASP的网页文件的格式为.asp,现常用于各种动态网站中。 ASP是一种服务器端脚本编写环境,可以用
分享一个asp分页函数，感觉挺好看的。视图如图：
可以根据自己的情况修改，代码：
<%
'谢亮修分页程序
'call pagecontrol(记录总数,页码总数,当前页)
Sub PageControl(iCount,pagecount,page)
response.Write(<style type=text/css>/*谢亮分页CSS*/div.pager{padding:10px;}div.pager a,div.pager span{padding:2px 5px;margin:2px;font-family:宋体;border:1px #363 solid;}div.pager a {text-decoration:none}div.pager a:hover {color:#000;background-color:#363}div.pager span.current {font-weight:bold;color:#fff;background-color:#363}div.pager span.disabled {border:1px #ccc solid;}</style>) &chr(13)
Dim query, a, x, temp
action = http:// & Request.ServerVariables(HTTP_HOST) & Request.ServerVariables(SCRIPT_NAME)
query = Split(Request.ServerVariables(QUERY_STRING), &)
For Each x In query
a = Split(x, =)
If StrComp(a(0), page, vbTextCompare) <> 0 Then
temp = temp & a(0) & = & a(1) & &
End If
Next
response.Write(<div class=pager>)&chr(13)
Response.Write(<span class=disabled> & page & / & pageCount & 页</span>)&chr(13)
Response.Write(<span class=disabled>共 & iCount & 条记录</span>)&chr(13)
if pagecount<=6 then
for xl=1 to pagecount
if page=xl then
response.Write(<span class='current'>&xl&</span>)&chr(13)
else
Response.Write(<a href=' & action & ? & temp & Page=&xl&'>&xl&</a> )&chr(13)
end if
next
else
if page=1 then
response.Write(<span class='current'>1</span>)&chr(13)
else
Response.Write(<a href=' & action & ? & temp & Page=1'>1</a> )&chr(13)
end if
if page>4 then Response.Write(<span class=disabled>...</span>)&chr(13)
if page<5 then i1=1 else i1=page-2
if page > (pagecount-4) then i2=pagecount else i2=page+3
for xll=i1 to i2
if xll<>1 and xll <> pagecount then
if xll=page then
response.Write(<span class='current'>&xll&</span>)&chr(13)
else
Response.Write(<a href= & action & ? & temp & Page=&xll&>&xll&</a>)&chr(13)
end if
end if
next
if page< (pagecount-4) then Response.Write(<span class=disabled>...</span>) &chr(13)
if page=pagecount then response.Write(<span class='current'>&pagecount&</span>)&chr(13) else Response.Write(<a href=' & action & ? & temp & Page=&pagecount&'>&pagecount&</a> ) &chr(13)
end if
response.Write(</div>)&chr(13)
End Sub
%>
分享：设置C#子窗体在主窗体中居中显示问题的开始是由C#传传看主群里的印醒提出来的，下面我来说一下解决方案吧 其实表面上看是很简单的 开始吧，现在有两个窗体Form1主窗体，Form2子窗体 而且我相信大部分人都会这样写 在子窗体的Load事件中 这样写 this.StartPosition = FormStartPosition.CenterParent;