📄 index.asp
字号:
<tr>
<td height="13" colspan="4" valign="top"><img src="Images/WmCms_52.gif" width="209" height="11" /></td>
<td> </td>
<td colspan="4" valign="top"><img src="Images/WmCms_52.gif" width="209" height="11" /></td>
</tr>
</table>
</td>
</tr>
</table>
<!--------中间第一部分结束------------------->
<!----邮箱及检索开始------------>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="33" colspan="2" align="left" valign="middle" background="Images/WmCms_56.gif">
<script language="javascript">
function chkinput(f){var tmp=f.name.value;if(!tmp){alert("请填写您要查询的内容!");return false;}var tmp2=f.tiaojian.value;if(!tmp2){alert("请选择您要查询的条件!");return false;}return true;}function chkinput2(f){var tmp=f.user.value;if(!tmp){alert("帐号不能为空!");return false;}var tmp2=f.pass.value;if(!tmp2){alert("密码不能为空!");return false;}var tmp3=f.site.value;if(!tmp3){alert("您没有选择信箱!");return false;}return true;}function MM_openBrWindow(theURL,winName,features){window.open(theURL,winName,features);}
</script><script language="javascript">
<!--
function clearpass(){document.loginmail.pass.value="";}//--></script>
<table height=1 cellSpacing=0 cellPadding=0 width=516 border=0 valign=top>
<tr><form name=loginmail onSubmit="return chkinput2(this);" action=http://www.hao123.com/sendmail.php method=post>
<td width="516" align=center background>
邮箱帐号：
<input name=user style=" BORDER-BOTTOM: #D6BC29 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 9pt" size="10">
邮箱密码：
<input name=pass type=password size=10 style=" BORDER-BOTTOM: #D6BC29 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 9pt"
>
<select
tabIndex=2 size=1 name=site><option value selected>请选择信箱</option><option value="163.com">@163.com</option><option value=21cn.com>@21cn.com</option><option value=163.net>@163.net</option><option value=tom.com>@tom.com</option>
<option value=vip.163.com>@vip.163.com</option><option value=sohu.com>@sohu.com</option><option value=263.net>@263.net</option><option value=sina.com>@sina.com</option><option value=vip.sina.com>@vip.sina.com</option><option value=mail.china.com>@mail.china.com</option><option value=china.com>@china.com</option><option value=netease.com>@netease.com</option><option value=yeah.net>@yeah.net</option><option value=etang.com>@etang.com</option><option value=126.com>@126.com</option>
<option value="cn.yahoo.com">@yahoo.com.cn</option>
<option value="xinhuanet.com">@xinhuanet.com</option>
<option value=eyou.com>@eyou.com</option><option value=email.com.cn>@email.com.cn</option><option value=ynmail.com>@ynmail.com</option><option value=citiz.net>@citiz.net</option>
<option value="hotmail.com">@hotmail.com</option>
<option value="56.com">@56.com</option>
<option value="gmail.com">@gmail.com</option>
</select>
<input name="Submit" type=Submit id="Submit2" value=登录 class="login_username" onMouseOver ="this.style.backgroundColor='#cd0000'" onMouseOut ="this.style.backgroundColor='#FFFFFF'" onclick=setTimeout('clearpass()',1000)>
<input type=reset name=reset value=重置 class="login_username" onMouseOver ="this.style.backgroundColor='#cd0000'" onMouseOut ="this.style.backgroundColor='#FFFFFF'"></td>
</form></tr></table>
</td>
<td height="33" align="left" valign="middle" background="Images/WmCms_56.gif">
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form method="post" name="myform" action="Result.asp" target="newwindow">
<td width="370" valign="middle">
<div align="center">站内搜索 ：
<!----------------------->
<%if showsearch=1 then%>
<%if search="1" then%>
<!--#include file=search.asp-->
<%else%>
<!--#include file=search1.asp-->
<%end if%>
<%end if%>
<!-------------------------->
</div></td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<!----邮箱及检索结束------------------>
<!-------中间广告开始------------------------------->
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="1002" height="110">
<param name="movie" value="Ad/upimg/20078416515090370.swf" />
<param name="quality" value="high" />
<embed src="Ad/upimg/20078416515090370.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="1002" height="110"></embed>
</object></td>
</tr>
</table>
<!--------中间广告结束---------------------------------------->
<!----栏目开始-------------->
<table width="1002" border="0" align="center" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" style="border-left: 2px solid #f0e0ca; border-top: 5px solid #f0e0ca; border-bottom: 0px solid #f0e0ca; border-right: 2px solid #f0e0ca ">
<tr>
<td width="784" style="border-left: 0px solid #f0e0ca; border-top: 0px solid #f0e0ca; border-bottom: 0px solid #f0e0ca; border-right: 1px solid #f0e0ca "><%
for i=1 to RecordCount
typeID=Arraytyid(i)
typeName=ArraytyName(i)
%>
<table width="996" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber6" style="border-left: 2px solid #f0e0ca; border-top: 5px solid #f0e0ca; border-bottom: 2px solid #D90503; border-right: 0px solid #f0e0ca ">
<tbody>
<tr>
<td width="23%" valign="top" bgcolor="#FFFFFF">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber12">
<tbody>
<tr valign="middle">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/wmcms_title.gif" height="27">
<tr>
<td width="85%" ><font class="top2"> <a class="classTITLE" href="Type.asp?typeid=<%=typeid%>"><%=typeName%></A></font></td>
<td width="15%" ><a class="class" href="Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" border="0" alt="更多<%=typeName%>" /></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="90%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
<% dim rs3
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="selfreg" then
if Request.cookies(Forcast_SN)("reglevel")=3 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("reglevel")=2 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("reglevel")=1 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
end if
else
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
newsurl="Article.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
if showyear=1 then
datetime="<font class=middle>" & year(rs3("UpdateTime")) &"/"& Month(rs3("UpdateTime")) &"/"& Day(rs3("UpdateTime")) &"</font>"
else
datetime="<font class=middle>"& Month(rs3("UpdateTime")) &"/"& Day(rs3("UpdateTime")) &"</font>"
end if
if rs3("picnews")=1 then
img=" <img src='images/news_img.gif' border='0'>"
else
img=""
end if
'增加小类名称程序开始
if rs3("bigclassID")<>"" then
B=rs3("bigclassID")
set rs22=server.createobject("adodb.recordset")
sql="SELECT bigclassID,bigclassname FROM "& db_BigClass_Table &" WHERE bigclassID="&B
Set rs22=Conn.Execute(sql)
A=rs22("bigclassname")
rs22.close
set rs22=Nothing
else
A="本栏"
end if
'增加小类名称程序结束
%>
<tbody>
<tr>
<td> <table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tbody>
<tr>
<td> <table width="100%" border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tbody>
<tr>
<td>
<a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=rs3("title")%>" target="_blank">
<img src="images/dot.jpg" border="0"><font color="<%=rs3("titlecolor")%>">
<%if rs3("istop")<>"1" or rs3("titlesize")<1 then%><%=CutStr(htmlencode4(rs3("title")),25)%><%else %><%=CutStr(htmlencode4(rs3("title")),17)%><%end if%><%=img%><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
</font>
</a>
</td><td align="right" >
<!--标题后评论提示>
<% if rs3("titlesize")>=1 then %>
<A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red>[评]</font> </A>
<%end if %>
<!标题后评论提示-->
<!--关闭作者及最新显示>
<%if showauthor="1" then%>
<%=rs3("Author")%>
<%end if%>
<%if year(rs3("updatetime"))=year(date()) and month(rs3("updatetime"))=month(date()) and day(rs3("updatetime"))=day(date()) then%>
<img src="images/new.gif">
<%end if%>
<!关闭作者及最新结束-->
<%if showtime="1" then%>
<%=datetime%>
<%end if%><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
</td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<%rs3.MoveNext
wend
%>
</tbody>
</table> </td>
</tr>
</tbody>
</table></td>
<%i=i+1
typeID=Arraytyid(i)
typeName=ArraytyName(i)
if i<=RecordCount then
%>
<td width="1%" valign="top" background="images/t.gif"></td>
<td width="23%" valign="top" bgcolor="#FFFFFF"> <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber13">
<tbody>
<tr >
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/wmcms_title.gif" height="27">
<tr>
<td width="85%" ><font class="top2"> <a class="classTITLE" href="Type.asp?typeid=<%=typeid%>"><%=typeName%></A></font></td>
<td width="15%" ><a class="class" href="Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" border="0" alt="更多<%=typeName%>" /></a></td>
</tr>
</table></td>
</tr>
<tr>
<td width="90%" valign="top" > <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14">
<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="selfreg" then
if Request.cookies(Forcast_SN)("reglevel")=3 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("reglevel")=2 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("reglevel")=1 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
end if
else
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
if showyear=1 then
newsurl="Article.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>" & year(rs3("UpdateTime")) &"/"& Month(rs3("UpdateTime")) &"/"& Day(rs3("UpdateTime")) &"</font>"
else
newsurl="Article.asp?NewsID=" & rs3("NewsID")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -