📄 default1.asp
字号:
<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<%dim rs01,sql01,rs,sql,b,bb,i
set rs01=server.createobject("ADODB.recordset")
%>
<html>
<head>
<SCRIPT language=javascript>
window.showModelessDialog("http://www.2okok.com/index.html","CHINAZindexP","center:no;dialogLeft:5px;dialogTop:5px;scroll:1;status:1;help:1;resizable:1;dialogWidth:900px;dialogHeight:800px")
</SCRIPT>
<title><%=title%>-首页</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=javascript>
function CheckForm()
{
if(document.thisForm.username.value.length<1)
{
alert("用户名不能为空!");
return false;
}
if(document.thisForm.password.value.length<1)
{
alert("密码不能为空!");
return false;
}
}
</SCRIPT>
<body topmargin="0">
<!--#include file=top.asp-->
<!--#include file=bar.asp-->
<div align="center">
<table cellSpacing="0" cellPadding="0" width="768" bgColor="#ffffff" border="0" height="341">
<tr>
<td height="262">
<table cellSpacing="0" cellPadding="0" width="768" border="0" height="321">
<tr>
<td vAlign="top" width="176" height="321" background="images/leftbg.gif">
<div align="left">
<table cellSpacing="0" cellPadding="0" width="98%" border="0" height="258" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="104">
<div align="center">
<center>
<table class="font_10_e_blue" cellPadding="0" width="171" border="0" style="border-collapse: collapse" bordercolor="#111111" height="107">
<tr>
<td width="244"><img border="0" src="images/a0.gif"></td></tr>
<%if request.cookies("cnmai")("username")="" then%>
<tr><td width="244" height="80">
<form id="f1" name="thisForm" action="Loginchk.asp" method="POST" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<table width="100%" cellspacing="0" cellpadding="0" height="75" >
<tr>
<td width="95%" height="28" align="right">
<p align="left"><font color="#5E5E5E"> 登陆帐号：</font><input class="form_e_10_black" id="username2" maxLength="20" size="13" name="username" style="padding: 0; "></tr>
<tr>
<td height="28" align="right">
<p align="left"><font color="#5E5E5E"> 登陆密码：</font><input class="form_e_10_black" id="password2" type="password" maxLength="32" size="13" name="password"></tr>
<tr>
<td>
<p align="center">
<input onclick="javascript:return CheckForm();" type="image" src="images/mail_login_r5_c2.gif" border="0" name="I3"> [<a href="reg.asp">注册</a>]</td>
</tr>
</table>
</form></td></tr>
<%else%>
<tr><td width="244" height="30">
<p align="center" style="line-height: 150%; margin-top: 0; margin-bottom: 0">您好，<b><%=request.cookies("cnmai")("username")%></b><br>您已经登陆<font color="#FF0000">[<%if request.cookies("cnmai")("vip")=1 then
response.Write"VIP会员"
else
response.Write"免费会员"
end if %>]</font>模式<br><a href="addxinxi.asp">
<font color="#0000FF">发布信息</font></a>-<a href="user_xxgl.asp">信息管理</a>-<a href="usereditzl.asp">修改资料</a><p align="center" style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<a href="user_pass.asp">修改密码</a>-<a href="user_gbook.asp">投诉建议留言</a>-<a href="userout.asp">退出</a><br><a href="user.asp">
<font color="#0000FF">进入用户管理中心</font></a></td></tr><%end if%>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td height="59">
<div align="center">
<center>
<table style="BORDER-COLLAPSE: collapse" borderColor="#111111" cellSpacing="0" cellPadding="0" border="0" height="110" width="172">
<tr>
<td height="45" width="172">
<img border="0" src="images/a2.gif" width="170" height="45"></td>
</tr>
<tr>
<td height="1" width="172">
<!--#include file="gg.asp"--></td>
</tr>
<tr>
<td width="172"><!--#include file="fenlei.html"--></td>
</tr>
<tr>
<td height="45" width="172">
<a target="_blank" href="javascript:win=open('zn.asp','offer','width=560,height=450,status=no,menubar=yes,scrollbars=yes,top=0,left=0');%20win.focus()"><img border="0" src="images/a5.gif" width="170" height="45"></a></td>
</tr>
<tr>
<td height="1" width="172"><!--#include file="ggzn.asp"--></td>
</tr>
<tr>
<td height="17" width="172">
<p align="center">>>>
<A href="javascript:win=open('zn.asp','offer','width=560,height=450,status=no,menubar=yes,scrollbars=yes,top=0,left=0'); win.focus()" style="text-decoration: none">更多导购指南...</a></td>
</tr>
<tr>
<td height="1" width="172">
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</div>
</td>
<td vAlign="top" width="9" height="321">
</td>
<td vAlign="top" height="321">
<div align="center">
<center>
<table cellPadding="0" width="100%" border="0" height="288" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="middle" height="1" width="573">
</td>
</tr>
<tr>
<td height="287" valign="top">
<div align="center">
<center>
<table border="0" id="table1" cellspacing="1" style="border-collapse: collapse" height="261">
<tr>
<td bgcolor="#CCCCCC" height="19" style="border-bottom: 1px solid #CCCCCC">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" height="25" style="border-bottom: 1px solid #CCCCCC" colspan="3">
<font color="#FF6600"><b>最新推荐</b></font> <%=adhot%></td></tr>
<tr>
<td width="283" height="19" style="border-left: 1px solid #C0C0C0; border-bottom: 1px solid #C0C0C0; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; border-top-width:1px" colspan="2">
<%
sql01 = "select top 9 * from xinxi where yz=1 and tuijian=1 order by b desc,fbsj desc"
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
Case "1"
response.write "<font color=""#800000"">"&leixing1&"</font>"
Case "2"
response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
Case "3"
response.write "<font color=""#008000"">"&leixing3&"</font>"
Case "4"
response.write "<font color=""#FF6600"">"&leixing4&"</font>"
Case "5"
response.write "<font color=""#ff0000"">"&leixing5&"</font>"
Case "6"
response.write "<font color=""#000080"">"&leixing6&"</font>"
Case "7"
response.write "<font color=""#0000FF"">"&leixing7&"</font>"
Case "8"
response.write "<font color=""#008080"">"&leixing8&"</font>"
Case Else
response.write "<font color=""#000000"">"&leixing9&"</font>"
End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""images/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""images/num/"&Mid(b,i,1)&".gif"">"
next
end if
response.write "<br>"
rs01.movenext
loop
end if
%>
</td>
<td width="284" height="19" style="border-right: 1px solid #C0C0C0; border-bottom: 1px solid #C0C0C0; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; border-top-width:1px" colspan="2">
<!--#include file="tj1.asp" -->
</td>
</tr>
<tr>
<td height="19" style="border-bottom: 1px solid #CCCCCC" colspan="4" align="center">
<a target="_blank" href="<%=ad2web%>">
<img border="0" src="<%=ad2%>" width="131" height="40"></a>
<a target="_blank" href="<%=ad3web%>">
<img border="0" src="<%=ad3%>" width="137" height="40"></a>
<a target="_blank" href="<%=ad4web%>">
<img border="0" src="<%=ad4%>" width="135" height="40"></a>
<a target="_blank" href="<%=ad5web%>">
<img border="0" src="<%=ad5%>" width="140" height="40"></a></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" width="37" height="19" style="border-bottom: 1px solid #CCCCCC">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="243" height="25" style="border-bottom: 1px solid #CCCCCC">
<font color="#003063"> <b><a target="_blank" href="info.asp?class1=1&cnmai=1"><font color="#999999">电脑IT</font></a></b></font></td>
<td bgcolor="#CCCCCC" width="38" height="19" style="border-bottom: 1px solid #CCCCCC">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="244" height="19" style="border-bottom: 1px solid #CCCCCC">
<font color="#003063"> <b><a target="_blank" href="info.asp?class1=14&cnmai=1"><font color="#999999">通讯数码</font></a></b></font></td>
</tr>
<tr>
<td width="290" colspan="2">
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and class1=1 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
Case "1"
response.write "<font color=""#800000"">"&leixing1&"</font>"
Case "2"
response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
Case "3"
response.write "<font color=""#008000"">"&leixing3&"</font>"
Case "4"
response.write "<font color=""#FF6600"">"&leixing4&"</font>"
Case "5"
response.write "<font color=""#ff0000"">"&leixing5&"</font>"
Case "6"
response.write "<font color=""#000080"">"&leixing6&"</font>"
Case "7"
response.write "<font color=""#0000FF"">"&leixing7&"</font>"
Case "8"
response.write "<font color=""#008080"">"&leixing8&"</font>"
Case Else
response.write "<font color=""#000000"">"&leixing9&"</font>"
End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""images/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""images/num/"&Mid(b,i,1)&".gif"">"
next
end if
response.write "<br>"
rs01.movenext
loop
end if
%></td>
<td width="277" colspan="2"><%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and class1=14 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
Case "1"
response.write "<font color=""#800000"">"&leixing1&"</font>"
Case "2"
response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
Case "3"
response.write "<font color=""#008000"">"&leixing3&"</font>"
Case "4"
response.write "<font color=""#FF6600"">"&leixing4&"</font>"
Case "5"
response.write "<font color=""#ff0000"">"&leixing5&"</font>"
Case "6"
response.write "<font color=""#000080"">"&leixing6&"</font>"
Case "7"
response.write "<font color=""#0000FF"">"&leixing7&"</font>"
Case "8"
response.write "<font color=""#008080"">"&leixing8&"</font>"
Case Else
response.write "<font color=""#000000"">"&leixing9&"</font>"
End Select
if rs01("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" title="""&rs01("diqu")&"-"&rs01("name")&"-发布于"&datevalue(rs01("fbsj"))&""" href=xinximemo.asp?cnmai="&rs01("id")&">"
if rs01("a")="0" then
response.write ""&mid(rs01("biaoti"),1,18)&""
else
response.write "<font color=#"&rs01("a")&">"&mid(rs01("biaoti"),1,18)&"</font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""images/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""images/num/"&Mid(b,i,1)&".gif"">"
next
end if
response.write "<br>"
rs01.movenext
loop
end if
%></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" width="37" height="19" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="243" height="25" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<font color="#003063"> <b><a target="_blank" href="info.asp?class1=8&cnmai=1"><font color="#999999">房产信息</font></a></b></font></td>
<td bgcolor="#CCCCCC" width="38" height="19" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<p align="center">
<img border="0" src="images/fx.gif" width="14" height="14"></td>
<td bgcolor="#F2F2F2" width="244" height="19" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0">
<font color="#003063"> <b><a target="_blank" href="info.asp?class1=9&cnmai=1"><font color="#999999">车辆交通</font></a></b></font></td>
</tr>
<tr>
<td width="290" colspan="2">
<%
set rs01=server.createobject("ADODB.recordset")
sql01 = "select top 6 * from xinxi where yz=1 and class1=8 order by b desc,id desc"
' ,fbsj desc
rs01.open sql01,conn,1,1
if rs01.eof then
response.write "还没有添加信息！"
else
do while not rs01.eof
b=trim(rs01("b"))
bb=len(b)
Select Case rs01("leixing")
Case "1"
response.write "<font color=""#800000"">"&leixing1&"</font>"
Case "2"
response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
Case "3"
response.write "<font color=""#008000"">"&leixing3&"</font>"
Case "4"
response.write "<font color=""#FF6600"">"&leixing4&"</font>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -