content.asp

来自「个人图书信息管理系统的程序代码」· ASP 代码 · 共 26 行

ASP
26
字号
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<%
	Dim conn,strSql,rs,id
	id=request.queryString("id")
	Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open "Dbq=" & Server.Mappath("db/books.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
	strSql="select bookname,content from bookinfo where id=" & id
	Set rs=conn.Execute(strSql)
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>《<%=rs("bookname")%>》内容介绍</title>
</head>
<body  alink="#000099" vlink="#00009" link="#00009">
<p><h2 align="center">内容介绍</h2>
<div align="center">
  <textarea name="textarea" rows="20" cols="50" readonly style="font-size: 16px; border: 1px solid #FFFFFF;
   background-image: url('bookback.gif');background-attachment:fixed; background-position: center"><%=rs("content")%></textarea>
   <p>
<!--#include file="back.htm"-->
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?