设计任务1。系统名称；简易图书资料管理系统的设计与实现2。功能要求：⑴新书登记：增加新书⑵书目查找并显示输出：支持3种方式的查找，即编目，书名，借书人，找到后显示输出；⑶借书：输入书的编号，借书人，借书日期等信息并做相应处理；⑷还书：输入书的编号后做相映的 处理；⑸显示催还清单：输入今天的日期，找出已经借书三个月的所有借书人的清单。3。实现要点与技术要求①编辑一个文本文件寸如15-20本初始图书。主要信息有：编号，编目号，书名，作者，出版社，出版日期。②定义一个结构体类型，用来存取每本图书的信息：包括编号，编目号，书名，作者，出版社，出版日期，借书人，借书日期；指向下一本书的指针。③进入系统后，判断保存书目的文本文件是否存在若存在，一次性读如所有数据到一个动态链表或结构体数组中，链表上的节点内容为上述结构体类型的数据；退出系统前，将所有图书的数据一次性写入文本文件中，覆盖原有文件。
热心网友
下面是各主要功能模块的关键代码和解释。用户登录（ p）" " and paddr" " and Ipaddr" " thenIpError=1end if// 要求输入用户名与密码，与上一条件构成双重保护，并将输入的用户名和密码与用户管理数据库中的用户名和密码对照，如果有此用户且密码正确，则继续执行name=trim(request("name"))password=trim(request("password"))if name"" and password"" thenSet conn=Server。CreateObject("ADODB。Connection")Set rs=Server。CreateObject(" cordset")sql="select * from user where username=‘"&name&"'and passwd=‘"&password&"'"Set rs=conn。execute(sql) ……if not(rs。eof) thenSession("pass")=1Session("user")=nameResponse。Redirect (" p") ……end if ……end if%创建用户查询界面（ p）//保证只有通过登录的人才能进入1 then direct (" p")end if%// 创建表单，给出几个类别（分类号、借阅情况、题名、出版者、著编者），供自选查询条件分类号 借阅情况 题名 出版者 著编者 包含： " maxlength="30"执行查询操作（inq_ p）// 调用 p显示查询结果显示查询结果（ p）" & rs。Fields(i)。Name & ""if rs。Fields(i)。Name = "序号" thenbookidfield= iend ifif rs。Fields(i)。Name = "借阅情况" thenlinkfield= iend ifNext'Part Ⅱ 创建借阅情况链接，调用借阅情况修改页面While Not rs。EOF For i=0 to rs。Fields。Count-1if i linkfield thenif i = bookidfield thenbookidvalue = rs。Fields(i)。Valueend ifif trim(rs。Fields(i)。Value) "" thenResponse。WRITE ""& rs。Fields(i)。Value & ""elseResponse。WRITE "" & "—" & ""end ifelselinkstr = ""alignstr = ""if trim(rs。Fields(i)。Value) "" thenResponse。WRITE "" & alignstr & linkstr & rs。Fields(i)。Value & "" & ""elseResponse。WRITE "" & alignstr & linkstr & "无" & "" & ""end ifend ifNextrs。MoveNextWendEnd Sub% 借阅情况修改页面（ p）// 将Request传递来的序号所对应的记录显示在页面上，对册数、借阅情况、借阅日期字段进行修改// 创建表单，对册数、借阅情况、借阅日期字段进行修改"method="POST"序号 …… …… size="3" 保存修改结果（ p） 。