📄 index.asp
字号:
height=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</form></td>
</tr>
</table></td>
</tr>
</table>
<table width="200" height="239" border="0" cellpadding="0" cellspacing="1" bordercolor="#0099FF">
<TR>
<td class="dc"><div align="center" class="STYLE2"> </div>
<div align="center"> </div></td>
</tr>
<TR>
<td height="25" valign="middle" bgcolor="#FFFFFF" ><%
dim sl,ws
sl="select top 1 * from poll order by timm desc"
set ws=db.execute(sl)
if ws.eof then
response.write "没有任何信息!"
else
%>
<%=ws("poll_title")%> </td>
</tr>
<TR>
<td height="200" valign="top" bgcolor="#ffffff">
<table width="199">
<TR>
<td><form name="form2" method="post" action="poll_pl.asp" >
<table width="100%" height="170" border="0" cellpadding="0" cellspacing="0" class="index-zhi">
<TR>
<td background="image/3.gif" ><%if ws("content2")="" and ws("content3")="" and ws("content4")="" and ws("content5")="" then%>
<input name="tp" type="radio" value="<%=ws("content1")%>" >
<%=ws("content1")%> <br>
<%elseif ws("content3")="" and ws("content4")="" and ws("content5")="" then%>
<input name="tp" type="radio" value="<%=ws("content1")%>" >
<%=ws("content1")%> <br>
<input name="tp" type="radio" value="<%=ws("content2")%>" >
<%=ws("content2")%> <br>
<%elseif ws("content4")="" and ws("content5")="" then%>
<input name="tp" type="radio" value="<%=ws("content1")%>" >
<%=ws("content1")%> <br>
<input name="tp" type="radio" value="<%=ws("content2")%>" >
<%=ws("content2")%> <br>
<input name="tp" type="radio" value="<%=ws("content3")%>" checked>
<%=ws("content3")%> <br>
<%elseif ws("content5")="" then %>
<input name="tp" type="radio" value="<%=ws("content1")%>" >
<%=ws("content1")%> <br>
<input name="tp" type="radio" value="<%=ws("content2")%>" >
<%=ws("content2")%> <br>
<input name="tp" type="radio" value="<%=ws("content3")%>" checked>
<%=ws("content3")%> <br>
<input name="tp" type="radio" value="<%=ws("content4")%>">
<%=ws("content4")%> <br>
<%else %>
<input name="tp" type="radio" value="<%=ws("content1")%>" >
<%=ws("content1")%> <br>
<input name="tp" type="radio" value="<%=ws("content2")%>" >
<%=ws("content2")%> <br>
<input name="tp" type="radio" value="<%=ws("content3")%>" checked>
<%=ws("content3")%> <br>
<input name="tp" type="radio" value="<%=ws("content4")%>">
<%=ws("content4")%> <br>
<input name="tp" type="radio" value="<%=ws("content5")%>" >
<%=ws("content5")%> <br>
<%end if%>
</td>
</tr>
<TR>
<td height="17" align="center"><TABLE cellSpacing=0 cellPadding=0 width="98%"
align=center
background=image/main_bg_dot.gif
border=0>
<TBODY>
<TR>
<TD
height=1></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<TR>
<td height="9" align="center"><input type="submit" name="Submit3" value="投一票">
</td>
</tr>
<TR>
<td height="9" align="center"><TABLE cellSpacing=0 cellPadding=0 width="98%"
align=center
background=image/main_bg_dot.gif
border=0>
<TBODY>
<TR>
<TD
height=1></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
</form></td>
</tr>
</table>
<% end if%></td>
</tr>
</table>
<table width="200" height="175" border="0" cellpadding="0" cellspacing="1" bgcolor="#3C80D2">
<TR>
<td height="38" background="image/t_4.gif"><div align="center"> </div>
<div align="center"> </div></td>
</tr>
<TR>
<td height="250" align="center" bgcolor="#FFFFFF"><!--#include file=logo.asp--></td>
</tr>
</table></td>
<td width="11" align="left" valign="top"> </td>
<td width="560" align="left" valign="top"><table width="560" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="index-zhi" >
<TR>
<td height="25" valign="top" bgcolor="#eeeeee" ><table width="560" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="20" bgcolor="#FFFFFF" class="fontt"> <font color="#FF0000">推荐房源:</font>
<marquee direction=left TrueSpeed scrollAmount=2 scrollDelay=40 onMouseOut=this.start(); onMouseOver=this.stop(); width=560 border="0">
<font color="#669999">
<%
dim pp,pss
pp="select top 20 * from tjfy order by fbsj desc"
set pss=db.execute(pp)
if pss.eof and pss.bof then
response.Write "最近没有新的房源信息"
else
do while not pss.eof
%>
<a href="chakan_zxfy.asp?id=<%=pss("id")%>" target="_blank" class="fontt" ><font color="#FF6600"><%=pss("qy")%></font></a> <a href="chakan_zxfy.asp?id=<%=pss("id")%>" target="_blank" class="fontt" ><font color="#FF6600"><%=pss("wz")%></font></a> <a href="chakan_zxfy.asp?id=<%=pss("id")%>" target="_blank" class="fontt" ><font color="#FF6600"><%=pss("s")%>室<%=pss("t")%>厅<%=pss("w")%>卫</font></a> <a href="chakan_zxfy.asp?id=<%=pss("id")%>" target="_blank" class="fontt" ><font color="#FF6600"><%=pss("jg")%><%=pss("dw")%></font></a> <a href="chakan_zxfy.asp?id=<%=pss("id")%>" target="_blank" class="fontt" ><font color="#FF6600"><%=pss("fwmj")%></font></a>
<%
pss.movenext
loop
end if
%>
</font>
</marquee>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="580" border="0" cellspacing="0" cellpadding="0">
<TR>
<td valign="top"><TABLE cellSpacing=0 cellPadding=0 width="270" border=0 >
<TBODY>
<TR>
<TD width=269 height=6><DIV align=left><img src="image/title_newsa1.gif" width="142" height="33"> </DIV></TD>
<TD width="10" rowspan="5"><DIV align=center><BR>
</DIV></TD>
</TR>
<TR>
<TD class="index-h1" > </TD>
</TR>
<TR>
<TD bgcolor="#999999" class="index-h1"> </TD>
</TR>
<TR>
<TD height=6> </TD>
</TR>
<TR>
<TD height=7><table >
<%
dim ssql,ss
ssql="select top 7 * from news where lx='业界新闻' order by id desc"
set ss=db.execute(ssql)
if ss.eof or ss.bof then
response.write "最近没有新闻!"
else
do while not ss.eof
%>
<TR>
<td><img src="image/home_icon.gif" width="16" height="16"></td>
<td class="d"><a href="list_news.asp?id=<%=ss("id")%>" target="_blank" class="index-zhi" > <%=ss("title")%> </a></td>
</tr>
<%
ss.movenext
loop
end if
%>
</table></TD>
</TR>
</TBODY>
</TABLE></td>
<td valign="top"><TABLE cellSpacing=0 cellPadding=0 width="300" border=0>
<TBODY>
<TR>
<TD width=286 height=6><DIV align=left><img src="image/title_rule1.gif" width="142" height="33"> </DIV></TD>
<TD width="14" rowspan="5"><DIV align=center><BR>
</DIV></TD>
</TR>
<TR>
<TD class="index-h1"> </TD>
</TR>
<TR>
<TD bgcolor="#999999" class="index-h1"> </TD>
</TR>
<TR>
<TD height=6> </TD>
</TR>
<TR>
<TD height=7><table>
<%
dim ql,es
ql="select top 7 * from news where lx='政策法规' order by id desc"
set es=db.execute(ql)
if es.eof or es.bof then
response.write "最近没有新闻!"
else
do while not es.eof
%>
<TR>
<td><img src="image/icon_home.gif" width="15" height="14"></td>
<td><a href="list_news.asp?id=<%=es("id")%>" target="_blank" class="index-zhi" ><%=es("title")%> </a></td>
</tr>
<%
es.movenext
loop
end if
%>
</table></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -