📄 disp.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title>查看图书详细资料</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #Include File=../inc/css.asp -->
</head>
<%
set con=Server.CreateObject("ADODB.Connection")
ConnStr="DBQ="+server.mappath("../../db/#sdoa.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
' SET rs=Server.CreateObject("ADODB.RecordSet")
con.Open ConnStr
set Session("conn")=con
Session("iPageSize")=10
'SET rs=Server.CreateObject("ADODB.RecordSet")
%>
<%dim opFlag,Number,image,title,rs2
Number=cint(request("Number"))
'设置操作对象
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
SET rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open "select * from bookout where vnumber='" & rs("vnumber") & "'",Session("conn"),1,1
title="图书详细资料"
image="../images/books.gif"
%>
<body id=all >
<!-- #include file="../inc/title.asp" -->
<%
function opendb(DBPath,sessionname,dbsort)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set opendb=session(sessionname)
end function
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username='" & oabusyusername&"'"
rs.open sql,conn,1
allow_book_manage=rs("allow_book_manage")
conn.close
set conn=nothing
set rs=nothing
if allow_book_manage="yes" then
%>
<table cellspacing=0 cellpadding=0 width=95% border=0 class=vtext align="center">
<tbody>
<tr>
<td>
<p class=p10 align=left><a href="del.asp?opFlag=cmdDel&Number=<%=Number%>" onClick="return confirm('您确认要把此图书从数据库中删除吗？此操作将清除所有与此书有关的历史记录！')"><img src="../dbdisp/images/dele.gif" border="0" align="absmiddle"><font color="#FF0000">删除</font></a></p>
</td>
</tr>
</tbody>
</table>
<%end if%>
<%
set con=Server.CreateObject("ADODB.Connection")
ConnStr="DBQ="+server.mappath("../../db/#sdoa.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
' SET rs=Server.CreateObject("ADODB.RecordSet")
con.Open ConnStr
set Session("conn")=con
Session("iPageSize")=10
'SET rs=Server.CreateObject("ADODB.RecordSet")
%>
<%
Number=cint(request("Number"))
'设置操作对象
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
SET rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open "select * from bookout where vnumber='" & rs("vnumber") & "'",Session("conn"),1,1
title="图书详细资料"
image="../images/books.gif"
%>
<table cellspacing=1 cellpadding=3 width=95% bgcolor="<%=Session("vtablebordercolor")%>" border=0 align="center">
<tbody>
<tr bgcolor="<%=Session("vtabletitlebackcolor")%>" class=vtext >
<td noWrap align=right width=86 height="25" >
<p align=right>书名：</p>
</td>
<td align=middle colspan=5 bgcolor="<%=Session("vtabletitlebackcolor")%>" width="614" >
<p align=left><%=rs("vtitle")%></p>
</td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" class=vtext >
<td noWrap align=right width=86 height="25" >书号：</td>
<td align=left width=199 >
<p align=left><%=rs("vnumber")%></p>
</td>
<td noWrap align=right bgcolor="<%=Session("vcolcolor")%>" width="49" >作者：</td>
<td align=left colspan="3" width="346" ><%=rs("vauthor")%></td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" class=vtext >
<td align=right width=86 height="25" >关键字：</td>
<td align=left colspan=5 width="614"><%=rs("vkeyword")%></td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" class=vtext >
<td align=right width=86 height="25" >开本：</td>
<td align=left width=199 ><%=rs("vsize")%></td>
<td align=right width="49" >装订：</td>
<td align=left width="74"><%=rs("vzd")%></td>
<td align=right width="173">页码：</td>
<td align=left width="79"><%=rs("vpage")%></td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" class=vtext >
<td align=right width=86 height="25" >入库时间：</td>
<td align=left width="199" ><%=rs("vregtime")%></td>
<td align=right width="49" >数量：</td>
<td align=left width="74" ><%=rs("vcount")%></td>
<td align=right width="173" >已借出：</td>
<td align=left width="79" ><%=rs("voutcount")%></td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" class=vtext >
<td noWrap align=right width=86 height="25" >出版社：</td>
<td align=left width=199 >
<p align=left><%=rs("vpublisher")%></p>
</td>
<td noWrap align=right bgcolor="<%=Session("vcolcolor")%>" width="49" >版本：</td>
<td align=left colspan="3" width="346" ><%=rs("vver")%></td>
</tr>
<tr class=vtext >
<td bgcolor=<%=Session("vcolcolor")%> height="150" class="" valign="top" align="right" width="86">内容简介：</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan=5 class="" valign="top" width="614"><%=rs("vtext")%></td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" class=vtext >
<td align=right width=86 bgcolor="<%=Session("vcolcolor")%>" valign="top" >借阅记录：</td>
<td align=left colspan="5" width="614" >
<table width="100%" border="0" cellspacing="1" cellpadding="1" class=vtext bgcolor="<%=Session("vtablebordercolor")%>" >
<tr align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" >
<td>借阅人</td>
<td>借出时间</td>
<td>归还时间</td>
<td>备注</td>
</tr>
<% while not rs2.eof
response.write("<tr bgcolor='ffffff'><td>" & rs2("vname") & " </td>")
response.write("<td>" & rs2("vouttime") & " </td>")
response.write("<td>" & rs2("vintime") & " </td>")
response.write("<td>" & rs2("vmemo") & " </td></tr>")
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
</table>
</td>
</tr>
</table>
<br>
<table class=vtext cellspacing=0 cellpadding=0 width=90% border=0 align="center">
<tbody>
<tr>
<td>
<p align=center>
<button class=vinputbutton style="height=24" onClick="window.location.href='print.asp?Number=<%=Number%>'"><img src="../images/print.gif" align="absmiddle"> 打印</button>
<button class=vinputbutton style="height=24" onClick=javascript:history.back();><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p><p> </p>
</td>
</tr>
</TR>
</tbody>
</table>
<% rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -