📄 index_mb.asp
字号:
<%
if MDBpath="" then
MDBpath=""
end if
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
%>
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:java="http://xml.apache.org/xslt/java">
<head>
<title>证券第一</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name=keywords content="证券第一">
<meta name="title" content="证券第一">
<meta name="description" content="证券第一-投资策略报告及宏观市场研究">
<meta name="verify-v1" content="Ra7tAxcKSIBKIpmChS0RWW9qYKjePvc9Lo6sEQWLdnI=" />
<LINK href=inc/style.css rel=stylesheet>
</head>
<SCRIPT language="JavaScript" type="text/javascript">
// Begin vote
function vote(vote)
{
url = 'inc/vote.asp?stype=view';
window.open(url,vote,"width=400,height=300,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End vote-->
</script>
<body><center>
<!--#include file="mdb_path_info.asp"-->
<!--#include file="co.asp"-->
<%newshu=6 '每个分类显示最新文章数
set rs=server.CreateObject("ADODB.RecordSet")
set rs_info=server.CreateObject("ADODB.RecordSet")
set rs_yl=server.CreateObject("ADODB.RecordSet")
i=0
sql="select top 8 title,id,date from info order by id desc"
rs.open sql,conn,1,1
if rs.eof then
top1="还没有"
else
do while not rs.eof
top1=top1&"<tr height=20><td>·<a href=""stock/"&rs("id")&".asp"" target=_blank>"&left(rs("title"),22)&"</a></td><td align=right>["&year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))&"]</td></tr>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
i=0
sql="select top 6 title,id from infodown order by id desc"
rs.open sql,conn,1,1
if rs.eof then
top="还没有"
else
do while not rs.eof
top=top&"<tr height=22><td>·<a href=""down/"&rs("id")&".asp"" target=_blank>"&left(rs("title"),12)&"</a></td></tr>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
list=list&" "
rs.open "select * from infotype where tj=1 order by id",conn,1,1
if NOT rs.EOF then
allshu=rs.recordcount
Dim list_1(40)
Dim list_2(40)
Dim list_3(40)
do while NOT rs.EOF
ii=ii+1
list=list&"<a href="""&rs("id")&"_1.asp""><font color=""#ffffff"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a> "
list_1(ii)=""&split(rs("tname"),"|")(rs("tj")-1)&""
i=0
sqqq_yl=""
sql_yl="select * from infotype where ts like '"&rs("ts")&"%'"
rs_yl.open sql_yl,conn,1,1
if not rs_yl.eof then
do while not rs_yl.eof
sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&""
rs_yl.MoveNext
loop
end if
rs_yl.close
rs_info.open "select id,title,date from info where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1
if NOT rs_info.EOF then
do while not rs_info.eof
list_3(ii)=list_3(ii)&"·<a href=""stock/"&rs_info("id")&".asp"" target=_blank>"&left(rs_info("title"),18)&"</a><font color=808080>("&month(rs_info("date"))&"-"&day(rs_info("date"))&")</font><br>"
i=i+1
if i>=newshu then exit do
rs_info.movenext
loop
end if
rs_info.close
rs.MoveNext
loop
end if
rs.close
set rs=nothing
set rs_yl=nothing
set rs_info=nothing
conn.close
set conn=nothing%>
<table width="760" border="0" align="center" bgcolor=#FFFFFF cellpadding="0" cellspacing="0" background=images/bg.gif><tr><td height="30"> <a href="rss.xml" target="_blank"><img src="images/rss.gif" width="26" height="14" alt="RSS" border="0"></a></td><td align="right"><a href="">首 页</a>┊<a href="site" target="_blank">第一网址</a>┊<a href="bbs" target="_blank">黑马论坛</a>┊<a onclick="window.external.addFavorite('http://www.stock01.com/','【证券第一】')" href="#" target="_self" id="addtofa">收藏本站</a>┊<a href='http://www.stock01.com' onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.stock01.com/');return false;">设为首页</a> </td></tr></table>
<table border=0 cellpadding=0 cellspacing=0 width=760 height=65 align=center bgcolor=#FFFFFF><tr><td width=165 align=center><img src=images/logo.gif width=165 height=60 border=0 alt="证券第一"></td><td width=468><a href=http://www.id80.com/movie target=_blank><img src=images/46860.gif width=468 height=60 border=0 alt="468x60"></a></td><td width=125 align=center><img src=images/12060.gif width=120 height=60 border=0 alt="120x60"></td></tr></table>
<table width="760" border="0" cellpadding="0" cellspacing="0" align=center bgcolor=#FFFFFF><tr><td align="center" height="30" background="images/edu06_pic2.gif"><a href=> 首 页 </a> | <a href=stock/1_1.asp target=_blank>每日要闻</a> | <a href=stock/2_1.asp target=_blank>投资策略报告</a> | <a href=stock/3_1.asp target=_blank>市场研究</a> | <a href=stock/4_1.asp target=_blank>宏观研究</a> | <a href=stock/5_1.asp target=_blank>基金研究</a> | <a href=stock/6_1.asp target=_blank>行业研究</a> | <a href=stock/8_1.asp target=_blank>个股研究</a> | <a href=stock/7_1.asp target=_blank>涨跌幅榜</a> | <a href=down/1_1.asp target=_blank>软件下载</a> | <a href=sms target=_blank><font color=ff0000><b>黑马荐股</b></font></a></td></tr>
<tr><td align=center><!--#include file="../inc/760x60.asp"--></td></tr></table>
<table border="0" width="760" cellspacing="0" bgcolor=ffffff cellpadding="0" align="center">
<tr><td width="571" align="center">
<table border="0" cellspacing="0" width="560" align="center">
<tr><td valign="top" width="180" align="center" rowspan=2><table border="0" width="180" class=textbox>
<form method="post" action="user/login.asp?JyDownType=login" target="_top">
<tr><td width="180"><img src="images/daodu.gif" width="180" alt="Login" height="33"></td></tr>
<tr><td width="100%" align="center">用户名：<input name="user" maxlength="20" size="14"></td></tr>
<tr><td width="100%" align="center">密 码：<input type="password" name="pwd" maxlength="20" size="14"></td></tr>
<tr><td width="100%" align="center"><input type="submit" name="Submit" value="登 陆">
<input type="button" name="Submit1" onclick="javascript:location.href='user/reg.asp'" value="注 册"></td></tr>
</form></table><table border=0><tr><td align="center" height=60 width=180><!--#include file="../inc/180x60.asp"--></td></tr></table></td>
<td width="4"> </td>
<td width="385" class=white background=images/colhead.gif><table width=100% border=0><tr><td> <b>最新资讯</b></td><td align=right><a href=user/main.asp>我要投稿</a></td></table></td></tr>
<tr><td></td><td class=contop><table border="0" width="100%"><%=top1%></table></td>
</tr><tr><td height="6"></td></tr></table></td><td bgcolor=e6e6e6 width=1></td>
<td bgcolor=f7f7f7 width=186 valign="top"><table border="1" cellpadding=4 bordercolor="#eeeeee" width="186" style="border-collapse: collapse"><TR><TD width=100% background=images/cotop.gif height=27 colspan=3> <b>综合指数</b></TD></TR>
<tr><td><b>指数名称</b></td><td><b>最新指数</b></td><td><b>涨跌</b></td></tr>
<tr><td>上证综指：</td><td align=right><%=webname%></td><td align=right><font color=<%=color%>><%=name%></font></td></tr>
<tr><td>深圳成指：</td><td align=right><%=webname1%></td><td align=right><font color=<%=color1%>><%=name1%></font></td></tr>
<tr><td>纳斯达克：</td><td align=right><%=webname2%></td><td align=right><font color=<%=color2%>><%=name2%></font></td></tr>
<tr><td>东京日经：</td><td align=right><%=webname3%></td><td align=right><font color=<%=color3%>><%=name3%></font></td></tr>
<tr><td>伦敦金融：</td><td align=right><%=webname4%></td><td align=right><font color=<%=color4%>><%=name4%></font></td></tr>
<tr><td>道 琼 斯：</td><td align=right><%=webname5%></td><td align=right><font color=<%=color5%>><%=name5%></font></td></tr>
<tr><td>香港恒生：</td><td align=right><%=webname6%></td><td align=right><font color=<%=color6%>><%=name6%></font></td></tr>
</table></td></tr></table>
<table border="0" width="760" cellspacing="0" bgcolor=ffffff cellpadding="0" align="center">
<tr><td width="571" valign="top" align="center">
<%if allshu="" then%>暂无内容!<%else%><table border="0" cellspacing="0" width="560" align="center">
<tr><td height="40" colspan="3" align="center" class=search><form onsubmit="window.location=this.field.options[this.field.selectedIndex].value+this.k.value; return false;">
<input name="k" size="50" value='请输入关键字' maxlength='60' onFocus='this.select();' />
<select name="field">
<option value="stock/search.asp?k="&request("k")&"">资讯中心</option>
<option value="down/search.asp?k="&request("k")&"">下载中心</option>
<option value="bbs/search.asp?k="&request("k")&"">BBS论坛</option>
</select>
<input type="submit" value="开始搜索" /></td></tr><tr><td height="2" colspan="3"></td></FORM></tr>
<%
if allshu<=2 then
shu=1
else
if allshu>2 then
if allshu/2-int(allshu/2)>0 then
shu=allshu/2+1
else
shu=allshu/2
end if
end if
end if
for a=1 to shu%>
<tr>
<%for i=1 to 2
aa=aa+1%>
<td width="49%" class=white background=images/colhead.gif> <%=list_1(aa)%></td>
<%if i=1 then%>
<td width="6"> </td>
<%end if
next%>
</tr>
<tr>
<%
for i=1 to 2
aaa=aaa+1%>
<td width="49%" class=contop><%=list_3(aaa)%><%=list_2(aaa)%></td>
<%if i=1 then%>
<td></td>
<%end if
next%>
</tr><tr><td height="6"></td></tr>
<%next%>
</table>
<%end if%></td>
<td width="1" bgcolor=e6e6e6></td>
<td width="186" valign="top" align="center" bgcolor=f7f7f7>
<table border="0" cellspacing="0" cellpadding="0">
<TR><TD width=100% background=images/cotop.gif height=27> <b>人民币汇率中间价</b></TD></TR>
<tr><td><table border="1" cellpadding="5" bordercolor="#eeeeee" width="180" height="100" style="border-collapse: collapse">
<tr><td>1美元</td><td><%=me1%></td></tr>
<tr><td>1港元</td><td><%=me2%></td></tr>
<tr><td>100日元</td><td><%=me3%></td></tr>
<tr><td>1欧元</td><td><%=me4%></td></tr>
<tr><td>1英镑</td><td><%=me5%></td></tr>
</table></td></tr>
<tr><td height=10></td></tr>
<tr><td width=100%><img src="images/left_hot.gif" width="180" height="30" alt="工具"></td></tr>
<tr><td><table border="0" width="100%">
<tr height=22><td align="center"><a href="http://bjzr.gfzr.com.cn" target=_blank><b>中关村非上市公司股份交易</b></a></td></tr>
<tr height=22><td align="center" class=title><a href="link/stock-1.asp" target=_blank><font color=ff0000><b>证券基金研究所</font></b></a></td></tr>
<tr height=22><td align="center"><b><a href="link/stock-2.asp" target=_blank>证券公司</a> <a href="link/stock-3.asp" target=_blank>基金公司</a></b></td></tr>
<tr height=22><td align="center"><a href="inc/stock_income.asp" target=_blank>股票收益计算器</a></td></tr>
<tr height=22><td align="center"><a href="inc/fund_income.asp" target=_blank>基金收益计算器</a></td></tr>
<tr height=22><td align="center"><a href="sms" target=_blank><font color=ff0000>即将启动的短线黑马</a></font></td></tr> </table></td></tr>
<TR><TD width=100%><img src="images/right_tw.gif" width="180" height="30" alt="最新下载"></TD></TR>
<tr><td><table border="0" width="100%"> <%=top%>
</table></td></tr>
<tr><td>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width="95%" border="0" cellpadding="2" cellspacing="0">
<TR><TD width=100%><img src="images/right_dc.gif" width="180" height="30" alt="投票"></TD></TR>
<TR><TD align="center"> <b>您是如何到达证券第一的？ </b></TD></TR>
<FORM action="inc/vote.asp" target="newwindow" method=post name=research>
<TR><TD vAlign=top width="100%">
<INPUT style="border: 0" checked name=Options type=radio value=1>
1.直接来的<BR>
<INPUT style="border: 0" name=Options type=radio value=2>
2.搜索引擎<BR>
<INPUT style="border: 0" name=Options type=radio value=3>
3.友情链接<BR>
<INPUT style="border: 0" name=Options type=radio value=4>
4.网址网站<BR>
<INPUT style="border: 0" name=Options type=radio value=5>
5.其它<BR>
</TD></TR>
<TR><TD width="100%" height=30 align=center>
<INPUT style="cursor:hand" type=submit value="投它一票" id=submit1 name=submit1>
<INPUT onclick="javascript:vote()" type="button" value="查看结果" id=button1 name=button1 style="cursor:hand">
</TD></TR>
</FORM>
</table></td></tr></table></td></tr>
</table>
</td>
</tr>
</table>
<!--#include file="mdb_path_info.asp"-->
<table width="760" border="0" align="center" bgcolor=ffffff>
<tr><td align="center" colspan="8"><!--#include file="../inc/760x60.asp"--><td></tr>
<tr><td height="20" background="images/link.gif" colspan="8"></td></tr>
<%
topsql="select top 16 * from link where about='1'"
set toprs=server.createobject("adodb.recordset")
jishu=1
toprs.open topsql,conn,1,1
do while not toprs.EOF
if jishu=1 or jishu mod 8 = 1 then
response.write "<tr><td align=center class=linkx><a href="""&toprs("url")&""" target=_blank>"&toprs("name")&"</a></td>"
else
response.write "<td align=center class=linkx><a href="""&toprs("url")&""" target=_blank>"&toprs("name")&"</a></td>"
end if
if jishu mod 8 =0 then response.write "</tr>"
jishu=jishu+1
toprs.movenext
loop
jishu=jishu-1
if jishu mod 8 <> 0 then
for i= 1 to 8-(jishu mod 8)
response.write "<td align=center class=linkx>申请链接</td>"
if i = 8-(jishu mod 8) then response.write "</tr>"
next
end if
toprs.Close
set toprs=nothing
%></table>
<!--#include file="../inc/foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -