📄 index.asp

📁 我是一名学生,最近一直在学生用ASP+SQL SERVER的数据库制作一个网站的会员登陆系统...我用的网页编辑工作是DW8,可以网上搜了好久都没有找到相关的教程...本人是十分想学习怎么制作一个这样

💻 ASP

字号:

<!--#INCLUDE FILE="odbc_connection.asp"-->
<html>
<head>
	<title>显示全部成员</title>
		<link rel="stylesheet" href="all.css">
</head>
<body>
	<h2 align="center">我们的通讯录</h2>
	<%
	'先输出表格的标题栏
	%>
	<center>
	<table border="0" width="90%">
		<caption align=right><a href="infro.htm">添加您的记录</a></caption>
		<tr bgcolor="#B7B7B7" align="center">
			<td width=10%>姓名</td>
			<td width=15%>电话</td>
			<td width=15%>手机</td>
			<td width=40%>email</td>
			<td width=20% colspan=2>管理</td>
		</tr>
	<%
	'建立Recordset对象
	Set rs=Server.CreateObject("ADODB.Recordset")
	strSql ="Select * From users Order By ftype,name "      '以姓名为序排列
	rs.Open strSql,db,1                               '因为要分页显示，所以用键盘指针

	'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息
	If rs.Bof Or rs.Eof Then
		Response.Write "现在还没有数据" 
	Else                                  
		'以下主要为了分页显示
		dim page_size                            '定义每页多少条记录变量
		dim page_no                              '定义当前是第几页变量
		dim page_total                           '定义总页数变量
		page_size=10                             '每页显示10条记录
		'如果第一次打开，则page_no为1，否则由传回的参数决定
		If Request.QueryString("page_no")="" Then   
			page_no=1 
		Else
			page_no=Cint(Request.QueryString ("page_no"))  '用Cint将字符串变为整数
		End If
		rs.PageSize=page_size                    '设置每页多少条记录
		page_total=rs.PageCount                  '返回总页数
		rs.AbsolutePage=page_no                  '设置当前显示第几页
		'下面一段利用表格显示当前页的所有记录
		Dim I
		I=page_size                              '该变量用来控制显示当前页记录
		Do While Not rs.Eof And I>0              '循环直到当前页结束或文件结尾
			I=I-1
			'下面将利用表格输出名单
			Response.Write "<tr bgcolor='#00CCFF'  align='center'>"
			Response.Write "<td><a href='particular.asp?id="& rs("id") & "'>" & rs("name") & "</a></td>"
			Response.Write "<td>" & rs("tel") & " </td>"
			Response.Write "<td>" & rs("handtel") & " </td>"
			Response.Write "<td><a href='mailto:" & rs("email") & "'>" & rs("email") & "</td>"
			Response.Write "<td><a href='change.asp?id="& rs("id") & "'>修改</td>"
			Response.Write "<td><a href='delete.asp?id="& rs("id") & "'>删除</td>"
			Response.Write "</tr>"
			rs.MoveNext
		Loop
		Response.Write "</table>"              '表格结束    
		Response.Write "<p>请选择数据页: "
		'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接
		For I=1 To page_total                        
			If I=page_no Then                        
				Response.Write I & "&nbsp"
			Else
				Response.Write "<a href='index.asp?page_no=" & I & "'>" & I & "</a>&nbsp"
			End If
		Next
	End if
	'关闭对象
	rs.Close
	Set rs=nothing
	db.Close
	Set db=nothing
	%>
	</center>  
</body>  
</html>

💿 文件大小 22 K

👤 上传用户 muye0422

📂 所属分类 SQL Server

🏷️ 相关标签

#SERVER #ASP #SQL #DW

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -