📄 main.inc
字号:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open application("dtbase"),application("user"),application("pwd")
set RecJoke = Server.CreateObject("ADODB.Recordset")
RecJoke.Open "SELECT * FROM joke",Conn,3
RecordCount = RecJoke.RecordCount
Randomize
RandomNumber = Int( Rnd * RecordCount ) + 1
RecJoke.AbsolutePosition = RandomNumber
content = Trim(RecJoke("content"))
content = Replace(content,"&","&")
content = Replace(content," "," ")
content= Replace(content,">",">")
content= Replace(content,"<","<")
content= Replace(content,vbCrLf,"<br>")
Session("title") = Trim(RecJoke("title")) + "<br>"
Session("content") = content
RecJoke.Close
set Recbooks = Server.CreateObject("ADODB.Recordset")
Recbooks.Open "select top 1 bookid,ISBN,bookname,introduce from books order by bookid DESC",conn,3
Session("bookid") = Recbooks("bookid")
Session("bookname") = Recbooks("bookname")
Session("ISBN") = rtrim(Recbooks("ISBN"))
Session("introduce") = left(Recbooks("introduce"),100)+"......"
Recbooks.close
conn.close
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160" bgcolor="#ECD6FC" valign="top">
<table width="152" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#9999FF">
<tr>
<td height="12">
<div align="center"><font color="#FFFFFF">都乐心语</font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"style="line-height:160%;padding-left:10px">
<br>
都乐改版很久了，但很不彻底，这点大家都能看到。这除了我偷懒之外，还有一个因数就是....
<p align="right"><a href="htm/xinyu.html" class="color1">更多内容</a></p>
</td>
</tr>
</table><br>
<table width="152" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#9999FF">
<tr>
<td height="12">
<div align="center"><font color="#FFFFFF">分类书箱</font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="line-height:160%;padding-left:10px">
-*-<a href="find.asp?publish=Cisco"> Cisco </a> <br>
-*-<a href="find.asp?publish=Microsoft"> Microsoft </a> <br>
-*-<a href="find.asp?publish=电子科大出版社"> 电子科大出版社 </a><br>
-*-<a href="find.asp?publish=清华大学出版社"> 清华大学出版社 </a><br>
-*-<a href="find.asp?publish=电子工业出版社"> 电子工业出版社 </a><br>
-*-<a href="find.asp?publish=希望电脑公司"> 希望电脑公司 </a><br>
-*-<a href="find.asp?publish=机械工业出版社"> 机械工业出版社 </a><br>
-*-<a href="find.asp?publish=国防工业出版社"> 国防工业出版社 </a><br>
</td>
</tr>
</table>
<br>
<table width="152" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#9999FF">
<tr>
<td height="12">
<div align="center"><font color="#FFFFFF">笑一笑</font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="line-height:160%;padding-left:10px">
<%
Response.Write Session("title")
Response.Write Session("content")
%>
</td>
</tr>
</table>
<br>
<div align=center>
自1999年8月21日起记<br>
<a href=http://webpub.au.tsinghua.edu.cn/count/count.dll?Type=Basic&id=2783&ReferID=2783 target=_blank>
<img width=20 height=20 src=http://webpub.au.tsinghua.edu.cn/count/count.dll?Type=Img2&add=1&id=2783&refer= border=0 alt=酷站统计></a>
<img src="http://www.gbsource.net/cgi-bin/count.exe?df=dule.dat&dd=B&ft=0" width=90 height=20>
</div>
<p> </p>
</td>
<td width="400" valign=top style="padding-left:16px;line-height:160%">
<br>
<hr color="Blue">
<b> <font color=red>注意：都乐书店暂不接受网上订书业务，对各位造成的不便，还请原谅。</font></b>
<br>
<span class="color1"> ■</span> <span class="big">书籍分类</span>
<hr color="Blue">
[ <a href="find.asp?Maintype=1" class="linkwhite">计算机</a> ]
<a href="find.asp?Maintype=1&Secondtype=1">操作系统</a>
<a href="find.asp?Maintype=1&Secondtype=2">计算机语言</a>
<a href="find.asp?Maintype=1&Secondtype=3">数据库系统</a>
<a href="find.asp?Maintype=1&Secondtype=4">办公自动化</a><br>
<a href="find.asp?Maintype=1&Secondtype=5">图形处理</a>
<a href="find.asp?Maintype=1&Secondtype=6">硬件技术</a>
<a href="find.asp?Maintype=1&Secondtype=7">等级考试</a>
<a href="find.asp?Maintype=1&Secondtype=8">应用技术</a>
<a href="find.asp?Maintype=1&Secondtype=9">综合类</a>
<br><br>[ <a href="find.asp?Maintype=2" class="linkwhite">网络</a> ]
<a href="find.asp?Maintype=2&Secondtype=1">网络工程</a>
<a href="find.asp?Maintype=2&Secondtype=2">网络协议</a>
<a href="find.asp?Maintype=2&Secondtype=3">网络教材</a>
<br><br>[ <a href="find.asp?Maintype=3" class="linkwhite">通讯</a> ]
<a href="find.asp?Maintype=3&Secondtype=1">通讯教材</a>
<a href="find.asp?Maintype=3&Secondtype=2">无线通信</a>
<a href="find.asp?Maintype=3&Secondtype=3">有线通信</a>
<br><br>[ <a href="find.asp?Maintype=4" class="linkwhite"> 电子</a> ]
<a href="find.asp?Maintype=4&Secondtype=1">电子技术</a>
<a href="find.asp?Maintype=4&Secondtype=2">VCD技术</a>
<a href="find.asp?Maintype=4&Secondtype=3">电视机维修</a>
<a href="find.asp?Maintype=4&Secondtype=4">空调制冷</a>
<br><br>[ <a href="find.asp?Maintype=5" class="linkwhite">外语</a> ]
<a href="find.asp?Maintype=5&Secondtype=1">等级考试</a>
<a href="find.asp?Maintype=5&Secondtype=2">TOEFL&GRE</a>
<a href="find.asp?Maintype=5&Secondtype=3">工具书</a>
<br><br>[ <a href="find.asp?Maintype=6" class="linkwhite"> 软件</a> ]
<a href="find.asp?Maintype=6&Secondtype=1">系统软件</a>
<a href="find.asp?Maintype=6&Secondtype=2">杀毒软件</a>
<a href="find.asp?Maintype=6&Secondtype=3">游戏软件</a>
<a href="find.asp?Maintype=6&Secondtype=4">教学软件</a>
<br><br>[ <a href="find.asp?Maintype=7" class="linkwhite"> 音响</a> ]
<a href="find.asp?Maintype=7&Secondtype=1">磁带音乐</a>
<a href="find.asp?Maintype=7&Secondtype=2">CD唱片</a>
<a href="find.asp?Maintype=7&Secondtype=3">VCD影像</a>
<br><br>
[ <a href="find.asp?Maintype=8" class="linkwhite"> 其它</a> ]
<a href="find.asp?Maintype=8&Secondtype=1">其他</a>
<br><br>
<span class="color2"> ■</span> <span class="big">销售爬行榜</span>
<hr color="blue">
<!--#include file="pahang.asp"-->
<br><br>
<span class="color3"> ■</span> <span class="big">读书沙龙</span>
<hr color="blue">
</td>
<td width="200" valign="top" style="padding-left:10px">
<br>
<table width="90%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#9999FF">
<tr bgcolor=#EEEEFF>
<td height=20 align=center>-= <%=left(Session("bookname"),10)%> =-</td>
</tr>
<tr bgcolor="#FFFFFF">
<td style="line-height:160%;padding-left:4px">
<br>
<a href="display.asp?bookid=<%=Session("bookid")%>"><img src="pages/<%=Session("ISBN")%>.jpg" width="90" height=130 align="left" border=0></a>
<span class="line"><%=Session("introduce")%></span>
<br>
<div align=right><a href="display.asp?bookid=<%=Session("bookid")%>">详细介绍</a> </div><br>
</td>
</tr>
</table> <br>
<table width="90%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#9999FF">
<tr bgcolor=#EEEEFF>
<td align=center height=20>-= 相关站点 =-</td>
</tr>
<tr bgcolor="#FFFFFF">
<td style="line-height:200%;padding-left:20px">
<a href="http://www.gbsource.net/teck">华源网校</a>
<a href="http://job.gbsource.net">华源兼职网</a><br>
<a href="http://home.gbsource.net">竹叶基地</a>
<a href="http://safe.gbsource.net/card">贺 卡 站</a> <br>
<a href="http://www.gbsource.net/community">华源社区</a>
<a href="http://202.115.4.251/chat">聊 天 室</a> <br>
<a href="http://www.gbsource.net/union">主页联盟</a>
<a href="http://asp.gbsource.net">飞 林 庄</a> <br>
</td>
</tr>
</table>
<br>
<table width="90%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#9999FF">
<tr bgcolor=#EEEEFF>
<td align=center height=20>-= 友情链接 =-</td>
</tr>
<tr bgcolor="#FFFFFF">
<td style="line-height:200%;"align=center>
<a href="http://book.fanso.com" target="_blank">啸林书院</a><br>
<a href="http://member.zz.ha.cn/grwy/sheng/" target="_blank">中文书讯</a><br>
<a href="http://www2.cs.uestc.edu.cn/~Blues/">认证天堂</a>
</td>
</tr>
</table> <br>
<table width="90%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#9999FF">
<tr bgcolor=#EEEEFF>
<td align=center height=20>-= 都乐专栏作家 =-</td>
</tr>
<tr bgcolor="#FFFFFF">
<td style="line-height:200%;"align=center>
目前尚无作品
</td>
</tr>
</table>
</td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -