asp分页(自己整理的2个分页程序) <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
姓名 | 密码 |
<%=rs("name")%> | <%=rs("pass")%> |
<% name=request("name") pass=request("pass") if name<>"" and pass<>"" then rs.Addnew rs("name")=name rs("pass")=pass rs.update rs.close end if %>
<%=mrs("name")%> | <%=mrs("pass")%> |
<% call PageControl(iCount,maxpage,page) Sub PageControl(iCount,pagecount,page) '生成上一页下一页链接 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(" |