📄 index.asp
字号:
<!-- #include file="include/con_news.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<link href="skin/skin_1/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE1 {
font-size: 12px;
font-weight: bold;
}
.STYLE3 {font-size: 12px}
.STYLE5 {font-size: 9px}
-->
</style>
<body>
<%
dim voteid
voteid=1
tit="首页"
call web_head(0,0,0,0,0)
'---------------------------左边1 开始----------------------------
%>
<%
'---------------------------左边1 结束----------------------------
call web_center(0)
'---------------------------中间1 结束----------------------------
%>
<table width="925" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="110" colspan="3" align="left" valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="41" align="left" valign="top"><img src="skin/skin_1/klsg_01.gif" width="23" height="41" /></td>
<td align="left" valign="top"><img src="skin/skin_1/klsg_02.gif" width="178" height="41" /></td>
<td align="left" valign="top"><img src="skin/skin_1/klsg_03.gif" width="26" height="41" /></td>
</tr>
<tr>
<td height="36" align="left" valign="top"><img src="skin/skin_1/klsg_04.gif" width="23" height="147" /></td>
<td align="center" valign="middle"><!-- #include file="include/inc_index_login.inc" --></td>
<td align="left" valign="top"><img src="skin/skin_1/klsg_06.gif" width="26" height="147" /></td>
</tr>
<tr>
<td height="36" align="center" valign="top"><img src="skin/skin_1/klsg_07.gif" width="23" height="66" /></td>
<td height="36" align="center" valign="top"><img src="skin/skin_1/klsg_08.gif" width="178" height="66" /></td>
<td height="36" align="center" valign="top"><img src="skin/skin_1/klsg_09.gif" width="26" height="66" /></td>
</tr>
</table> </td>
<td width="19" rowspan="3" align="left" valign="top"> </td>
<td width="478" rowspan="3" align="left" valign="top"><table width="82%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27" colspan="4" align="left" valign="top"><a href="news.asp"><img src="skin/skin_1/title_bg01.gif" width="478" height="27" border="0"></a></td>
</tr>
<tr>
<td height="6" colspan="4" align="left" valign="top"><img src="skin/skin_1/title_bg02.gif" width="478" height="6"></td>
</tr>
<tr>
<td height="10" colspan="3" align="left" valign="top"><img src="skin/skin_1/tpzs_01.gif" width="260" height="10" class="bkz"></td>
<td width="216" rowspan="3" align="left" valign="middle" class="bkh">
<%
dim new_day,new_win
sql="select top 11 tim,username,news.id,news.topic,jk_class.c_name,counter,jk_class.c_id from news inner JOIN jk_class ON news.c_id = jk_class.c_id where hidden=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
topic=rs("topic")
new_day = now - rs("tim")
if new_day<int(dim_num(42)) then
new_win = "<img src='"&joekoe_cms.web_dir_skin&"small/new.gif' border=0>"
else
new_win= ""
end if
response.write vbcrlf&"<table class='bkx'><tr><td height='"&dim_num(6)&"'>· <a href='news_view.asp?id="&id&"' target=_blank alt='新闻标题："&joekoe_cms.code_html(topic,1,0)&"<br>发 布 人："&rs("username")&"<br>浏览次数："&rs("counter")&" 人次<br>整理时间："&rs(0)&"'>"&joekoe_cms.code_html(topic,1,16)&"</a>"&new_win&"</td></tr></table>"
rs.movenext
loop
rs.close
%></td>
</tr>
<tr>
<td width="39" height="35" align="left" valign="top" class="bkz"><img src="skin/skin_1/tpzs_02.gif" width="37" height="244"></td>
<td width="206" align="center" valign="middle">
<div id=rolllink style=overflow:hidden;height:230;width:200>
<div id=rolllink1>
<table border=0 width='100%'>
<%
dim id,topic,pic
sql="select top 10 id,topic,pic from news where hidden=1 and ispic=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
topic=rs("topic")
response.write "<tr><td align=center>"&pic_fk(rs("pic"),2,"news_view.asp?id="&id)&"</td></tr>"
response.write "<tr><td align=center><a href='news_view.asp?id="&id&"' target=_blank alt='新闻标题："&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(topic,1,20)&"</a></td></tr>"
rs.movenext
loop
rs.close
%>
</table>
</div><div id=rolllink2></div></div>
<script language=javascript>
var rollspeed=90
rolllink2.innerHTML=rolllink1.innerHTML //克隆rolllink1为rolllink2
function Marquee(){
if(rolllink2.offsetTop-rolllink.scrollTop<=0) //当滚动至rolllink1与rolllink2交界时
rolllink.scrollTop-=rolllink1.offsetHeight //rolllink跳到最顶端
else{
rolllink.scrollTop++
}
}
var MyMar=setInterval(Marquee,rollspeed) //设置定时器
rolllink.onmouseover=function() {clearInterval(MyMar)}//鼠标移上时清除定时器达到滚动停止的目的
rolllink.onmouseout=function() {MyMar=setInterval(Marquee,rollspeed)}//鼠标移开时重设定时器
</script></td>
<td width="17" align="left" valign="top"><img src="skin/skin_1/tpzs_03.gif" width="15" height="244"></td>
</tr>
<tr>
<td height="27" colspan="3" align="left" valign="top" class="bkz"><img src="skin/skin_1/tpzs_04.gif" width="260" height="33"></td>
</tr>
<tr>
<td height="6" colspan="4" align="left" valign="top"><img src="skin/skin_1/title_bg03.gif" width="478" height="6"></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="39" align="center" valign="middle" background="skin/skin_1/reading108.gif" class="STYLE1">便民服务：<a href="down_list.asp?action=&c_id=76&s_id=120&page=&taxis=tim" target="_blank">杀毒软件升级</a> <a href="flea_list.asp?c_id=42" target="_blank">人才信息</a> <a href="flea_list.asp?c_id=48" target="_blank">二手信息</a> <a href="sousuo/" target="_blank">综合搜索引擎</a> <a href="get_emoney.asp" target="_blank">领取红包</a> <a href="user_put.asp" target="_blank">发布信息</a></td>
</tr>
</table></td>
<td width="26" rowspan="3" align="left" valign="top"> </td>
<td width="195" rowspan="3" align="right" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top"><a href="gbook.asp"><img src="skin/skin_1/lxfy_01.gif" width="195" height="27" border="0"></a></td>
</tr>
<tr>
<td height="137" align="left" valign="top" bgcolor="#FFEFB5" class="lybk">
<%
dim re_word,nname,hidden,tim,icon,tmp1
sql="select top 7 topic,re_word,nname,hidden,tim,icon from gb_data order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
topic=rs("topic")
response.write"<table><tr><td height="&dim_num(7)&"> <img src='images/icon/"&rs("icon")&".gif' border=0 align=absMiddle> <a href='gbook.asp' target=_blank alt='留言标题："&joekoe_cms.code_html(topic,1,0)&"<br>整理时间："&rs("tim")&"'>"&rs("nname")&"： "&joekoe_cms.code_html(topic,1,8)&"</a></tr></table>"
rs.movenext
loop
rs.close
%></td>
</tr>
<tr>
<td align="left" valign="top"><img src="skin/skin_1/lxfy_03.gif" width="195" height="6"></td>
</tr>
<tr>
<td height="5" align="left" valign="top"> </td>
</tr>
<tr>
<td height="27" align="left" valign="top"><img src="skin/skin_1/qltj_01.gif" width="195" height="27"></td>
</tr>
<tr>
<td height="136" align="left" valign="top" bgcolor="#EFFFA5" class="ggbk">
<%
sub main_left_update()
dim tmp1,topic,word
tmp1="<font class=>暂时没有网站公告！</font>"
sql="select top 1 * from bbs_cast where sort='news' order by id desc"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
topic=rs("topic")
word=rs("word")
tmp1="<table cellspacing=0 cellpadding=1 class=table align=center><tr><td align=center bgcolor=#EFFFA5><a href='update.asp?action=news#"&rs("id")&"'><center><b><font class=red>"&joekoe_cms.code_html(topic,1,0)&"</font></b></center></a></td></tr><tr><td align=center class=bw bgcolor=#EFFFA5><marquee scrollamount=2 direction=up width='90%' height='95' onMouseOver=this.stop() onMouseOut=this.start()>"&code_jk(word) &"<BR><BR><font class=gray> 发 布 人："&rs("username")&" <BR>发布时间："&rs("tim")&"</font></marquee></td></tr><tr><td bgcolor=#EFFFA5><CENTER><font color='blue'>"&rs("tim")&"</font></CENTER><CENTER>[<a href='update.asp?action=news'><font class=red>网站更新</font></a>] [<a href='update.asp?action=forum'><font class=red>论坛公告</font></a>]</CENTER></td></tr></table>"
end if
rs.close
response.write tmp1
tmp1=""
end sub
%>
<%call main_left_update()%>
</td>
</tr>
<tr>
<td height="6" align="left" valign="top"><img src="skin/skin_1/qltj_03.gif" width="195" height="6"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="43" colspan="3" align="left" valign="top" bgcolor="#E7E7E7"><img src="skin/skin_1/i24_weather.gif" width="173" height="43"></td>
</tr>
<tr>
<td width="182" height="56" align="left" valign="top" bgcolor="#E7E7E7">
<iframe src="http://weather.265.com/weather.htm" width="168" height="50" frameborder="0" marginwidth="0" marginheight="0" scrolling="no" name="I1"></iframe> </td>
<td width="22" align="left" valign="top" bgcolor="#E7E7E7"><p><a href="http://weather.265.com/" target="_blank"><font color="#339900">天<br>
气<br>
预<br>
报</font></a></p> </td>
<td width="23" align="left" valign="top" bgcolor="#E7E7E7"><a href="http://weather.265.com/" target="_blank"><font color="#339900">定<br>
制<br>
城<br>
市</font></a></td>
</tr>
</table>
<table width="925" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="925" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="131" align="left" valign="top" background="skin/skin_1/p-specialbg2.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27" align="left" valign="middle"> <a href="gallery.asp?types=film"><img src="skin/skin_1/icon_tuwen.gif" width="65" height="18" border="0"></a></td>
</tr>
<tr>
<td height="103" align="center" valign="middle">
<%
sub main_center_pic3(cs_tnum,cs_cnum)
dim tmp1,tmp_topic,tmp_url,temp_tit,username,name,counter,tim
tmp1=vbcrlf&"<tr align=center>"
sql="select top "&cs_tnum&" id,username,name,counter,tim,spic from gallery where hidden=1 and types='film' order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_topic=rs(2)
tmp_url="gallery_view.asp?id="&rs(0)
tmp1=tmp1&vbcrlf&"<td>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 class=table>" & _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("spic"),1,tmp_url)&"</td></tr>" & _
vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank alt='MTV名称："&rs("name")&"<br>发 布 人："&rs("username")&"<br>浏览次数："&rs("counter")&"<br>发布时间："&rs("tim")&"'>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td>"
rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='920'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
vbcrlf&"<tr><td align=right></td></tr>" & _
vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>"& _
vbcrlf&"</table>"&ukong
end sub
%>
<%call main_center_pic3(8,8)%>
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -