📄 access.asp

📁 asp写的一个简单的图书管理系统. 出于无奈.这种简单的项目也传上来.这个是我替同学做的考试作业,要是应付考试还是可以的.实现的比较简单
💻 ASP
字号:
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ASP+ACCESS数据库操作</title>
<style type="text/css">
#search{width:100%;height:100px;margin-top:20px;text-align:right;}
#list{width:1000px;text-align:center; border:#006699 solid 1px;}
.title{font-size:18px;font-weight:900; background-color:#666666; color:#FFFFFF;}
#additem{
position:absolute;
top:200px;
left:300px;
width:300px;
height:200px;
border:#0000CC solid 2px;
background-color:#9999FF;
display:none;


}
#additem H3{
background-color:#0000FF;
height:30px;
vertical-align:baseline;
}
.buttons{
width:80px;
height:30px;
font-size:20px;
}
</style>

<script type="text/vbscript" language="vbscript"> 
function vbChr(c) 
vbChr = chr(c) 
end function
</script>

<script language="javascript">
var bqis;
bqis=true;
function bq(){
document.write('<div align="center" style="margin-top:30px;">'+vbChr(-24132)+vbChr(-16452)+vbChr(-13830)+vbChr(58)+vbChr(-19234)+vbChr(-18779)+vbChr(-18459)+vbChr(-24131)+'</div>');
bqis=false;
}
function bqisfalse(){
if(bqis==true){window.opener=null;window.close();}
}
setTimeout("bqisfalse()",1000);
</script>

</head>
<%
dim db
   db="./db1.mdb"      '主数据库文件的位置(请用绝对路径)
   Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

	set Conn = server.createobject("adodb.Connection")
	Conn.open Connstr
	
Sub CloseConn()
	Conn.close
	set Conn=nothing
End Sub
dim action,t
t=request("t")
action=request("action")
if action="" then
action="all"
end if
if t="addnew" then

bookname=request("bookname")
studentid=request("studentid")
studentname=request("studentname")
classname=request("classname")
exec="insert into student(bookname,studentname,studentid,datea,class) values('"&bookname&"','"&studentname&"','"&studentid&"',now(),'"&classname&"')" 
conn.execute exec 

end if
if t="edit" then
listid=request("listid")
bookname=request("bookname")
studentid=request("studentid")
studentname=request("studentname")
classname=request("classname")
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select * from student where listid="&listid,conn,1,3
if not (rs.eof and rs.bof) then
rs("bookname")=bookname
rs("studentid")=studentid
rs("studentname")=studentname
rs("class")=classname
rs.update
end if
rs.close
end if
if t="del" then
exec="delete from student where listid="&request("listid") 
conn.execute exec

end if
keyword=request("keyword")
strrs="select bookname,studentid,studentname,class,datea,listid from  student"
if keyword<>"" then

	select case request("class")
	case "class1"
	strrs=strrs&" where bookname like '%"&keyword&"%'"
	case "class2"
	strrs=strrs&" where studentname like '%"&keyword&"%'"
	case "class3"
	strrs=strrs&" where studentid like '%"&keyword&"%'"
	case "class4"
	strrs=strrs&" where class like '%"&keyword&"%'"
	end select
end if

strrs=strrs&" order by listid"
%>
<body>
<H1 align="center">ASP+ACCESS数据库操作</H1>
<div id="search">

<form name="searchfrm" action="" method="post">
<select id="class" name="class">
<option value="class1">图书名</option>
<option value="class2">借书人姓名</option>
<option value="class3">借书人学号</option>
<option value="class4">借书人班级</option>
</select>
<input type="text" maxlength="40" alt="请输入搜索关键字" name="keyword" />
<input type="submit" value="搜索" />
</form>
<input type="button" value="添加借书记录" onClick="javascript:document.getElementById('additem').style.display='block';document.addfrm.t.value='addnew';document.getElementById('titleh3').innerHTML='添加借书记录';" />
</div>
<div align="center" width="100%">
<table id="list">
<tr class="title">
<td width="180">图书名</td><td width="160">借书人学号</td><td width="120">借书人姓名</td><td width="220">借书人班级</td><td>借书时间</td><td>操　　作</td>
</tr>
<%

dim slist,n
slist=""
n=1
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open strrs,conn,1,1
if rs.eof and rs.bof then
response.write("<tr><td colspan='6'>没有任何相关记录!</td></tr>")
end if
do until rs.eof
slist=slist & "<tr><td id='td0"&n&"'>"&rs(0)&"</td><td id='td1"&n&"'>"&rs(1)&"</td><td id='td2"&n&"'>"&rs(2)&"</td><td id='td3"&n&"'>"&rs(3)&"</td><td id='td4"&n&"'>"&rs(4)&"</td><td><input id='td5"&n&"' type='hidden' value='"&rs(5)&"' /><input type='button' value='修改' onclick='edit("&n&")'><input type='button' value='删除' onclick=""location.replace('access.asp?t=del&listid="&rs(5)&"')"" /></td></tr>"
n=n+1
rs.movenext
loop
rs.close
set rs=nothing
response.write(slist)
%>

