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

📄 index1.asp

📁 合同管理系统
💻 ASP
字号:

<!--#include file=conn.asp-->
<!--#include file=top.asp-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="700" height="732" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="186" height="30" valign="top"><img src="pic/n1_gonggao.jpg" width="182" height="30"></td>
    <td width="10" rowspan="8">&nbsp;</td>
    <td width="504" rowspan="8" valign="top">
<table width="504" border="0" cellspacing="0" cellpadding="0">
        <!--DWLayoutTable-->
        <tr> 
          <td width="504" height="31" valign="bottom"><img src="pic/n1_remen.jpg" width="182" height="25"></td>
        </tr>
        <tr> 
          <td height="96" valign="top"><table width="504" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
              <tr> 
                <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#fcfcf5">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td width="125" height="108" valign="middle" bgcolor="#fcfcf5"> 
                        <div align="center"> 
                          <% set rs4=server.createobject("adodb.recordset")
						   sql="select * from books"
						   rs4.open sql,conn,3,3
						 %>
                          <p class="pt9"><a href="book1.asp?n=<%=rs4("bk_name")%>"><img src=<%=rs4("bk_pic")%> border="0"></a> 
                          </p>
                        </div></td>
                      <td width="377" valign="top"><table width="100%" height="108" border="0" cellpadding="0" cellspacing="0">
                          <!--DWLayoutTable-->
                          <tr> 
                            <td width="377" height="19" valign="top" bgcolor="#fcfcf5"><font size=2>书名:</font><font size=2><%=rs4("bk_name")%></font></td>
                          </tr>
                          <tr> 
                            <td height="17" valign="top" bgcolor="#fcfcf5"><font size=2>价格:</font><font size=2><%=rs4("bk_jg")%></font></td>
                          </tr>
                          <tr> 
                            <td height="21" valign="top"><font color="#FF0000" size=2>VIP:<%=rs4("bk_vjg")%> 
                              </font></td>
                          </tr>
                          <tr> 
                            <td valign="top"><font size=2><%=rs4("bk_content")%></font></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="384" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
              <!--DWLayoutTable-->
              <tr> 
                <td width="504" height="27"><img src="pic/n1_new.jpg" width="182" height="24"></td>
              </tr>
              <tr>
                <td height="192" valign="top">
