read.asp

来自「系统功能说明： 1 本书库系统专为以文字为主的站点设计」· ASP 代码 · 共 72 行

ASP

72 行

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp"-->
<!--#include file="fun.asp"-->

<%
	on error resume next  '找不到站点资料时忽略错误

bookid=request("bookid")

sqlb="select * from book where bookid="&bookid&"  "
Set rsb = Server.CreateObject("ADODB.Recordset")
sqlb="update book set hit=hit+1 where bookid="&bookid&" "
rsb.open sqlb,conn,1,1
	
%>

<%
id=request("id")

sql="select * from read where id="&id&" order by id asc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Rs("biaoti")%></title>

<style type="text/css">
<!--a{color:#009966; text-decoration: none}
a:hover{color:#FF00CC; text-decoration: none}-->
<!--
body,td,th {
	font-size: 14px;
	color: #009966;
}
body {
	background-color: #FFFFFF;
	background-image: url(image/bg.gif);
}
-->
</style>

</head>

<!--#include file="middle.asp"-->
<!--#include file="bookmiddle.asp"-->

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''
	on error resume next  '找不到站点资料时忽略错误

id=request("id")

sql="select * from read where id="&id&" order by id asc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
%>

<table width=640 height=32 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
  <tr>

<td height="1" colspan="2" style="word-break:break-all">
　　　　　　　<font size=4pt><b><%=Rs("biaoti")%></b></font> 
<br>　　　　　　　　　　　　　　　　　作者：<%=Rs("zuozhe")%>
<br><br>
<%=encode(rs("zhengwen"))%>
  </td></tr></table>
<br>

<!--#include file="foot.asp"-->

read.asp - 源码说明

本页面展示了「系统功能说明： 1 本书库系统专为以文字为主的站点设计」中的 read.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?