secondhead.asp

来自「asp的新闻网站」· ASP 代码 · 共 164 行

<!--#include file="myip.asp"-->
<%
'*********************************************************************************
'模块名称：IT新闻头信息显示
'开发人：潘树文
'时间：2001年1月18日
'*********************************************************************************

%>
<%
'登录，传递的是outurl,target参数，决定了链接到的子模块，缺省为登录到登录成功，否则连接到BBS，CHARTROOM等。
'if request("outurl")="" and request("target")="" then
'else
'end if
session.Timeout =600
%>
<SCRIPT LANGUAGE=javascript>
<!--
//'提交数据的校验
function checkstr(str,single)
{
var i;
var c;
var checkValue;
checkValue=false;
	for (i = 0;i <str.length ;  i++)
	{
	c=str.charAt(i);
	if (c==single)
  { checkValue=true;
    break;
  }     
}
return checkValue;
}
function usersubmit()
{
if ( 
document.form10.dyeb_user.value =="")
   { alert("会员登录名不能为空！"); }
else if(document.form10.userpsw.value =="")
   {alert("会员密码不能为空！");}
else if (checkstr(document.form10.dyeb_user.value,"'")==true || checkstr(document.form10.userpsw.value,"'")==true  )
   {alert("您输入了非法字符!"); }
else
   {document.form10.submit();}
}
-->
</SCRIPT>
<table border="0" width="770" cellspacing="0" cellpadding="0" bgcolor="#FFC6AA" >
  <tr>
    <td width="472" bgcolor="#FFFFFF"><p align="right"><%
    dim i_date,s_week
    i_date=weekday(date())
    select case i_date
    case 1:s_week="星期日"
    case 2:s_week="星期一"
    case 3:s_week="星期二"
    case 4:s_week="星期三"
    case 5:s_week="星期四"
    case 6:s_week="星期五"
    case 7:s_week="星期六"    
    end select
    Response.Write (year(date())&"年"&month(date())&"月"&day(date())&"日&nbsp;&nbsp;"&s_week)%></td>
    <td width="2" bgcolor="#FFFFFF" valign="bottom"><p align="right"><img
    src="<%=myip%>images/pic-006.gif"  width="57" height="16"></td>
    <td width="54" align="center"
    style="border-top: 1px solid rgb(255,128,64); border-bottom: 1px solid rgb(255,128,64)"><a href="../../../photo/index.asp" class=l2 target="_blank"><font
    color="#F95100">图片库</font></a></td>
    <td width="54" align="center"
    style="border-top: 1px solid rgb(255,128,64); border-bottom: 1px solid rgb(255,128,64)"><a href="http://game.1001n.com.cn/bridge/" class=l2 target="_blank"><font
    color="#F95100">桥牌</font></a></td>
    <td width="54" align="center"
    style="border-top: 1px solid rgb(255,128,64); border-bottom: 1px solid rgb(255,128,64)"><a href="http://chat.1001n.com.cn" class=l2 target="_blank"><font
    color="#F95100">社区</font></a></td>
    <td width="54" align="center"
    style="border-top: 1px solid rgb(255,128,64); border-bottom: 1px solid rgb(255,128,64)"><a href="../../tiyu/index.asp" class=l2><font
    color="#F95100">体育</font></a></td>
    <td width="55" align="center"
    style="border-top: 1px solid rgb(255,128,64); border-bottom: 1px solid rgb(255,128,64)"><a href="../../aixin/index.asp" class=l2 target="_blank"><font
    color="#F95100">爱心</font></a></td>
    <td width="55" align="center"
    style="border-top: 1px solid rgb(255,128,64); border-bottom: 1px solid rgb(255,128,64)"><a href="../../../train" class=l2 target="_blank"><font
    color="#F95100">铁路</font></a></td>
    <td width="55" align="center"
    style="border-top: 1px solid rgb(255,128,64); border-bottom: 1px solid rgb(255,128,64)"><a href="../../../bus" class=l2 target="_blank"><font
    color="#F95100">公交</font></a></td>
    <td width="2" align="center" style="border-top: 1px none rgb(255,128,64)"
    bgcolor="#FFFFFF" valign="top"><img src="<%=myip%>images/pic-003.gif"
     width="14" height="15"></td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="15%"><img src="<%=myip%>images/pic-053.gif"  width="130" height="73"></td>
    <td width="70%"><p align="center"><a href="http://chat.1001n.com.cn" target="_blank"><img src="<%=myip%>images/pic-067.gif" width="468" height="60" border="0"></a></td>
    <td width="15%"><a href="../../../difang/shenyang/xinwen/index.asp" target=_blank><img src="<%=myip%>images/pic-065.gif" border=0></a>

    </td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" height="3" colspan="2"></td>
  </tr>
  <tr>
    <td width="528"><a href="../../../index.asp"><img src="<%=myip%>images/pic-001.gif" width="44" height="20" border="0"></a><img
    src="<%=myip%>images/pic-002.gif"  width="44" height="20"><a href="http://mall.1001n.com.cn/index.asp" target="_blank"><img src="<%=myip%>images/pic-004.gif"
      width="44" height="20" border="0"></a><a href="../../mingren/index.asp" target="_blank"><img src="<%=myip%>images/pic-013.gif"
      width="44" height="20" border="0"></a><a href="../../qingai/index.asp"><img src="<%=myip%>images/pic-011.gif"
      width="44" height="20" border="0"></a><a href="../../jujia/index.asp"><img src="<%=myip%>images/pic-007.gif"
      width="44" height="20" border="0"></a><a href="../../yinshi/index.asp"><img src="<%=myip%>images/pic-008.gif"
      width="44" height="20" border="0"></a><a href="../../video/index.asp" target="_blank"><img src="<%=myip%>images/pic-202.gif"
      width="44" height="20" border="0"></a><a href="../../yule/index.asp"><img src="<%=myip%>images/pic-005.gif"
      width="44" height="20" border="0"></a><a href="../../lvyou/index.asp"><img src="<%=myip%>images/pic-012.gif"
      width="44" height="20" border="0"></a><a href="../../jiaoyu/index.asp"><img src="<%=myip%>images/pic-010.gif"
      width="44" height="20" border="0"></a><a href="../../fazhi/index.asp"><img src="<%=myip%>images/pic-009.gif"
      width="44" height="20" border="0"></a></td>
    <td width="242" align="center"><FORM action="http://chat.1001n.com.cn/info/user/loginjudge.asp" method=POST id=form10 name=form10><font color="#8080C0">用户名：</font><font color="white"><input
     type="text" id="dyeb_user" maxLength="20" name="dyeb_user" size="10"
    style="BACKGROUND: white; BORDER-BOTTOM: rgb(0,0,0) 1px solid; BORDER-LEFT: rgb(0,0,0) 1px solid; BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid; COLOR: #006600; FONT-FAMILY: 宋体; FONT-SIZE: 9pt"></font>
    <font
    color="#8080C0">密码：</font><font color="white"><input id="userpsw" type="password"
    maxLength="20" name="userpsw" size="10"
    style="BACKGROUND: white; BORDER-BOTTOM: rgb(0,0,0) 1px solid; BORDER-LEFT: rgb(0,0,0) 1px solid; BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid; COLOR: #006600; FONT-FAMILY: 宋体; FONT-SIZE: 9pt"></font><font
    color="#8080C0"></font>
    </td>
  </tr>