<table width="504" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
                    <tr>
                      <td bgcolor="#FFFFFF">
					  <%
					  set rs=server.createobject("adodb.recordset")
					  sql="select * from books order by bk_date DESC"
					  rs.open sql,conn,3,3
					  response.write "<table border=0>"
					  while Not rs.eof
					     response.write "<tr><td>"
						 response.write "<a href=book1.asp?n="&rs("bk_name")&">"
						 response.write rs("bk_name")
						 response.write "</a>"
						 response.write "</td>"
						 response.write "<td>"
						 response.write rs("bk_author")
						 response.write "</td>"
						 response.write "<td>"
						 response.write rs("bk_content")
						 response.write "</td></tr>"
						 rs.movenext
					  wend
					  response.write "</table>"
					  rs.close
					  set rs=nothing
					  %>
					  </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="116" valign="top"> <table width="183" height="118" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr> 
          <td width="181" height="116" bgcolor="#fcfcf5"> 
            <%
		  set rs1=server.createobject("adodb.recordset")
		  sql="select * from pub"
		  rs1.open sql,conn,3,3
		  response.write "<table border=0>"
		  while Not rs1.eof
		    response.write "<tr>"
			response.write "<td>"
			response.write "<font size=2>"
			response.write rs1("pub_title")
			response.write "</font>"
			response.write "</td>"
			response.write "</tr>"
		    rs1.movenext
		  wend
		  response.write "</table>"
		  rs1.close
		  set rs1=nothing
		  %>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="25"><img src="pic/n1_login.jpg" width="182" height="25"></td>
  </tr>
  <tr> 
    <td height="76"> <table width="183" height="251" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr> 
          <td height="249" valign="top" bgcolor="#fcfcf5"> 
            <% if session("user_name")="" then %>
            <table width="181" height="67" border=0>
              <form method="post" action="check.asp">
                <tr> 
                  <td width="66" ><div><font size=2>用户名:</font></div></td>
                  <td width="105" ><div> 
                      <input type="text" name=name size=12>
                    </div></td>
                </tr>
                <tr> 
                  <div> 
                    <td><p><font size=2>密 码:</font></td>
                  </div>
                  <td><div> 
                      <font size=2><input type="password" name=passwd size=12></font>
                    </div></td>
                </tr>
                <tr> 
                  <td height="23"> <div> 
                      <font size=2><input name="submit" type="submit" value="登陆"></font>
                    </div></td>
                  <td> <div><font size=2><a href="reg.asp">注册</a></font></div></td>
                </tr>
              </form>
            </table>
            <% else %>
            <p> 
            <table border=0>
              <%
	           set rs2=server.createobject("adodb.recordset")
	           sql="select * from ps where name='"&session("user_name")&"'"
	           rs2.open sql,conn,3,3
	           %>
              <tr> 
                <td width="56" bgcolor="#fcfcf5"><font size=2>用户名:</font></td>
                <td width="118"><font size=2><%=rs2("name")%></font></td>
              </tr>
              <tr> 
                <td bgcolor="#fcfcf5" ><font size=2>地址:</font></td>
                <td bgcolor="#fcfcf5" ><font size=2><%=rs2("address")%></font></td>
              </tr>
              <tr> 
                <td><font size=2>电话:</font></td>
                <td><font size=2><%=rs2("tel")%></font></td>
              </tr>
              <tr> 
                <td height="20"><font size=2>E_mail:</font></td>
                <td><font size=2><%=rs2("e-mail")%></font></td>
              </tr>
              <tr><td>
              <% if flag=0 then %>
			  <a href="quit.asp"><font size=2>退出</font></a>
			   <% end if %>
			  </td></tr>
			  <% rs2.close
			     set rs2=nothing %>
            </table>
            <p></p>
            <% end if %>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="29"><img src="pic/n1_sousuo.jpg" width="182" height="25"></td>
  </tr>
  <tr> 
    <td height="69"> <table width="186" height="55" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr> 
          <td width="184" bgcolor="#Fcfcf5"><table width="184" border=0 cellspacing="1">
              <form method="post" action="search1.asp">
                <tr> 
                  <td width="58" bgcolor="#fcfcf5"> <div><font size=2>方式:</font></div></td>
                  <td width="119" bgcolor="#fcfcf5"> <div> 
                      <select name="select">
                        <option selected>书名</option>
                        <option>作者</option>
                      </select>
                    </div></td>
                </tr>
                <tr> 
                  <td bgcolor="#fcfcf5"> <div><font size=2>关键字:</font></div></td>
                  <td bgcolor="#fcfcf5"> <div> 
                      <font size=2><input type="text" name=fdname size=12></font>
                    </div></td>
                </tr>
                <tr> 
                  <td height="23" bgcolor="#fcfcf5">&nbsp;&nbsp;&nbsp;</td>
                  <td bgcolor="#fcfcf5">    
                    <font size=2><input name="submit2" type="submit" value="搜索"></font></td>
                </tr>
              </form>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="24"><img src="pic/n1_paihang.jpg" width="182" height="25"></td>
  </tr>
  <tr> 
    <td height="165" valign="top"> 
      <table width="186" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr> 
          <td width="184" height="163" valign="top" bgcolor="#fcfcf5"> 
            <%
		  set rs3=server.createobject("adodb.recordset")
		  sql="select top 15 * from books order by bk_buy DESC"
		  rs3.open sql,conn,3,3
		  %>
            <table border=0>
              <% while Not rs3.eof %>
              <tr> 
                <td width="130"> <font size=2><a href="book1.asp?n=<%=rs3("bk_name")%>"><%=rs3("bk_name")%></a></font> 
                </td>
                <td width="42"><font size=2><%=rs3("bk_buy")%></font></td>
              </tr>
              <%
		  rs3.movenext
		  wend
		  %>
            </table>
            <p> 
              <%
		  rs3.close
		  set rs3=nothing
		  %>
            </p></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<!--#include file=copy.asp-->

⌨️ 快捷键说明

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