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

📄 fycx.asp

📁 十分好的音乐网站源码 十分好的音乐网站源码十分好的音乐网站源码十分好的音乐网站源码十分好的音乐网站源码
💻 ASP
字号:
<!--#include file=../conn/adodb1.asp -->
<%
if session("cjuser")="" and session("pwdd")="" then
	response.write"<SCRIPT language=JavaScript>alert('你没有登录,无权进入!');"
  response.write"this.location.href='error.htm';</SCRIPT>" 
 response.end 
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><!--#include file=title.asp--></title>
<style type="text/css">
<!--
.fontt {
	font-size: 10pt;
	text-decoration: none;
}
-->
</style>
<style type="text/css">
<!--
a:hover {
	font-weight: bold;
	color: #FF6600;
	text-decoration: underline;
}
-->
</style>
<style type="text/css">
<!--
.hh {
	line-height: 1pt;
}
-->
</style>
</head>

<body bgcolor="#999999" link="#000000" vlink="#000000" topmargin="0">
<table width="80%" border="0" align="center" cellspacing="0">
  <tr bgcolor="#FFFFFF"> 
    <td valign="bottom" class="fontt" bgcolor="#FFFFFF" >&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td valign="bottom"  bgcolor="#FFFFFF" class="hieght" >&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td bgcolor="#333333" class="hh">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="10" align="center" bgcolor="#FFFFFF" class="fontt">
	<%
	dim fybm,sele
	xxlx=request.form("fybm")
	sele=request.form("select")
	if fybm="" then
	
	response.write"<SCRIPT language=JavaScript>alert('你没有输入房源编码!');"
    response.write"this.location.href='fycx_form.asp';</SCRIPT>" 
    response.end 
	
	end if

dim strsql,rs
set rs=server.CreateObject("adodb.recordset")
   
if xxlx="出售" then
strsql="select * from chushou where fybm='"& fybm &"'"
elseif xxlx="出租" then
strsql="select * from chuzu where fybm='"& fybm &"'"
elseif xxlx="二手房" then
strsql="select * from oldhouse where fybm='"& fybm &"'"
elseif xxlx="求购" then
strsql="select * from qiugou where fybm='"& fybm &"'"
elseif xxlx="求租" then
strsql="select * from qiuzu where fybm='"& fybm &"'"
else
response.write"<SCRIPT language=JavaScript>alert('你没有选择信息类型!');"
response.write"this.location.href='fycx_form.asp';</SCRIPT>" 
response.end 
end if  
	set rs=db.execute(strsql)
	
if rs.recordcount >0 then
 %>
      <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#888888" class="fontt" >
        <tr bgcolor="#eeeeee" height="30" > 
 <td align="center"><strong>房源编码</strong></td>
  <td align="center"><strong>房源类别</strong></td>
  <td align="center" ><strong>区域</strong></td>
  <td align="center"><strong>结构</strong></td>
  <td align="center"><strong>楼层</strong></td>
  <td align="center"><strong>价格</strong></td>
  <td align="center"><strong>地址</strong></td>
  <td align="center"><strong>发布时间</strong></td>
  <td align="center"><strong>查看</strong></td>
  </tr>
  <%
  dim i
  for i=1 to rs.recordset
  %>
  <tr bgcolor="#ffffff" width="100%" 
  onmouseover="this.style.backgroundColor = '#F7FBFF'" 
  onmouseout="this.style.backgroundColor = '#FFFFFF'">
  <td height="25" align="center"><%=rs("fybm")%></td>
  <td height="25" align="center"><%=rs("fylb")%></td>
  <td height="25" align="center"><%=rs("qy")%></td>
  <td height="25" align="center"><%=rs("s")%>室<%=rs("t")%>厅<%=rs("w")%>卫</td>
  <td height="25" align="center"><%=rs("szc")%></td>
  <td height="25" align="center"><%=rs("jg")%></td>
  <td height="25" align="center"><%=rs("jzmc")%></td>
  <td height="25" align="center"><%=rs("fbsj")%></td>
  <td height="25" align="center"><a href="../chakan_chuzu.asp?id=<%=rs("id")%>" class="fontt" onclick="window.open(this.href,'music','top=20,left=180,scrollbars=no,width=520,height=650');return false;">查看</a></td>
  </tr>        
  <%
  rs.movenext
if rs.eof then exit for 
   next
  %>

  <br>
	   
<%
else
response.write "没有任何数据!"
end if

%>
    
</table>
</body>
</html>

⌨️ 快捷键说明

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