简单书籍类网页代码制作

闲来无事利用所学知识做了个书籍类代码

话不多说!上效果图

鼠标放到书籍图片上还可以产生放大书籍内容的效果

效果:

搜索框还带浏览记录

效果:

 话不多说!上代码!

html部分:

<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <meta http-equiv="X-UA-Compatible" content="ie=edge">
        <meta name="viewport" content="width=device-width, initial-scale=1.0">
        <link rel="stylesheet" href="../书籍类网页模板/css/1.css">
        <title></title>
    </head>
    <body>
        <div class="nav">
            <a href="#" class="active">首页</a>
            <a href="#">热门书籍</a>
            <a href="#">言情</a>
            <a href="#">玄幻</a>
            <a href="#">冒险</a>
            <a href="#">爽文</a>
            <a href="#">科幻</a>
            <a href="#">都市</a>
            <a href="#">悬疑</a>
            <a href="#">恐怖</a>
            <div class="search-container">
                <form>
                    <input type="text" placeholder="关键字..." name="search">
                    <button type="submit">
                        <img src="../书籍类网页模板/img/ss.png" alt="">
                    </button>
                </form>
            </div>
        </div>
        <div class="body1">
            <div class="container">
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/斗罗大陆.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>斗罗大陆</h3>
                        <p>唐门外门弟子唐三,
                            因偷学内门绝学为唐门所不容,
                            跳崖明志时却发现没有死,
                            反而以另外一个身份来到了另一个世界,
                            一个属于武魂的世界,名叫斗罗大陆。
                            这里没有魔法,没有斗气,没有武术,却有神奇的武魂。
                            这里的每个人,在自己六岁的时候,都会在武魂殿中令武魂觉醒。
                            武魂有动物,有植物,有器物,武魂可以辅助人们的日常生活。
                            而其中一些特别出色的武魂却可以用来修炼并进行战斗,这个职业,是斗罗大陆上最为强大也是最荣耀的职业“魂师”。
                             小小的唐三在圣魂村开始了他的魂师修炼之路,
                             并萌生了振兴唐门的梦想。当唐门暗器来到斗罗大陆,
                             当唐三武魂觉醒,他能否在这片武魂的世界再铸唐门的辉煌?
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/斗破苍穹.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>斗破苍穹</h3>
                        <p>这里是属于斗气的世界,没有花俏艳丽的魔法,
                            有的,仅仅是繁衍到巅峰的斗气!
                            想要知道异界的斗气在发展到巅峰之后是何种境地吗?
                            等级制度:斗者,斗师,大斗师,斗灵,斗王,斗皇,斗宗,斗尊,斗圣,斗帝。
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/完美世界.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>完美世界</h3>
                        <p>一粒尘可填海,一根草斩尽日月星辰,
                            弹指间天翻地覆。
                            群雄并起,万族林立,诸圣争霸,乱天动地。
                            问苍茫大地,谁主沉浮?!一个少年从大荒中走出,一切从这里开始……
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/武动乾坤.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>武动乾坤</h3>
                        <p>修炼一途,乃窃阴阳,夺造化,转涅槃,握生死,掌轮回。
                             武之极,破苍穹,动乾坤!
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/神印王座.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>神印王座</h3>
                        <p>魔族强势,在人类即将被灭绝之时,六大圣殿崛起,
                            带领着人类守住最后的领土。一名少年,
                            为救母加入骑士圣殿,奇迹、诡计,不断在他身上上演。
                            在这人类六大圣殿与魔族七十二柱魔神相互倾轧的世界,
                            他能否登上象征着骑士最高荣耀的神印王座?
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/-一人之下.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>一人之下</h3>
                        <p>他,在爷爷的教导下成为异人,从小修习天师府的金光咒和阳五雷,
                            是八奇技之一炁体源流的继承人。
                             随着爷爷尸体被盗,神秘少女冯宝宝的造访,少年张楚岚的平静校园生活被彻底颠覆。
                             急于解开爷爷和自身秘密的张楚岚和没有任何记忆“不死少女”冯宝宝开启了“异人”之旅……
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/斗破苍穹之大主宰.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>斗破苍穹之大主宰</h3>
                        <p>斗气之上,灵气为王。
                            大千世界,主宰之路,
                            谁主沉浮。
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/x龙时代.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>x龙时代</h3>
                        <p>普通地球人辛云,在一次意外中跌下楼梯,
                            却穿越到了一个异世界,在这个比地球大的多的世界里,
                            却拥有着和地球神话相似的设定。
                            在龙时代,每个人八岁时都可以拥有一条属于自己的龙。
                            辛云在这个世界打拼,最终到达了钻石十星的境地,
                            却因为沉迷女色而使自己失去成为最强者的机会,
                            在一次九大强者的力量碰撞下,竟然发生了一件不可思议
                            ,或者说是奇迹的事情一一辛云又一次重生回到在龙时代的小时候!
                            这一次,他又将如何书写自己的人生呢?
                        </p>
                    </div>
                </div>
                <div class="box">
                    <div class="imgbx">
                        <img src="../书籍类网页模板/img/我的微信连三界.jpg" alt="">
                    </div>
                    <div class="content">
                        <h3>我的微信连三界</h3>
                        <p>本是普通大学生的林海,在微信更新后,被拉入了天庭的交易群,从此生活变得多姿多彩起来。
                            王母娘娘的面膜用完了?拿十个蟠桃来换,不讲价。
                            太上老君想抽软中华?十颗天地造化丹,概不赊账。
                            红孩儿想喝哇哈哈?三昧真火拿过来,赶紧的。
                            嫦娥想穿情趣内衣?哎呀,这个不好办,容我亲自过去一趟,丈量下尺寸再说。
                            秦广王想要辆新款跑车?等等,这怎么又连上地府了?生死簿拿来,把哥的名字划了先……
                        </p>
                    </div>
                </div>
            </div>
        </div>
    </body>
