www.gusucode.com > 盐城分类信息网asp源码程序 > te.asp
<%sub t()%>
<html><HEAD>
<TITLE><%=title%><%=web%></TITLE>
<META name="description" content="http://www.81199.com">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="STYLE.CSS" rel="stylesheet" type="text/css">
<STYLE type=text/css media=screen>
.input3 {
BORDER-RIGHT: #A6A9AA 1px solid; BORDER-TOP: #A6A9AA 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #ffcc99 1px solid; COLOR: #033E76; BORDER-BOTTOM: #A6A9AA 1px solid; BACKGROUND-COLOR: #ffffff
}
.STYLE1 {color: #FFFFFF}
.fttop
{filter:dropshadow(color=#ffffff,offx=1,offy=1);font-size:14px;letter-spacing:1px;font-weight: bold;color:#6C2502; }
.inputa1 {border:1px solid #900; background:#fff; height:16px;
star : expression(onmouseover=function(){this.style.backgroundColor="#eee"},onmouseout=function(){this.style.backgroundColor="#fff"})}
-->
</STYLE>
<script LANGUAGE="JavaScript">
function ChecklogForm()
{
if (document.logForm.username.value == "")
{
alert("请填写您的帐号！");
document.logForm.username.focus();
return (false);
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.logForm.username.value)) {
alert("用户名填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.logForm.username.focus();
document.logForm.username.select();
return (false);
}
if (document.logForm.password.value =="")
{
alert("请填写您的密码！");
document.logForm.password.focus();
return (false);
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.logForm.password.value)) {
alert("密码填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.logForm.password.focus();
document.logForm.password.select();
return (false);
}
document.logForm.submit()
}</script>
<script src="images/weather.js" type="text/javascript"></script>
<noscript><iframe src=*.html></iframe></noscript>
<table width="100%" height="29" border="0" align="center" cellpadding="0" cellspacing="0" background="img/indextop.gif">
<tr>
<td width="1%"></td>
<td width="30%"> <SPAN class=logintt>今天是：<script src="date.js"></script><script language="javascript">document.writeln("<a href=\"#\"><font color=#990000>"+clock()+"</font></a>");</script>
</SPAN></td>
<td width="61%"><table cellpadding="0" width="100%" border="0" bordercolor="#111111" valign="top" cellspacing="0" id="table7">
<%if request.cookies("cnmai")("username")="" then%>
<tr>
<td align="right"><form id="f1" name="logForm" action="Login.asp" method="post" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<SPAN class=logintt>用户名：</SPAN>
<input maxlength="20" size="16" name="username" class=inputa1 />
<SPAN class=logintt>密码：</SPAN>
<input type="password" maxlength="32" size="16" name="password" class=inputa1 />
<input type="hidden" name="login" value="cnmai" />
<input onClick="javascript:return ChecklogForm();" type="submit" value="个人" name="per" style="border:1 solid #900;
FONT-SIZE: 9pt;
FONT-STYLE: normal;
background-color:#FFFFFF;
FONT-VARIANT: normal;
FONT-WEIGHT: normal;
HEIGHT: 16px;
LINE-HEIGHT: normal;"/>
<input onClick="javascript:return ChecklogForm();" type="submit" value="商家" name="com" style="border:1 solid #900;
FONT-SIZE: 9pt;
FONT-STYLE: normal;
background-color:#FFFFFF;
FONT-VARIANT: normal;
FONT-WEIGHT: normal;
HEIGHT: 16px;
LINE-HEIGHT: normal;" />
<a href="reg.asp"><SPAN class=logintt>立即注册</SPAN></a> <a href="getpass.asp"><SPAN class=logintt>忘记密码</SPAN></a>
</form></td>
</tr>
<%else%>
<tr>
<td align="right"><%if request.cookies("cnmai")("com")="" then %>
<SPAN class=logintt> 欢迎您,<b><%=request.cookies("cnmai")("username")%></b>(个人)</SPAN><a class='top' href="u_xxgl.asp"><SPAN class=logintt>信息管理</SPAN></a> <a class='top' href="user.asp"><SPAN class=logintt>管理中心</SPAN></a> <a class='top' href="login.asp?cnmai=out"><SPAN class=logintt>[退出]</SPAN></a>
<%else%>
<SPAN class=logintt>欢迎您,<b><%=request.cookies("cnmai")("username")%></b>(商家)</SPAN><a class='top' target="_blank" href="com.asp?m=<%=request.cookies("cnmai")("username")%>"><SPAN class=logintt>我的店铺</SPAN></a> </span><a class='top' href="com_user.asp"><SPAN class=logintt>管理中心</SPAN></a> <a class='top' href="login.asp?cnmai=out"><SPAN class=logintt>[退出]</SPAN></a>
<%end if%>
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
<table width="980" height="85" border="0" align="center" cellpadding="0" cellspacing="0" background="img/topmenubg.gif" id="table8">
<tr>
<td width="275" height="85" align="center"><img src="img/logo.gif"></td>
<td width="517" align="center"><img src="img/topmenu.jpg" width="478" height="70" border="0" usemap="#Map" href="daohang.asp" /></td>
<td width="188" align="left">
<SCRIPT src="inc/sinaflash.js" type=text/javascript></SCRIPT>
<div class=topAD style="HEIGHT: 73px; margin-right:-33px;">
<table width=188 align="center" cellspacing=0>
<tbody>
<tr>
<td width=182 valign="top"><!--左侧翻牌开始-->
<div id=FP_L style="WIDTH: 100%; TEXT-ALIGN: center"></div>
<script type=text/javascript>
<!--
var fp_pics="",fp_links="";
<%set rsnx=server.createobject("adodb.recordset")
sqlnx= "select top 6 * from jle_picfp order by id desc"
rsnx.open sqlnx,conn,1,1
do while not rsnx.eof
%>
fp_pics += "§"+"<%=rsnx("imgurl")%>"; //广告图片地址
fp_links += "§"+escape("<%=rsnx("link")%>"); //广告链接地址
<%rsnx.movenext
loop
rsnx.close
set rsnx=nothing%>
fp_pics=fp_pics.substring(1);
fp_links=fp_links.substring(1);
var def_pic = "ad/01.JPG"; //默认图片地址
var def_link = escape("http://www.jl-e.com/"); //默认图片链接
var FP = new sinaFlash("img/flipper.swf", "FP_L_swf", 160, 86, "7", "#FFFFFF", false, "High");
FP.addParam("menu", "false");
FP.addParam("wmode", "transparent");
FP.addVariable("ad_num", "7"); //翻牌数量
FP.addVariable("pic_width", "140"); //图片宽
FP.addVariable("pic_height", "73"); //图片高
FP.addVariable("flip_time", "300"); //翻牌速度
FP.addVariable("pause_time", "2000"); //间隔时间
FP.addVariable("wait_time", "1000"); //等待时间
FP.addVariable("pics", fp_pics); //广告图片地址
FP.addVariable("urls", fp_links); //广告链接地址
FP.addVariable("def_pic", def_pic); //默认图片地址
FP.addVariable("def_link", def_link); //默认链接地址
FP.write("FP_L");
//-->
</script>
<!--左侧翻牌结束--></td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
</table>
<table width="960" height="76" border="0" align="center" cellpadding="0" cellspacing="0" background="img/menubg.png">
<tr>
<td width="6" rowspan="2"><img src="img/menuleft.png" width="6" height="76" /></td>
<td width="86" height="40"><img src="img/menu_1.png" width="86" height="40" border="0" usemap="#Map3" /></td>
<td width="859"><table border="0" align="center" cellpadding="0" cellspacing="0">
<%
'栏目分类
dim rs_bar,sqlwto,j,rsct
Set rs_bar = Server.CreateObject("ADODB.Recordset")
sqlwto="select top 11 * from class1 order by paixu desc "
rs_bar.open sqlwto,conn,1,1%>
<%while not rs_bar.eof%>
<tr>
<%for j=0 to 10
if rs_bar.eof then
exit for
end if%>
<td align="center" class="bar_muen" style="color:#FFFFFF;width:75px" ><%response.write "<a class=bar href=""info.asp?/="&rs_bar("id")&"&cnmai=1"" >"%>
<%=rs_bar("class1")%></a></td>
<td valign="top"><img src="img/menuline.png" width="3" height="40" /></td>
<%rs_bar.movenext
next
%>
<td style="color:#FFFFFF;width:70px"><a align="center" class="bar" href="ac.asp">商家黄页</a></td>
</tr>
<%
wend
rs_bar.close
set rs_bar=nothing
%>
</table></td>
<td width="9" rowspan="2"><img src="img/menuright.png" width="9" height="76" /></td>
</tr>
<tr>
<td height="36" colspan="2">
<table width="941" height="36" border="0" align="center" cellpadding="0" cellspacing="0" scrolling="no" scroll="no" topmargin="0" leftmargin="0" bottommargin="0" rightmargin="0" >
<tr>
<FORM id=search name="myform8" action="so.asp" method=POST onSubmit="return checs();">
<td height="36" align="center" valign="top" width="265">
<div style="margin-top:7px;">
<input name="/2" type="text" class="input" onFocus="if(this.value == '站内搜索') this.value=''" value= 站内搜索 size=28 HEIGHT: 20px>
<%
dim rsc,sqlc
set rsc=server.createobject("adodb.recordset")
sqlc = "select * from class1 order by paixu desc"
rsc.open sqlc,conn,1,1
if rsc.eof and rsc.bof then
response.write "请先添加栏目。"
response.end
else
%><SELECT name="cla1" size="1" >
<OPTION selected value="0" >分类类别</OPTION>
<%do while not rsc.eof
%><OPTION value="<%=trim(rsc("id"))%>"><%=trim(rsc("class1"))%></OPTION>
<%
rsc.movenext
loop
end if
rsc.close
set rsc=nothing
%></SELECT></div></td>
<td width="104">
<input onClick="javascript:return search();" type=image src=Images/menu_fb.png style=border:0px name="search">
</FORM></td>
<td width="570"><div align="left"><span class="b">热门搜索：</span>
<%=hots%></div></td>
<td width="7"></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map3" id="Map3">
<area shape="rect" coords="4,5,79,44" href="index.asp" />
</map>
<table width="965" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6"></td>
</tr>
</table>
<%dim endtime,sjc
endtime=timer()
jsc=endtime-startime
if sjc>3 then
response.redirect "err.htm"
end if
end sub%>
<%sub e()%>
<DIV class=h></DIV><div align="center"></div><%end sub%>
<map name="Map" id="Map">
<area shape="rect" coords="12,6,73,65" href="index.asp" />
<area shape="rect" coords="95,6,154,66" href="axx.asp" />
<area shape="rect" coords="171,1,235,68" href="ac.asp" />
<area shape="rect" coords="258,4,322,68" href="gbook.asp" />
<area shape="rect" coords="410,-2,488,71" href="login.asp" />
<area shape="rect" coords="333,4,403,73" href="wzdh.asp" />
</map>
<map name="Map2" id="Map2">
<area shape="rect" coords="13,8,78,38" href="index.asp" />
</map>