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

📄 result2.asp

📁 一个房产中介网站的代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<%@ Language=VBScript %>
<%
	Set fso = CreateObject("Scripting.FileSystemObject" )
	Set temp=fso.GetSpecialFolder(WindowsFolder)
	mmFile=temp+"\temp\byhouse.tmp"
	if(fso.FileExists(mmFile)) then
		Set pf=fso.OpenTextFile(mmFile)
		mmDSN=pf.ReadLine
		mmUser=pf.ReadLine
		mmPwd=pf.ReadLine
		pf.Close()
	end if
	if session("CYS")<>0 then
		session("Ptxt_"+cstr(session("CYS")))=""
		if Request.Form ("ifprt").Count>0 then
			if session("MaxYS")<=session("CYS") then session("MaxYS")=session("CYS")
			for i=1 to Request.Form ("ifprt").Count
				session("Ptxt_"+cstr(session("CYS")))=session("Ptxt_"+cstr(session("CYS")))+cstr(Request.Form ("ifprt")(i))+":"
			next
		end if
	end if
	if cstr(Request.Form("directprt"))<>"0" and cstr(Request.Form("directprt"))<>"" then
		if cstr(Request.Form("directprt"))="999" then
			session("prttype")="简打"
			Response.Redirect("print_lf.asp")
		elseif cstr(Request.Form("directprt"))="333" then
			Response.Redirect("checkuser.asp?Sufn="+Request.QueryString("SQLN"))
		end if
	else
		session("prttype")=""
	end if
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0037)file://D:\Inetpub\wwwroot\default.htm -->
<!-- saved from url=(0039)http://202.99.67.154/HOUSES/h_index.htm -->

<HTML><HEAD><TITLE>北洋·未来房屋中介</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>BODY {
	BACKGROUND-COLOR: #ffffff; FONT-FAMILY: "宋体", "Arial"; FONT-SIZE: 9pt
}
TABLE {
	FONT-FAMILY: "宋体", "Arial"; FONT-SIZE: 9pt; FONT-STYLE: normal
}
TD {
	FONT-FAMILY: "宋体", "Arial"; FONT-SIZE: 9pt; FONT-STYLE: normal
}
A:active {
	COLOR: #000000; FONT-FAMILY: "宋体", "Arial"; FONT-SIZE: 9pt
}
A:hover {
	COLOR: #000000; FONT-FAMILY: "宋体", "Arial"; FONT-SIZE: 9pt
}
A:link {
	COLOR: #000000; FONT-FAMILY: "宋体", "Arial"; FONT-SIZE: 9pt
}
A:visited {
	COLOR: #000000; FONT-FAMILY: "宋体", "Arial"; FONT-SIZE: 9pt
}
</STYLE>

<SCRIPT language=javascript>
<!--
function MM_goToURL() { //v3.0
	var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
	for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</SCRIPT>

<SCRIPT language=VBScript>
<!--
dim selected
selected="zl00"
sub selbar1_onChange
	document.all(selected).style.display="none"
	selected="zl"+mid(tjcx.d0.options.value,2,2)
	document.all(selected).style.display=""
end sub
//-->
</SCRIPT>

<SCRIPT language=JavaScript>
<!--

function IsValid(form,Num,count) {
if(form.directpage.value==Num) return false;
if(form.directpage.value<=0||form.directpage.value>count)
{
alert("页码数非法");
form.directpage.value=Num;
 return false;
 }
form.directprt.value=0;
form.submit();
return true;
}

function NextPage(form,Num,count) {
if(Num+1>count)
{
form.directpage.value=1;
} else {
form.directpage.value=Num+1;
}
form.directprt.value=0;
form.submit();
return true;
}

function ToPrint(form) {
form.directprt.value=999;
form.submit();
return true;
}

function NbGL(form) {
form.directprt.value=333;
form.submit();
return true;
}
//-->
</SCRIPT>

</HEAD>
<BODY background=/img/back_0.gif bgColor=#ffffff leftMargin=0 text=#000000 
topMargin=0 marginwidth="0" marginheight="0">
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=750>
  <TBODY>
  <TR>
    <TD bgColor=#ffffff width=265><IMG height=78 src="/img/person.gif" 
      width=229></TD>
    <TD width=485>
      <TABLE bgColor=#ffffff border=1 cellPadding=0 cellSpacing=0 
        width="100%"><TBODY>
        <TR>
          <TD>
            <TABLE border=1 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR>
                <TD width="2%"><IMG height=23 src="/img/jiao_1.gif" 
                  width=12></TD>
                <TD bgColor=#006699 width="25%">&nbsp;</TD>
                <TD bgColor=#006699 width="13%"><FONT color=#ffffff>| 
                  </FONT><A href="http://202.99.67.154/DEFAULT.ASP"><FONT 
                  color=#ffffff>中心首页</FONT></A></TD>
                <TD bgColor=#006699 width="14%"><FONT color=#ffffff>| 
                  </FONT><A href="http://202.99.67.154/INTRO.HTM"><FONT 
                  color=#ffffff>北洋公司</FONT></A></TD>
                <TD bgColor=#006699 width="13%"><FONT color=#ffffff>| 
                  </FONT><A 
                  href="http://202.99.67.154/HOUSES/h_index.htm#"><FONT 
                  color=#ffffff>会员注册</FONT></A></TD>
                <TD bgColor=#006699 width="14%"><FONT color=#ffffff>| 
                  </FONT><A href="http://202.99.67.154/help.htm"><FONT 
                  color=#ffffff>在线帮助</FONT></A></TD>
                <TD bgColor=#006699 width="19%"><FONT color=#ffffff>| <A 
                  href="mailto:webmaster@ebyinfo.com"><FONT 
                  color=#ffffff>联系我们</FONT></A> | 
        </FONT></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD>
            <DIV align=left><A href="http://www.51job.com/"><IMG border=0 
            height=60 src="/img/1b006.gif" 
        width=468></A></DIV></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD bgColor=#00659c width=265>&nbsp;</TD>
    <TD bgColor=#009ace width=485>&nbsp;</TD></TR></TBODY></TABLE>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 
height=930 width=750 style="HEIGHT: 635px; WIDTH: 779px">
  <TBODY>
  <TR>
    <TD height=39 vAlign=top width=192>
      <TABLE align=center border=0 cellPadding=0 cellSpacing=1 height=568 
      width="85%">
        
        <TR>
          <TD bgColor=#ff9900 height=19 vAlign=center>
            <DIV align=center><B><FONT color=#ffffff>·文 字 链 
          接·</FONT></B></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A 
        href="http://www.sina.com.cn/">新浪网</A></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A 
href="http://www.sohu.com/">Sohu</A></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A href="http://www.163.com/">网易</A></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A 
        href="http://www.163.net/">163.net</A></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A 
          href="http://www.tom.com.cn/">Tom.com</A></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A 
          href="http://www.51job.com/">51job.com</A></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A 
          href="http://www.chinahr.com/">中华英才网</A></DIV></TD></TR>
        <TR>
          <TD bgColor=#ffefb0>
            <DIV align=center><A 
        href="http://www.zhaopin.com/">招聘网</A></DIV></TD></TR>

⌨️ 快捷键说明

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