qh_detail.asp

来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 96 行

ASP
96 行
字号 
<html>
<!--#INCLUDE FILE="query/BaseFun.asp"-->

<%
A1=Request.querystring("A1")

set con=server.createobject("ADODB.Connection")
con.open Application("str_con")

set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con

set res1=server.createobject("ADODB.Recordset")
set res1.ActiveConnection = con

res.source="select A2,A4,A6,A7,A8,A13 from QHsm where A1='"&A1&"'"
res.open

res1.source="select NAll from QHnr where A1='"&A1&"'"
res1.open
%>

<head>
<title></title>
</head>

<body style="FONT-SIZE: 9pt">

<h1 align="center"><strong>《<%=res("A2")%>》</strong></h1>
<div align="center"><center>

<table border="0" width="90%" style="FONT-SIZE: 9pt">

  <tr>
    <td width="20%" align="right">作者：&nbsp;&nbsp;</td>
    <td width="40%" align="left"><%=res("A4")%></td>
  </tr>

  <tr>
    <td width="20%" align="right">装帧：&nbsp;&nbsp;</td>
    <td width="40%" align="left"><%=res("A7")%></td>
  </tr>

  <tr>
    <td width="20%" align="right">开本：&nbsp;&nbsp;</td>
    <td width="40%" align="left"><%=res("A8")%></td>
  </tr>

  <tr>
    <td width="20%" align="right">定价：&nbsp;&nbsp;</td>
    <td width="40%" align="left"><FONT color=tomato><%=res("A13")%></FONT>	</td>
  </tr>

  <tr>
    <td width="20%" align="right">出版社：&nbsp;&nbsp;</td>
    <td width="40%" align="left"><%=res("A6")%></td>
  </tr>

</table>
</center></div><div align="center"></div>



<%nrjj=res1("NAll")
if not isNull(nrjj) then %>
<p>　</p>
<div align="center"><center>

<table border="0" width="60%" style="font-size: 9pt; background-color: rgb(192,192,192); border: medium none">
  <tr>
    <td width="25%" align="center">内容简介</td>
  </tr>
  <tr>
    <td width="25%" align="left" bgcolor=LightYellow><%=changeBR( nrjj,chr(13)+chr(10) )%></td>
  </tr>
</table>
</center></div>
<%end if%>



<%
res.close
res1.close

con.close
%>


</body>
</html>

qh_detail.asp - 源码说明

本页面展示了「书店的管理系统。不错的一个源程序。提供给大家。」中的 qh_detail.asp 源码文件，采用 ASP 编程语言编写，共 96 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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