来自「我的图书管理系统」· 代码 · 共 59 行

TXT
59 行
字号 

<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>待借图书目录浏览 欢迎使用欣科软件</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body background="Bkg35.jpg">

<p><img src="../images/soft.gif" width="45" height="31"><font size="6" color="#FF0000">待借图书目录浏览</font>

<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="14" height="14">
  <param name="AllowAddnew" value="true">
  <param name="AllowDelete" value="true">
  <param name="AllowUpdate" value="true">
  <param name="allowarrows" value="true">
</object><hr color="#0000ff">



<!--<hr align="center">--><center>
<OBJECT classid="clsid:00028CD1-0000-0000-0000-000000000046" 
     CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
	dataSrc=#rds1 height=340 id=grid1 style="LEFT: 0px; TOP: 0px" width=678 VIEWASTEXT></OBJECT>
</p>
<script language="vbscript">

sub window_onload

Grid1.CAPTION="待 借 图 书 浏 览"

end sub 


    RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

    RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"

    RDS1.SQL = "select * from tdjts"

    rds1.ExecuteOptions = 1

    RDS1.Refresh

</script></center>
<p align="right"><a href="图书日常业务管理.htm">
         <img src="../images/back.gif" border="0" alt="返回图书日常业务管理">&nbsp;&nbsp;&nbsp;&nbsp;</a><img src="../images/xkrj.gif">
</body>
</html>

- 源码说明

本页面展示了「我的图书管理系统」中的 源码文件，采用 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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