📄 index.asp
字号:
<!--#include file="odbc_connection.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<title>::网上书店::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0">
<%
'--------------------------------------------------------------------------------------
'下面一段分别获取本页面需要的三个变量，首先获取要显示的类别变量
Dim KindId
If Session("KindId")="" Then
'这表示刚打开本页面，所以令KindId="0"，表示所有
KindId="0"
Session("KindId")="0"
Elseif Request.QueryString("KindId")<>"" Then
'这表示用户选择了具体类别
KindId=Request.QueryString("KindId")
Session("KindId")=KindId
Else
'这表示其它情况下返回首页
KindId=Session("KindId")
End If
'获取数据页码变量
Dim page_no
If Session("page_no")="" Then
'这表示用户刚刚打开页面
page_no=1
Session("page_no")=page_no
Elseif Request.QueryString("KindId")<>"" Then
'这表示用户选择了新的类别，应该显示第1页
page_no=1
Session("page_no")=page_no
Elseif Request.QueryString("page_no")<>"" Then
'这表示选择了页码，所以显示指定页码
page_no=Cint(Request.QueryString("page_no"))
Session("page_no")=page_no
Else
'其它情况下应该回到原来的页面，所以从Session中读取
page_no=Session("page_no")
End If
'--------------------------------------------------------------------------------------
%>
<table border="0" cellpadding="0" cellspacing="0" width="657" height="80" align="center">
<tr>
<td width="300" align="left">
<font size="6" face="黑体" Color="blue">网上书店</font>
</td>
<td align="right">
<img border="0" src="images/adver.jpg" width="468" height="59">
</td>
</tr>
</table>
<table width="657" border="1" cellspacing="0" cellpadding="0" bordercolor="#D1DAF1" bgcolor="#D1DAF1" class="text" height="20" align="center">
<tr align="left">
<td>
<a href="index.asp?KindId=0">首页</a>
<%
'下面输出类别信息
Dim rs,strSql
strSql="Select * From Kind Order By KindId"
Set rs=db.Execute(strSql)
Do While Not rs.Eof
Response.Write "<a href='index.asp?KindId=" & rs("KindId") & "&KindName=" & rs("KindName") & "'>" & rs("KindName") & "</a> "
rs.MoveNext
Loop
%>
</td>
</tr>
</table>
<br>
<table width="657" border="0" align="center">
<tr>
<td width="150" valign="top">
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#D1DAF1" bgcolor="#FFFFFF" >
<form action="log/in.asp" method="post" name="form">
<tr bgcolor="#D1DAF1">
<td align="center">
用户登录
</td>
</tr>
<%if session("UserId")="" then%>
<tr>
<td align="left">
用户名：<input type="text" name="UserId" size="10">
<br>密 码：<input type="password" name="password" size="10">
<p align="center"><input type="submit" value="登 录" name="button1" class="inputbutton">
<input onclick="window.open('log/register1.asp','_self')" type="button" value="注 册" name="register" class="inputbutton" >
</td>
</tr>
<%else%>
<tr>
<td align="left">
用户名：<input type="text" name="UserId" size="10" value="<%=session("UserId")%>" disabled>
<p align="left"><a href="log/out.asp">注销</a> <a href="log/updatePWD.asp">修改密码</a>
<p><a href="log/update.asp">修改个人信息</a>
</td>
</tr>
<%end if%>
</form>
</table>
<br>
<table width="150" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" class="text">
<tr>
<td align="center">
<p>
<a href="#" onClick="open('shoppingcart.asp','购物车','resizable=0,scrollbars=1,status=no,toolbar=no,location=no,menu=no,width=660,height=400,left=100,top=100')"><img border="0" src="images/car.gif" width="50" height="50"></a>
</td>
</tr>
</table>
</td>
<td valign="top">
<%
'下面开始分页显示所有数据
If KindId="0" Then
strSql="Select * From book Order By Submitdate Desc"
Else
strSql="Select * From book Where KindId=" & KindId & " Order By Submitdate Desc"
End If
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针
'下面如果非空就显示记录
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
rs.PageSize=PageSize '设置每页显示多少条记录，从配置文件中读取
dim page_total
page_total=rs.PageCount 'page_total会返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页，这里用到了传过来的page_no。
Dim I
I=PageSize 'I 用来控制显示当前页记录,注意这里和rs.PageSize要一致。
Do While Not rs.Eof And I>0 '循环直到当前页结束或记录集结尾
I=I-1 '每显示一条，I减1，当变成0时，表示本页结束
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#0099FF" align="center" class="text" height="74">
<tr>
<td height="70">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" class="text">
<tr>
<td align="center" width="20%">
<a href="particular.asp?BookId=<%=rs("BookId")%>">
<img src="showimage.asp?BookId=<%=rs("BookId")%>" width='67' height='87' border="0"></a>
</td>
<td align="left" >
名称：<%=rs("bookName")%>
<br>作者：<%=rs("bookAuthor")%>
<br>价格：<%=rs("bookPrice")%>元
<p><a href="particular.asp?BookId=<%=rs("BookId")%>" >详细信息</a>
<a href="#" onClick="open('buybook.asp?BookId=<%=rs("BookId")%>','购物车','resizable=0,scrollbars=1,status=no,toolbar=no,location=no,menu=no,width=660,height=400,left=100,top=100')">
<img border="0" src="images/buy.gif"></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<%
rs.movenext
loop
End If
%>
<%
'以下语句依次写出各页页码，并将非当前页设置超链接，当前页则不设置
Response.Write "<p align='center'><b><font color='#CC0066'>" & page_no & "/" & page_total & "</b></font>页 "
For I=1 To page_total
If I=page_no Then
Response.Write I & " "
Else
Response.Write "<a href='index.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -