zixun.asp

酒店管理系统

<!--#include file="../inc/conn.asp"-->
<!--#include file="checkpwd.asp"-->
<!--#include file="../inc/title.inc"-->

<style>
TD {
	FONT-SIZE: 9pt
; color: #000000
}
</style>
<table width="788" border="0" cellpadding="0" cellspacing="1">
  <!--DWLayoutTable-->
  <tr> 
    <td width="786" height="59">&nbsp;</td>
  </tr>
  <tr>
    <td height="422" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#3399FF">
        <!--DWLayoutTable-->
        <tr> 
          <td width="784" height="422" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <!--DWLayoutTable-->
              <tr> 
                <td width="784" height="23" align="center" valign="middle" bgcolor="#3333CC"><font color="#FFFFFF" face="楷体_GB2312"><strong>资讯管理</strong></font></td>
              </tr>
              <tr> 
                <td height="13" valign="top"> 
                  <% if request("action")= ""then
				  set rs=server.CreateObject("adodb.recordset")
				  rs.open "select * from zxun ",conn,1,1
	             do while not rs.eof
				  %>
                  <table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td width="784" height="12" valign="middle" align="center"><a href="zixun.asp?id=<%=rs("id")%>&action=1"><%=rs("zti")%></a></td>
                    </tr>
                    <tr> 
                      <td height="1" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
                          <!--DWLayoutTable-->
                          <tr> 
                            <td width="784" height="1"></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table>
                  <%
			rs.movenext
		    loop
			rs.close
			set rs=nothing
			end if
			%>
                </td>
              </tr>
              <tr> 
                <td height="88" valign="top"> 
                  <%
				 if request("action")=1 then
				 id=request("id")
        set rs=server.CreateObject("adodb.recordset")
		sql="select * from zxun where id="&id '注意当根据ID（数据库自动编号）必须使用这种形式其他文本为："select * from zxun where 111=‘"&id &“’
		'response.Write(sql)
	  rs.open sql,conn,1,1
				 %>
                  <table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td height="18" colspan="4" align="center" valign="middle"> 
                        <%response.Write rs("zti")%>
                      </td>
                    </tr>
                    <tr> 
                      <td height="18" colspan="4" valign="top"><%=rs("nr")%></td>
                    </tr>
                    <tr> 
                      <td width="644" height="16">&nbsp;</td>
                      <td width="43" valign="top"><a href="delzixun.asp?id=<%=rs("id")%>">删除</a></td>
                      <td width="45" valign="top"><a href="addzixun.asp?id=<%=rs("id")%>">添加</a></td>
                      <td width="52" valign="top"><a href="zixun.asp">返回</a></td>
                    </tr>
                  </table>
                  <%
				  end if
				  %>
                </td>
              </tr>
              <tr>
                <td height="268">&nbsp;</td>
              </tr>
              <tr> 
                <td height="30"  align="right" valign="top"bgcolor="#3333CC"><font color="#FFFFFF">2007-9</font></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="43">&nbsp;</td>
  </tr>
</table>