⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 addbook.asp

📁 使用说明: 请将ASPBook文件夹直接复制到硬盘上
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="conn.inc"-->
<%if session("admin")="" then
response.Write "<script LANGUAGE='javascript'>alert('网络超时或者您还没有登录请登录');window.location.href='login.asp';</script>"
response.End
end if
%>
<script language="Javascript">
function openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
function openem()
{ 
openScript('../up.asp',350,200); 
}
function openem1()
{ 
openScript('../up.asp',350,200); 
}
</script>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} 

a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<body bgcolor="#D9E6FF">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td background="../images/back_3.gif" rowspan="2"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
              <tr> 
                <td class="12v" > 
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                    <tr> 
                      <td> 
                        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D9E6FF">
                          <!--DWLayoutTable-->
                          <tr> 
                            <td height="25" colspan="2"> 
                              <div align="center"><font color="#000000">添加新图书</font></div>
                            </td>
                          </tr>
                          <tr> 
                            <form name="form" method="post" action="saveaddbook.asp?action=add" OnSubmit="return checkkk()" >
                              <td width="89" height="523">&nbsp;</td>
                              <td width="832" valign="top"> 
                                <table width="90%" border="0" align="center" cellpadding="2" cellspacing="0">
                                  <!--DWLayoutTable-->
                                  <tr> 
                                    <td width="34" height="25">&nbsp;</td>
                                    <td width="157">选择分类: </td>
                                    <td colspan="2"> <%
    set rs=server.createobject("adodb.recordset")
    rs.open "select * from shop_anclass order by anclassid",conn,1,1
	if rs.eof and rs.bof then
	response.write "请先添加栏目。"
	response.end
	else
%>
                                      类别
                                        <select name="anclassid" size="1" id="anclassid" onChange="changelocation(document.myform.anclassid.options[document.myform.anclassid.selectedIndex].value)">
                                        <option selected value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
                                        <%      
         selclass=rs("anclassid")
        rs.movenext
        do while not rs.eof
%>
                                        <option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
                                        <%
        rs.movenext
        loop
	end if
        rs.close
%>
                                      </select>                                      <font color="#FF0000">&nbsp;</font></td>
                                    <td width="65"></td>
                                  </tr>
					                                  <tr> 
                                    <td height="25">&nbsp;</td>
                                    <td>选择系列: </td>
                                    <td colspan="2"> <%
    set rs=server.createobject("adodb.recordset")
    rs.open "select * from shop_nclass order by anclassid",conn,1,1
	if rs.eof and rs.bof then
	response.write "请先添加栏目。"
	response.end
	else
%>
                                      系列
                                        <select name="nclassid" size="1" id="nclassid">
                                        <option selected value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
                                        <%    
         selclass=rs("anclassid")
        rs.movenext
        do while not rs.eof
%>
                                        <option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
                                        <%
        rs.movenext
        loop
	end if
        rs.close
%>
                                      </select>                                      <font color="#FF0000">&nbsp;</font></td>
                                    <td></td>
                                  </tr>
                                  <tr> 
                                    <td rowspan="5">&nbsp;</td>
                                    <td height="20">                                      <p>
                                    书名:</p>                                    </td>
                                    <td colspan="2"><input name="bookname" type="text" id="bookname" size="30"></td>
                                    <td></td>
                                  </tr>
                                  <tr> 
                                    <td height="20">                                      <p>
                                    出版社:</p>                                    </td>
                                    <td colspan="2"><input name="press" type="text" id="bookzz" size="16"></td>
                                    <td></td>
                                  </tr>
                                  <tr> 
                                    <td height="20">                                      <p>
                                    作者:</p>                                    </td>
                                    <td colspan="2"> <input name="bookzz" type="text" id="pingpai" size="20">                                      </td>
                                    <td></td>
                                  </tr>
                                  <tr> 
                                    <td height="25">                                      <p>
                                    出版日期:</p>                                    </td>
                                    <td colspan="2" valign="middle"><select name="bookdateyear" id="bookdateyear">
                                        <%dim i
				for i=1996 to 2006 
				response.write "<option value="&i&">"&i&"</option>"
				next
			%>
                                      </select>
                                      <select name="bookdatemonth" id="bookdatemonth">
                                        <%for i=1 to 12
				response.write "<option value="&i&">"&i&"</option>"
				next%>
                                      </select>
                                      <select name="bookdateday" id="bookdateday">
                                        <%for i=1 to 31
				response.write "<option value="&i&">"&i&"</option>"
				next%>
                                      </select>
                                      日</td>
                                    <td></td>
                                  </tr>

⌨️ 快捷键说明

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