readeradd.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 84 行

ASP
84 行
字号 
<!--#include File="conndb.asp"-->
<html>
<head>
<title>添加读者信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="STYLESHEET" type="text/css">

<Script Language="JavaScript">
function CheckFlds() {
if (document.form1.rdr_id.value=="") {
    alert("请输入读者证号");
   form1.rdr_id.focus
    return false;
  }
  if (document.form1.rdr_name.value=="") {
    alert("请输入读者姓名");
    form1.rdr_name.focus;
    return false;
  } 
  return true;
 }
</Script>

</head>
<body bgcolor="#E1F5FF">
        <form name="form1"  method="POST" action="ReaderSave.asp?action=add" onsubmit="return CheckFlds()">
        <table border="0" width="100%" cellspacing="1">
      
       
          <tr> 
            <td width="100%">读者证号 
              <input type="text" name="rdr_id" size="20">
            </td>
          </tr>
          <tr> 
            <td width="100%">读者姓名 
              <input type="text" name="rdr_name" size="20">
            </td>
          </tr>
          <tr> 
            <td width="100%">读者类型 
             <select size="1" name="rdr_Type">
				<%Set rs = Server.CreateObject("ADODB.RecordSet")
			          sql = "Select distinct rdr_Type From Reader_Info " 
                      rs.Open sql,conn,3,3
                      If Not rs.Eof Then  
                      Do While Not rs.Eof  
                      %><option value="<%=rs("rdr_Type")%>"><%=rs("rdr_Type")%></option>  
                      <%rs.MoveNext  
                      Loop  
                      End If  
                      rs.close  
                      %>  
                    </select>
            </td>
          </tr>
          <tr> 
            <td width="100%">注册日期 <input type="text" name="rdr_regtime" value=<%=DateAdd("m", 0 , date()) %>>
            </td>
          </tr>
          <tr> 
            <td width="100%">所交押金 
              <input type="text" name="rdr_deposit" size="20">
            </td>
          </tr>
          <tr> 
            <td width="100%">已借书数 
              <input type="text" name="rdr_bktotal" size="20"></td>
          </tr>
          <tr> 
            <td width="100%">超期欠款
			<input type="text" name="rdr_Arrearage" size="20"></td>
          </tr>
          <tr> 
            <td width="100%"> 是否有效
			<input type="text" name="rdr_entitle" size="20"></td>
          </tr>
          <tr> 
            <td width="100%" align=center><input type="submit" value=" 提 交 " name="B1" >&nbsp;&nbsp;&nbsp;&nbsp;
        <input type="reset" value=" 重 写 " name="B2"></td>
          </tr>
        </table>
      </form>
</body></html>

readeradd.asp - 源码说明

本页面展示了「ASP+SQL Server的图书馆管理系统」中的 readeradd.asp 源码文件，采用 ASP 编程语言编写，共 84 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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