</html>

 css部分:

​
*{
    box-sizing: border-box;   
}
body{
    margin: 0;
    padding: 0;
    font-family: Arial;
}
.nav{
    background: #548ce8;
    overflow: hidden;
}
.nav a{
    float: left;
    display: block;
    color: #fff;
    text-align: center;
    padding: 20px 16px;
    text-decoration: none;
    font-size: 15px;
    width: 120px;
    text-transform: uppercase;
    font-weight: bold;
}
.nav a:hover{
    background: orange;
    color: #000;
}
.nav a.active{
    background: #2f3540;
}
.search-container{
    float: right;
}
input{
    padding: 6px;
    margin-top: 13px;
    font-size: 17px;
    border: none;
}
.search-container button{
    float: right;
    padding:0;
    margin-top: 13px;
    margin-right: 30px;
    margin-left: 5px;
    margin-bottom: 2px;
    color: #fff;
    border: none;
}
button img{
    width: 30px;
}
.body1{
    margin: 0;
    padding: 0;
    display: flex;
    justify-content: center;
    align-items: center;
    min-height: 100vh;
    background: #003e46;
    font-family: 'Poppins',sans-serif;
}
.container{
    padding-top: 100px;
    width: 1000px;
    display: flex;
    flex-wrap: wrap;
    justify-content: space-between;
}
.box{
    position: relative;
    width: 300px;
    height: 400px;
    background: #000;
    box-shadow: 0 30px 30px rgb(0, 0,0,.5);
    margin-bottom: 40px;
}
.box .imgbx{
    position: absolute;
    top: 0;
    left: 0;
    width: 100%;
    height: 100%;
}
.box .imgbx img{
    position: absolute;
    top: 0;
    left: 0;
    width: 100%;
    height: 100%;
    object-fit: cover;
    transition: 0.5s;
}
.box:hover .imgbx img{
    opacity: 0;
}
.box .content{
    position: absolute;
    bottom: 20px;
    left: 10%;
    width: 80%;
    height: 60px;
    background: #fff;
    transition: 0.5s;
    overflow: hidden;
    padding: 15px;
    box-sizing: border-box;
}
.box:hover .content{
    height: 100%;
    width: 100%;
    bottom: 0;
    left: 0;
}
.box .content h3{
    margin: 0;
    padding: 0;
    font-size: 20px;
}
.box .content p{
    margin: 10px 0 0;
    padding: 0;
    opacity: 0;
    line-height: 1.2em;
    transition: 0.5s;
    text-align: justify;
}
.box:hover .content p{
    opacity: 1;
    transition-delay: 0.5s;
}

​

有问题可以联系我

