📄 manager.asp
字号:
<%@ language=VBScript%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>图书管理信息系统v0</title>
<%
%>
</head>
<body>
<table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#EAEAF4">
<H1 CLASS="CT" align="center">图书管理信息系统<font size="2">v0.1</font></H1>
<table border="0" width="100%">
<tr>
<td width="100%" align="center" bgcolor="#CECCC8"><font size="2">图书管理信息系统->系统管理员</font></td>
</tr>
</table>
</td></tr>
</table>
<table border="0" width="100%" height="23" bgcolor="#EEFFF7">
<tr>
<td width="100%" height="9" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-width: 2">
<form method="get" action="manager.asp">
<p><span style="letter-spacing: 5">我要：<b>[
<%
if Request.QueryString("R1")="V1" then
response.write("<input type='radio' value='V1' checked name='R1'>删除 <input type='radio' name='R1' value='V2'>添加 <input type='radio' name='R1' value='V3'>修改")
ELseif Request.QueryString("R1")="V2" then
response.write ("<input type='radio' value='V1' name='R1'>删除 <input type='radio' name='R1' checked value='V2'>添加 <input type='radio' name='R1' value='V3'>修改")
else
Response.write ("<input type='radio' value='V1' name='R1'>删除 <input type='radio' name='R1' checked value='V2'>添加 <input type='radio' name='R1' checked value='V3'>修改")
end if
%>
]</b>数据库的数据</span></p>
</td></tr>
<tr>
<td width="100%" height="4" align="center" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-width: 2">
<p>当前数据库为：<select size="1" name="D1" LANGUAGE="VBScript" ONCHANGE="Submit">
<% if Request.QueryString("D1")="计算机类" then
response.write("<option selected>计算机类</option>")
response.write("<option>数学类</option>")
else
response.write("<option>计算机类</option>")
response.write("<option selected>数学类</option>")
end if
%>
</select>
<% if Request.QueryString("C1")="no" then
response.write("<input id='check1' type='checkbox' name='C1' value='no'")
response.write("checked")
response.write(">显示全部信息")
else
response.write("<input id='check1' type='checkbox' name='C1' value='no'")
response.write(">显示全部信息")
end if
%>
<%
if Request.QueryString("R1")="V1" then
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\tushu.mdb"
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
if Request.QueryString("D1")="计算机类" then
dbname="computer"
else
dbname="math"
end if
RS.Open "SELECT * FROM "&dbname
WHILE NOT RS.EOF
dbstr="from "&dbname
astring=Request.QueryString(RS("书号"))
delid="WHERE 书号='"&astring&"'"
SQL="DELETE "&dbstr&" "&delid
Set R=con.Execute(SQL)
RS.MoveNext
WEND
con.close
end if
%>
<% if (request.QueryString("R1")="V2") and (request.QueryString("T2")<>"") then
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\tushu.mdb"
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
if Request.QueryString("D1")="计算机类" then
dbname="computer"
else
dbname="math"
end if
SQL="INSERT INTO "&dbname&"(书名,书号,作者,出版社,出版时间,价格,数量)"&" VALUES('"&Request.QueryString("T1")&"','"&Request.QueryString("T2")&"','"&Request.QueryString("T3")&"','"&Request.QueryString("T4")&"',"&Request.QueryString("T5")&","&Request.QueryString("T6")&","&Request.QueryString("T7")&")"
Set RR=con.Execute(SQL)
con.close
end if
%>
<% if (request.QueryString("R1")="V3") and (request.QueryString("T2")<>"") then
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\tushu.mdb"
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
if Request.QueryString("D1")="计算机类" then
dbname="computer"
else
dbname="math"
end if
SQL="UPDATE "&dbname&" SET 书名='"&Request.QueryString("T1")&"',书号='"&Request.QueryString("T2")&"',作者='"&Request.QueryString("T3")&"',出版社='"&Request.QueryString("T4")&"',出版时间="&Request.QueryString("T5")&",价格="&Request.QueryString("T6")&",数量="&Request.QueryString("T7")&" where 书号='"&Request.QueryString("T2")&"'"
Set RR=con.Execute(SQL)
con.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -