bookedit.asp

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

ASP
121 行
字号 
<!--#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("book_id")
  sql = "Select * From Book_info Where book_id="&Cint(id)
  Set rsbook_info = Conn.Execute(sql)
  If rsbook_info.Eof Then
     Response.Write "没有此图书信息"
     Response.End
  Else    
%>
<form method="POST" action="bookSave.asp?action=edit&book_id=<%=id%>" name="form1">
     <table border="0" width="100%" cellspacing="1">
          <tr> 
            <td width="70%">图书类别 
              <select size="1" name="book_type">
                <%
                sql = "Select * From book_Type"
                rs.Open sql,Conn,3,3
                If rs.Eof Then
                %>
                <option value="">没有类别信息</option>
                <%Else
                    Do While Not rs.Eof
                      If rs("type_id")=rsBook_Info("book_type") Then                    
                %>
                <option value="<%=rs("type_id")%>" selected><%=rs("type_name")%></option>
                <%    Else%>
                <option value="<%=rs("type_id")%>"><%=rs("type_name")%></option>
                <%    End If
                      rs.MoveNext
                    Loop
                End If
                rs.Close%>
              </select>
            </td>
            <td width="30%" rowspan="7" align=left>
<%
  iname = rsbook_Info("book_ImageFile")
  If iname = "" Or ISNULL(iname) Then
    url = "EditUpload.asp?book_id="&id          
%>
    <a href=# onclick=newswin('<%=url%>') alt="设置照片"><font color=blue>无照片</font></a>
<%   
  Else      
    url = "EditUpload.asp?book_id="&id
    url_delt = "BookImageDelt.asp?book_id="&id
%> 
    <img src="images\<%=rsBook_Info("book_ImageFile")%>" width="120" border=0><br><br>         
    <a href=# onclick=newswin('<%=url%>')>设置图片</a>&nbsp; &nbsp;        
    <a href=# onclick=newswin('<%=url_delt%>')>删除图片</a>
<%   
  End If
%></td>       
				</tr>
          <tr> 
            <td>图书名称 
              <input type="text" name="book_name" size="20" value="<%=rsbook_Info("book_Name")%>">
            </td>
          </tr>
          <tr> 
            <td>图书编号 
              <input type="text" name="book_id" size="20" value="<%=rsbook_Info("BOOK_id")%>">
            </td>
          </tr>
          <tr> 
            <td>出版社 <input type="text" name="book_press" size="20" value="<%=rsbook_Info("book_Press")%>">
            </td>
          </tr>
          <tr> 
            <td>出版日期 
              <input type="text" name="book_prsdate" size="20" value="<%if rsbook_Info("book_PrsDate")="" then response.write date():else:response.write rsbook_Info("book_PrsDate"):end if%>">
            </td>
          </tr>
          <tr> 
            <td>图书数量
              <input type="text" name="book_total" size="20" value="<%=rsBook_Info("Book_Total")%>"></td>
          </tr>
          <tr> 
           
          </tr>
          <tr> 
            <td colspan="2">简介</td>
          </tr>
          <tr> 
            <td colspan="2"> 
              <textarea rows="6" name="book_remark" cols="56" class=input><%=rsBook_Info("book_remark")%></textarea>
            </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>

bookedit.asp - 源码说明

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

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

⌨️ 快捷键说明

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