QQ:3410279629

  • 8
    点赞
  • 48
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
此书中有几个常用实例系统 <%@language=vbscript codepage=936 %> <% option explicit response.buffer=true %> <!--#include file="Connections/connSoft.asp" --> <% Dim Rs1__MMColParam Rs1__MMColParam = "False" If (Request("MM_EmptyValue") <> "") Then Rs1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Rs1 Dim Rs1_numRows Set Rs1 = Server.CreateObject("ADODB.Recordset") Rs1.ActiveConnection = MM_connSoft_STRING Rs1.Source = "SELECT * FROM Soft WHERE Deleted = " + Replace(Rs1__MMColParam, "'", "''") + "" Rs1.CursorType = 0 Rs1.CursorLocation = 2 Rs1.LockType = 1 Rs1.Open() Rs1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Rs1_numRows = Rs1_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Rs1_total Dim Rs1_first Dim Rs1_last ' set the record count Rs1_total = Rs1.RecordCount ' set the number of rows displayed on this page If (Rs1_numRows < 0) Then Rs1_numRows = Rs1_total Elseif (Rs1_numRows = 0) Then Rs1_numRows = 1 End If ' set the first and last displayed record Rs1_first = 1 Rs1_last = Rs1_first + Rs1_numRows - 1 ' if we have the correct record count, check the other stats If (Rs1_total <> -1) Then If (Rs1_first > Rs1_total) Then Rs1_first = Rs1_total End If If (Rs1_last > Rs1_total) Then Rs1_last = Rs1_total End If If (Rs1_numRows > Rs1_total) Then Rs1_numRows = Rs1_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Rs1_total = -1) Then ' count the total records by iterating through the recordset Rs1_total=0 While (Not Rs1.EOF) Rs1_total = Rs1_total + 1 Rs1.MoveNext Wend ' reset the cursor to the beginning If (Rs1.CursorType > 0) Then Rs1.MoveFirst Else Rs1.Requery End If ' set the number of rows displayed on this page If (Rs1_numRows < 0 Or Rs1_numRows > Rs1_total) Then Rs1_numRows = Rs1_total End If ' set the first and last displayed record Rs1_first = 1 Rs1_last = Rs1_first + Rs1_numRows - 1 If (Rs1_first > Rs1_total) Then Rs1_first = Rs1_total End If If (Rs1_last > Rs1_total) Then Rs1_last = Rs1_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = Rs1 MM_rsCount = Rs1_total MM_size = Rs1_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record Rs1_first = MM_offset + 1 Rs1_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (Rs1_first > MM_rsCount) Then Rs1_first = MM_rsCount End If If (Rs1_last > MM_rsCount) Then Rs1_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> <html> <head> <title>软件管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="GENERATOR" content="Microsoft FrontPage 3.0"> <link rel="stylesheet" type="text/css" href="Style.css"> <style type="text/css"> <!-- body,td,th { font-family: 宋体; } --> </style></head> <body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border"> <tr class="topbg"> <td height="22" align="center"><strong>上 传 软 件 管 理</strong></td> </tr> </table> <br> <table width='100%' border="0" cellpadding="0" cellspacing="0"> <tr> <form name="myform" method="Post" action="Admin_SoftDel.asp" onSubmit="return ConfirmDel();"> <td><table class="border" border="0" cellspacing="1" width="100%" cellpadding="0"> <tr class="title" height="22"> <td width="20" align="center" height="22"><strong>ID</strong></td> <td width="138" align="center" ><strong>软件名称</strong></td> <td width="84" align="center" ><strong>软件大小</strong></td> <td width="84" align="center" ><strong>软件型</strong></td> <td width="127" align="center" ><strong>授权方式</strong></td> <td width="114" align="center" ><strong>软件语言</strong></td> <td width="165" align="center" ><strong>操作</strong></td> </tr> <% Dim i i = 1 While ((Repeat1__numRows <> 0) AND (NOT Rs1.EOF)) %> <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'"> <td width="20" align="center"><%= i %></td> <td><%=(Rs1.Fields.Item("SoftName").Value)%> </td> <td width="84" align="center"><%=(Rs1.Fields.Item("SoftSize").Value)%></td> <td width="84" align="center"><%=(Rs1.Fields.Item("SoftType").Value)%></td> <td width="127" align="center"><%=(Rs1.Fields.Item("CopyrightType").Value)%> </td> <td width="114" align="center"><%=(Rs1.Fields.Item("SoftLanguage").Value)%> </td> <td width="165" align="center"><a href="SetDeleted.asp?SoftID=<%=(Rs1.Fields.Item("SoftID").Value)%>&Flag=Delete">删除</a> <a href="movesoft.asp?SoftID=<%=(Rs1.Fields.Item("SoftID").Value)%>">移动到</a> <select name="select"> <option value="系统软件">系统软件</option> <option value="下载软件">下载软件</option> <option value="电子图书">电子图书</option> </select> </td> <% i = i + 1 Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rs1.MoveNext() Wend %> </table> </td> </form></tr></table> <% If Not Rs1.EOF Or Not Rs1.BOF Then %> <table width="100%" border="0"> <tr> <td class="tdbg"><div align="center"><A HREF="<%=MM_moveFirst%>">首页</A> <A HREF="<%=MM_movePrev%>">上一页</A> <A HREF="<%=MM_moveNext%>">下一页</A> <A HREF="<%=MM_moveLast%>">尾页</A>  第 <%=abs(Int(-Rs1_last/10))%>页/共 <%=abs(Int(-Rs1_total/10))%>页 10条记录/页 </div></td> </tr> </table> <% End If ' end Not Rs1.EOF Or NOT Rs1.BOF %> <br> <br> </body> </html> <% Rs1.Close() Set Rs1 = Nothing %>
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值