📄 renew_info.asp

📁 ASP+SQL Server的图书馆管理系统
💻 ASP
字号:
<!--#include file="conndb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图书续借</title>
<link href="style.css" rel="stylesheet">
<SCRIPT language=javascript >
function fucCheckNUM(NUM)
{
	var i,j,strTemp;
	strTemp="0123456789.";
	if (NUM.length==0)
		return 0;
	for (i=0;i<NUM.length;i++)
	{
		j=strTemp.indexOf(NUM.charAt(i));	
		if (j==-1)
		{
		//说明有字符不是数字
			return 0;
		}
	}
	//说明是数字
	return 1;
}

</SCRIPT>
<SCRIPT type="text/javascript">
<!--

function form1_onsubmit() 
{
  
   if(document.form1.rec_bktotal.value.length<1)
 {
   alert("您必须输入借阅图书数量!");
   document.form1.rec_bktotal.focus();
   return false;
 }
 if ((fucCheckNUM(document.form1.rec_bktotal.value)==0) )
	{	alert ("借阅数量有非法字符，请填写正确借阅数量。");
		document.form1.rec_bktotal.focus();
		return false;
	}
return true;	
}

//-->
</SCRIPT>
</head>
<!--#include file="head.asp"-->
<body text="#000000" link="#000080" vlink="#080080"> 
<form name="form1" method="post" onsubmit="return form1_onsubmit()" action="renew_Info_Ok.asp">
  <%dim count 
set rs=server.createobject("adodb.recordset") 
rs.open "select * from book_info ",conn,1,1%> 
<script language = "JavaScript"> 
var onecount; 
onecount=0; 
subcat = new Array(); 
<% 
count = 0 
do while not rs.eof 
%> 
subcat[<%=count%>] = new Array("<%= trim(rs("book_name"))%>","<%= rs("book_type")%>","<%= trim(rs("book_name"))%>"); 
<% 
count = count + 1 
rs.movenext 
loop 
rs.close 
%> 

onecount=<%=count%>; 

function changelocation(locationid) 
{ 
document.form1.rec_bkname.length = 0; 

var locationid=locationid; 
var i; 
for (i=0;i < onecount; i++) 
{ 
if (subcat[i][1] == locationid) 
{ 
document.form1.rec_bkname.options[document.form1.rec_bkname.length] = new Option(subcat[i][0], subcat[i][2]); 
} 
} 
} 
</script> 
		  <center>
		   <p align="center"><b><font style="font-size: 12pt">图 书 续  借  登 记</font></b></p>
		   <BR>
                <table cellspacing=1 cellpadding=4 width=524 bgcolor=#3399FF height="283">    
					
<% 
  Dim id
  id = Request.QueryString("id")
rs.open "select * from Book_record where Rec_Id="&Cint(id),conn,1,1 
if rs.eof and rs.bof then 
response.write "无法打开数据库!" 
response.end 
else 
%> 
<tbody> 
			  <tr>
               <input type="hidden" name="id" value="<%=rs("Rec_Id")%>">
                <td  width=108 bgcolor=#FEEC85 height=24 align="right" style='FONT-SIZE: 10pt'><strong>借阅种类：</strong></td>
                <td width=425 height=24 bgcolor="#ffffff"><input type=text value="<%=rs("Rec_BkType")%>" name="rec_bktype"></td>
              </tr> 
			  <tr>
                <td  width=108 bgcolor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>借阅数量：</strong></td>
                <td  width=425 height=25 bgcolor="#ffffff">

				<input type="text" name="rec_bktotal" size="10" value="<%=rs("Rec_BkTotal")%>"></td>
			
              </tr>
		  
			  <tr>
			  
                <td  width=108 bgcolor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>读者类型：</strong>
				<% 'response.write rs("Rec_BkName")%>
				<input type="hidden" name="rec_bkname" value="<%=rs("Rec_BkName")%>"><!-- 图书名称--></td>
                <td  width=425 height=25 bgcolor="#ffffff">
			<input type=text name="rec_rdrtype" value="<%=rs("Rec_RdrType")%>"> </td>
                  
              </tr>
			  <tr>
                <td  width=108 bgcolor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>读者姓名：</strong></td>
                <td  width=425 height=25 bgcolor="#ffffff">
				<input type=text name="rec_rdrname" value="<%=rs("Rec_RdrName")%>"> </td>
              </tr>
			  <tr>
                <td  width=108 bgcolor=#FEEC85 height=25 align="right"style='FONT-SIZE: 
                10pt'><strong>续借时间：</strong></td>
                <td  width=425 height=25 bgcolor="#ffffff"><input type="text" name="rec_lendtime" size="20" value=<%=DateAdd("m", 0 , date()) %>>
                </td>
              </tr>
              <tr>
                <td  width=108 bgcolor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>应还时间：</strong></td>
                <td  width=425 height=25 bgcolor="#ffffff"><input type="text" name="rec_lendlimit" size="20" value=<%=DateAdd("m", 2 , date()) %>>
				</td>
              </tr>
              <tr>
                <td  width=108 bgcolor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>备注：</strong></td>
                <td  width=425 height=25 bgcolor="#ffffff"><textarea rows="4" name="rec_remark" cols="40" ><%=rs("Rec_Remark")%></textarea></td>
              </tr>
			  <%
			  End If
			  rs.Close
			  %>
  </tbody>
          </table>
        </center>
      </div>
	           <tr >
                <td  colspan=2 height="27"bgcolor=#ffffff><p align="center">
				  <input  type=submit size=3  value='登记' name=Submit2 >
                  <input  type=reset value="重写" name="B4" size=3>                
                </td>
                 </tr>
                <tr>
               <td><div align="center">
                 <p>Copyright 2007 </p>
                 </div></td>
              </tr>　
</form>
</body> 
</html>
⌨️ 快捷键说明

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