www.gusucode.com > 盐城分类信息网asp源码程序 > head.asp

    <html>
<HEAD>
<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}
-->
</STYLE>
<SCRIPT LANGUAGE="JavaScript">      
<!-- Begin
maxLen = 80;
function checkMaxInput(form) {
if (form.memo.value.length > maxLen)
form.remLen.value = 0;
else form.remLen.value = maxLen - form.memo.value.length;
}
//  End -->
</script>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css">
<!--
body {
	margin: 0px;
}
-->
</style>
<link href="STYLE.CSS" rel="stylesheet" type="text/css">

<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>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="200" align="center" background="Images/img_es950_05.gif"><a href="index.asp">
		<img src="images/logo.gif" alt="二手信息网" border="0"></a></td>
        <td valign="bottom" background="Images/img_es950_05.gif">
		<p style="text-align: right">
		<img border="0" src="Images/topmenu.gif" width="686" height="60" usemap="#Map"></p>
		<div align="right">
		<table border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="40" colspan="21" background="Images/img_es950_03.jpg">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
<%if request.cookies("cnmai")("username")="" then%>
              <tr>
                <td align="right" class="hui">
        <form id="f1" name="logForm" action="Login.asp" method="post" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
           <SPAN class=logintt><a href="reg.asp" target="_parent"><font color="#0044DD">[免费注册]</font></a><font color="#0044DD">
			</font> </SPAN><font color="#0044DD">&nbsp;<SPAN class=logintt>用户名:</SPAN>
            <input id="username2" maxlength="20" size="16" name="username" class=input />
           <SPAN class=logintt>密码:</SPAN>
            <input id="password" type="password" maxlength="32" size="16" name="password" class=input>
            <input type="hidden" name="login" value="cnmai" />
<input onclick="javascript:return ChecklogForm();" class="input2" type="submit" name="per"  value="个人登陆" name="per" style="height: 18" target="_parent">
            <input onclick="javascript:return ChecklogForm();" type="submit" name="m" class="input2"  value="商家登陆" name="com" style="height: 18" target="_parent">&nbsp;
			</font>
			<a href="getpass.asp" target="_parent"><SPAN class=logintt><font color="#0044DD">忘记密码</font></SPAN></a><font color="#0044DD">&nbsp;
          	</font>
          </form></td>              </tr>
         
            </table> 
             <%else%>
             <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="right" class="hui">
                <%
dim rs,sql,username,per
on error resume next 
per=request.cookies("cnmai")("per")
username=request.cookies("cnmai")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [hf] where xxusername='"&username&"' order by hfsj desc"
rs.open sql,conn,1,3
if rs("hfyz")>1 then
Response.Write ""
else
%>
<%if request.cookies("cnmai")("com")="" then %>
<a href=user_hfgl.asp><font color="#B82322">有新留言</font></a>
<%else%>
<a href=com_user_hfgl.asp><font color="#B82322">有新留言</font></a>
<%end if%>
<%end if%>
<%if request.cookies("cnmai")("com")="" then %>
 <SPAN class=logintt>欢迎您,<b><%=request.cookies("cnmai")("username")%></b>(个人)</SPAN> <a class='top' target="_parent" href="u_xxgl.asp"><SPAN class=logintt>信息管理</SPAN></a> <a class='top' target="_parent" href="user.asp"><SPAN class=logintt>管理中心</SPAN></a>  <a class='top' target="_parent" href="login.asp?cnmai=out"><SPAN class=logintt>[退出]</SPAN></a>
&nbsp;
 <%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' target="_parent" href="com_user.asp"><SPAN class=logintt>管理中心</SPAN></a> <a class='top' target="_parent" href="login.asp?cnmai=out"><SPAN class=logintt>[退出]</SPAN></a>&nbsp;
            <%end if%>
</td>
 </tr>
 </table> 

             <%end if%>
           
             </td>
          </tr>
          <%
	id=Request.querystring("id")
	
	if not isnumeric(id) or id=Empty then
	 id=1
	End if
%>
<style>
<!--
ul{
	list-style:none;
	margin:0px;
}

li{
	float:left;
}

.menubg{
	background-image:url("images/img_es950_08.gif");
	text-align:center;
	height:25px;
	width:70px;
	font-size:12px;
}

.menubg a{
	width:70px;
	height:25px;
	text-decoration:none;
	text-align:center;
	color:#FFFFFF;
	font-weight:bold;
	padding-top:1px;
}

.menubg a:hover{
	width:70px;
	height:25px;
	background-image:url("images/img_es950_06.gif");
	text-decoration:none;
	text-align:center;
	color:#0080C4;
	font-weight:bold;
	padding-top:1px;
}

#p<%=id %>{
	width:70px;
	height:25px;
	text-align:center;
	text-decoration:none;
	color:#0080C4;
	font-weight:bold;
	background-image:url("images/img_es950_06.gif");
	padding-top:1px;
}

-->
</style>
          <tr>
            <td width="70px" height="25px">
           <a id="p1" href="index.asp" class="menubg" target="_parent">首  页</a>			</td>
            <td width="2"></td>
			           <%
exec="select top 9 * from [menu] "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.write("暂时没有会员资料")
else
do while not rs.eof
%>
          
	  <td width="70px" height="25px">
           <a id="p<%=rs("id")%>" href="topdh.asp?/2=<%=rs("class1")%>&id=<%=rs("id")%>" class="menubg" target="_blank"><%=rs("class1")%></a></td>
            <td width="2"></td>
            <%
rs.movenext
loop
end if
%>
          </tr>
        </table></div>
		</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="59" background="Images/img_es950_10.gif"><table width="95%" border="0" cellspacing="0" cellpadding="0" align="right">
      <tr>
        <td width="160" rowspan="2" align="left"><font color=ffffff>此处可放置广告语</font></a></td>
        <td class="wr">
        <FORM id=search name="myform" action="so.asp" method=POST onSubmit="return checs();">
          <div align="center">
   <input name="/2" type="text" class="input"  onFocus="if(this.value == '站内搜索') this.value=''" value=站内搜索 size=38 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>   <img onclick="document.getElementById('search').submit()" src="images/search.gif">
&nbsp;<SPAN class=logintt><script src="date.js"></script><script language="javascript">document.writeln("<a href=\"#\"><font color=#FFFFFF>"+clock()+"</font></a>");</script>&nbsp;</div>
        </FORM></td>
      </tr>
<%
exec="select * from [config] order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

      <tr>
        <td class="wr"><div align="center"><span class="b">热门搜索:</span>
              <%=rs("hots")%></div></td>
      </tr>
    
    </table></td>
  </tr>
</table>

<map name="Map">
  <area shape="rect" coords="42,9,83,58" href="index.asp" target="_parent">
  <area shape="rect" coords="102,6,161,57" href="ac.asp" target=_parent>
  <area shape="rect" coords="190,9,249,58" href="http://www.bb55.com" target="_blank">
  <area shape="rect" coords="270,4,332,61" href="lift.asp" target="_parent">
  <area shape="rect" coords="359,7,415,58" href="http://pic.lg0577.com" target="_blank">
  <area shape="rect" coords="441,7,497,58" href="http://soft.lg0577.com" target="_blank">
  <area shape="rect" coords="527,9,584,59" href="gbook.asp" target="_parent">
  <area shape="rect" coords="616,11,665,57" href="ab_ads.asp" target="_parent">
</map>