readeredit.asp

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

ASP
88 行
字号 
<!--#include File="conndb.asp"-->

<%
Set rs = Server.CreateObject("ADODB.RECORDSET")
%>
<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 CheckFields()
{
}
function newswin(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=300,top=300";
  oth = oth+",width=500,height=100" ;
  var newswin=window.open(url,"newswin",oth);
  return false;
}

</script>
</head>
<body>
<%
  Dim id,iname
  id = Request.QueryString("Rdr_id")
  sql = "Select * From Reader_Info Where Rdr_id="&Cint(id)
  Set rsReader_Info = Conn.Execute(sql)
  If rsReader_Info.Eof Then
     Response.Write "没有此读者信息"
     Response.End
  Else    
%>
<form method="POST" action="ReaderSave.asp?action=edit&Rdr_id=<%=rsReader_Info("rdr_Id")%>" name="form1">
     <table border="0" width="100%" cellspacing="1">
          <tr> 
		  <input type="hidden" name="rdr_id" size="20" value="<%=rsReader_Info("rdr_Id")%>">
            <td> 读者证号
              <%=rsReader_Info("rdr_Id")%>
            </td>
          </tr>
          <tr> 
            <td>读者姓名
              <input type="text" name="rdr_name" size="20" value="<%=rsReader_Info("rdr_Name")%>">
            </td>
          </tr>
          <tr> 
            <td>读者类型 
              <input type="text" name="rdr_type" size="20" value="<%=rsReader_Info("rdr_Type")%>">
            </td>
          </tr>
          <tr> 
            <td>注册日期
              <input type="text" name="rdr_regtime" size="20" value="<%=rsReader_Info("rdr_regtime")%>">
            </td>
          </tr>
          <tr> 
            <td>所交押金
              <input type="text" name="rdr_deposit" size="20" value="<%=rsReader_Info("rdr_deposit")%>"></td>
          </tr>
          <tr> 
            <td>已借书数 
              <input type="text" name="rdr_bktotal" size="20" value="<%=rsReader_Info("rdr_bktotal")%>">
            </td>
          </tr>
		  <tr> 
            <td>超期欠款
              <input type="text" name="rdr_arrearage" size="20" value="<%=rsReader_Info("rdr_arrearage")%>">
            </td>
          </tr>
		  <tr> 
            <td>是否有效
              <input type="text" name="rdr_entitle" size="20" value="<%=rsReader_Info("rdr_entitle")%>">
            </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>
<%End If%>      
</body>

readeredit.asp - 源码说明

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

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

⌨️ 快捷键说明

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