c语言资图书管理系统,急求C程序~！！！高手速来

下面是各主要功能模块的关键代码和解释。

用户登录( p)

" " and paddr<>" " and Ipaddr<>" " then

IpError=1

end if

// 要求输入用户名与密码，与上一条件构成双重保护，并将输入的用户名和密码与用户管理数据库中的用户名和密码对照，如果有此用户且密码正确，则继续执行

name=trim(request("name"))

password=trim(request("password"))

if name<>"" and password<>"" then

Set 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) then

Session("pass")=1

Session("user")=name

Response。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 = "序号" then

bookidfield= i

end if

if rs。Fields(i)。Name = "借阅情况" then

linkfield= i

end if

Next

'Part Ⅱ 创建借阅情况链接，调用借阅情况修改页面

While Not rs。

EOF

For i=0 to rs。Fields。Count-1

if i <> linkfield then

if i = bookidfield then

bookidvalue = rs。Fields(i)。Value

end if

if trim(rs。

Fields(i)。Value) <> "" then

Response。WRITE ""& rs。Fields(i)。Value & ""

else

Response。WRITE "" & "—" & ""

end if

else

linkstr = ""

alignstr = ""

if trim(rs。

Fields(i)。Value) <> "" then

Response。WRITE "" & alignstr & linkstr & rs。Fields(i)。Value & "" & ""

else

Response。WRITE "" & alignstr & linkstr & "无" & "" & ""

end if

end if

Next

rs。

MoveNext

Wend

End Sub

%>

借阅情况修改页面( p)

// 将Request传递来的序号所对应的记录显示在页面上，对册数、借阅情况、借阅日期字段进行修改

// 创建表单，对册数、借阅情况、借阅日期字段进行修改

"method="POST">序号

……

……

size="3">

>

>

保存修改结果( p)

。

全部