📄 read.asp
字号:
<%@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"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -