jijia-1.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 272 行
ASP
272 行
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<%
Dim Rs,Sql
OpenDataConn
Set Rs=Server.CreateObject("ADODB.Recordset")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<LINK
href="../img/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src="../img/headarrow.gif"
width=17></TD>
<TD align=middle width=10></TD>
<TD class=TD_Place width=935>您现在的位置：<a href="../index.asp"><font color="#FFFFFF"><%=homepage_title%></font> </a>>>
<a href="jijia.asp"><FONT color=#ffffff>购房计价器>></a></font></TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg5.gif border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="center">
<TABLE height=100 cellSpacing=0 cellPadding=0 width=970 border=0>
<TBODY>
<TR>
<TD vAlign=top width=260 height=100>
<TABLE class=out3s_green height="100%" cellSpacing=0 cellPadding=0
width=255 bgColor=#7cb721 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center
border=0>
<TBODY>
<TR>
<TD background="../img/38.gif" height="40">
<b><font color=#FFFFFF>购 房 计 价 器</font></b></TD></TR>
<TR>
<TD>
<table width="93%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<tr onMouseOver="MM_openBrWindow('jj01.asp','','width=500,height=200')">
<td height="24" onClick="MM_openBrWindow('jj01.asp','','width=500,height=200')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>按揭计算器 </td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
<tr>
<td height="25" onClick="MM_openBrWindow('jj02.asp','','width=500,height=200')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>公积金计算器 </td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
<tr>
<td height="24" onClick="MM_openBrWindow('jj03.asp','','width=500,height=220')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>税率计算器 </td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
<tr>
<td height="24" onClick="MM_openBrWindow('jj04.asp','','width=550,height=520')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>组合计算器</td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
<tr>
<td height="24" onClick="MM_openBrWindow('jj05.asp','','width=530,height=510')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>提前还贷计算器 </td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
<tr>
<td height="24" onClick="MM_openBrWindow('jj06.asp','','width=500,height=510')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>个人信用评估</td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
<tr>
<td height="24" onClick="MM_openBrWindow('jj08.asp','','scrollbars=yes,width=520,height=500')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>购房能力评估</td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
<tr>
<td height="24" onClick="MM_openBrWindow('jj07.asp','','width=410,height=280')">
<img border="0" src="../img/arr_w1.gif" width="9" height="9">
<font color=#FFFFFF>质押抉择计算</td>
</tr>
<tr class="trline" height="1" >
<td height="1" background="../ima/back.gif"></td>
</tr>
</table>
</TD></TR>
<TR>
<TD background="../img/36.gif" height="37"> <font color="#FFFFFF">
<b>最
新 问 题</b></font> </TD></TR>
<TR>
<TD>
<table width="198" border="0" cellpadding="0" cellspacing="0" class="main">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from news where sort=14 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="19" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="313" height="19" ><a href=../house/guwen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=14><font color="#FFFFFF"><%=getStr(trim(rs("topic")),14)%></font></a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</TD></TR>
<TR>
<TD>
<p align="right"><a href="guwen_more.asp? sort=14"><font color=#FFFFFF>更多</font></a>
</TD></TR>
<TR>
<TD background="../img/36.gif" height="38">
<font color="#FFFFFF"><b>签 定 合 同</b></font></TD></TR>
<TR>
<TD>
<table width="198" border="0" cellpadding="0" cellspacing="0" class="main">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from news where sort=15 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="19" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="313" height="19" ><a href=../house/guwen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=15><font color=#ffffff><%=getStr(trim(rs("topic")),14)%></font></a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</TD></TR>
<TR>
<TD>
<p align="right">
<a href="guwen_more.asp? sort=15"><font color=#FFFFFF>更多</font></a><font color=#FFFFFF> </font>
</TD></TR>
<TR>
<TD>
</TD></TR>
<TR>
<TD background="../img/36.gif" height="39"> <b>
<font color=#FFFFFF>投 资 顾 问</font></b></TD></TR>
<TR>
<TD>
<table width="198" border="0" cellpadding="0" cellspacing="0" class="main">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from news where sort=16 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="black">
<td width="19" height="19"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="313" height="19"><a href=../house/guwen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=16><font color="#FFFFFF"><%=getStr(trim(rs("topic")),14)%></font></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</TD></TR>
<TR>
<TD>
<p align="right"><a href="guwen_more.asp? sort=16"><font color=#FFFFFF>更多</font></a><font color="#FFFFFF">
</font></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE height=28 cellSpacing=0 cellPadding=0 width=710 border=0 id="table7">
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9>
<a href="jijia.asp"><FONT color=#ffffff>购房计价器</font></a></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></TD></TR></TBODY></TABLE>
</div>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right" >
<TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=700 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<td width="700" valign="top">
<div align="center">
<TABLE height=214
border=0 cellPadding=0 cellSpacing=1 class=ch-9 width="700">
<TBODY>
<TR>
<TD height=195 align=center valign="top"> <FORM name=formt action="" method=post>
<br>
<div align="center">
<TABLE class=ch-9 cellSpacing=0 cellPadding=0
align=center border=0>
<TBODY>
<TR>
<TD>
<div align="center">
<table width=700 border=0 cellpadding=0 cellspacing=1 bgcolor="#76AE00">
<form name="mychoose">
<tr bgcolor="#F9DE8E">
<td height=25 colspan="2" align="center" bgcolor="#76AE00"><font color="#FFFFFF">个人信用评估</font>
<tr bgcolor=#FFFFFF>
<td width=222 height=30> 文化程度(满分10分，配偶另加2分)
<td width=218>
<select name=choose>
<option selected value="910">博士 9~10分</option>
<option value="809">硕士 8~9分</option>
<option value="708">学士 7~8分</option>
<option value="608">专科 6~8分</option>
<option value="606">中专或高中 6分</option>
<option value="505">初中以下 5分</option>
</select></td>
<tr bgcolor="#FFFFFF">
<td width=222 height=30> 工作年限（满分10分）</td>
<td width=218>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?