</table>
</center></div><div align="center"><center>
<%set rs=server.CreateObject ("adodb.recordset")
sql="select * from news2_menu where visible='1' order by menuindex "
rs.Open sql,conn,3,1

%>
<table border="0" width="770" cellspacing="0" cellpadding="0" bgcolor="#D7D7D7"
height="16">
  <tr><%if not rs.EOF  then
  for i=1 to rs.RecordCount 
  
  %>
    <td width="55" style="border-bottom: 1px solid rgb(128,128,128)" align="center"
    bgcolor="#D7D7D7" valign="bottom">
    <%IF flag<>rs("menuid") then %>
    <a href="<%=myip%><%=rs("url")%>" class="l2" target="_blank"><%=rs("menuname")%></a></td>
    <%else '本栏目一面无链接%>
    <a href="<%=myip%><%=rs("url")%>" class="l2"> <font color="#F95100"><%=rs("menuname")%></font></a>
    <%end if
    rs.MoveNext 
    next
    else
    Response.Write "menu erro!"
    end if
    rs.Close %>
    
    <td width="165" style="border-bottom: 1px solid rgb(128,128,128)" align="center"
    bgcolor="#D7D7D7" valign="bottom"><a href="javascript:usersubmit()" class="l2"><font color="#FF0080">登录</font></a> &nbsp;&nbsp;&nbsp;&nbsp; 
    <a href="http://chat.1001n.com.cn/info/user/login.asp" class="l2"><font color="#FF0080">注册</font></a>&nbsp;</td>
  </tr></form>
</table>