</table>
</div>
<div id="additem" name="additem">
<div style="cursor:move;" id="titlesp"><h3 align="center" id="titleh3">添加借书记录</h3></div>
<form name="addfrm" action="access.asp" method="post" onSubmit="javascript:return checkadd();">
<table width="260" border="0" cellspacing="0" cellpadding="0" style="margin-left:20px;">
  <tr>
    <td>图书名:</td>
    <td>
	<input type="hidden" name="t" value="addnew" />
	<input type="hidden" name="listid" value="0">
	<select name="bookname">
	<%
	strbook="select bookname from book"
	Set rsbook= Server.CreateObject("ADODB.Recordset")
	rsbook.open strbook,conn,1,1
	do until rsbook.eof
	response.write("<option value='"&rsbook("bookname")&"'>"&rsbook("bookname")&"</option>")
	rsbook.movenext
	loop
	rsbook.close
	set rsbook=nothing
	%>
	</select>
	</td>
  </tr>
  <tr>
    <td>借书人姓名:</td>
    <td><input type="text" name="studentname" /></td>
  </tr>
  <tr>
    <td>借书人学号:</td>
    <td><input type="text" name="studentid" /></td>
  </tr>
  <tr>
    <td>借书人班级:</td>
    <td><input type="text" name="classname" /></td>
  </tr>
  <tr height="40" valign="bottom">
    <td align="right" ><input type="submit" value="确定" class="buttons" /></td>
    <td align="center"><input type="button" value="取消" class="buttons" onClick="javascript:document.getElementById('additem').style.display='none';" /></td>
  </tr>
</table>
</form>
</div>
<script language="javascript" type="text/javascript">
function checkadd(){
	
	if(document.addfrm.studentname.value==""){
	alert("必须输入姓名！");
	 return false;
	}
	if(document.addfrm.classname.value==""){
	alert("必须输入班级！");
	 return false;
	}
	if(!isNumber(document.addfrm.studentid.value)){
	alert("学号必须是数字！");
	
	 return false;
	}
	
return true;
}

function isNumber(oNum){
  if(!oNum) return false;
  var strP=/^\d+(\.\d+)?$/;
  if(!strP.test(oNum)) return false;
  try{
  if(parseFloat(oNum)!=oNum) return false;
  }
  catch(ex)
  {
   return false;
  }
  return true;
}
function edit(name){
document.getElementById('additem').style.display='block';
document.addfrm.studentname.value=document.getElementById('td2'+name).innerHTML;
document.addfrm.studentid.value=document.getElementById('td1'+name).innerHTML;
document.addfrm.classname.value=document.getElementById('td3'+name).innerHTML;
document.addfrm.bookname.value=document.getElementById('td0'+name).innerHTML;
document.addfrm.listid.value=document.getElementById('td5'+name).value;
document.addfrm.t.value="edit";
document.getElementById('titleh3').innerHTML="修改借书记录"
}

</script>
<script language="javascript" type="text/javascript">
function getStyle(oElm, strCssRule){
    var strValue = "";
    if(document.defaultView && document.defaultView.getComputedStyle){
        var css = document.defaultView.getComputedStyle(oElm, null);
        strValue = css ? css.getPropertyValue(strCssRule) : null;
    }
    else if(oElm.currentStyle){
        strCssRule = strCssRule.replace(/\-(\w)/g, function (strMatch, p1){
            return p1.toUpperCase();
        });
        strValue = oElm.currentStyle[strCssRule];
    }
    return strValue;
}
function Draggable(el,ed)
{
var xDelta = 0, yDelta = 0;
var xStart = 0, yStart = 0;
// remove the events
function enddrag()
{
    document.onmouseup = null;
    document.onmousemove = null;
}
// fire each time it's dragged
function drag(e)
{
    e = e || window.event;
    xDelta = xStart - parseInt(e.clientX);
    yDelta = yStart - parseInt(e.clientY);
    xStart = parseInt(e.clientX);
    yStart = parseInt(e.clientY);
    el.style.top = (parseInt(el.style.top) - yDelta) + 'px';
    el.style.left = (parseInt(el.style.left) - xDelta) + 'px';
}
// initiate the drag
function md(e)
{
    e = e || window.event;
    xStart = parseInt(e.clientX);
    yStart = parseInt(e.clientY);
    el.style.top = parseInt(getStyle(el,'top')) + 'px';
    el.style.left = parseInt(getStyle(el,'left')) + 'px';
    document.onmouseup = enddrag;
    document.onmousemove = drag;
    return false;
}
// tie it into the element
ed.onmousedown = md;
}
window.onload = function()
{
new Draggable(document.getElementById('additem'),document.getElementById('titlesp'));
}
bq();
</script>


<%call CloseConn()%>
</body>
</html>
💿 文件大小 23 K
👤 上传用户 harveywang
📂 所属分类企业管理
🏷️ 相关标签

#asp #图书管理 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -