📄 indexvar.asp
字号:
<%
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：Huaihi_news ◇
'◇功 能：首页显新闻版快 ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub Huaihi_news()
Huaihi("<table border='0' width='100%' height='100%'><tr><td width='150' align='center'>")
sql="select top 1 * from Huaihi_news where pic<>'' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
call br()
Huaihi("<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>")
Huaihi("<TR><TD vAlign=bottom align=middle>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#808080 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>")
Huaihi("<TR><TD align=middle style='padding:4px;'>")
Huaihi("<a href='shownews.asp?id="&rs("id")&"' target='art'>")
Huaihi("<img src='"&rs("pic")&"' border=0 TITLE='新闻名称："&rs("title")&"<br>发布会员："&rs("user")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"' style='width:120px;height:120px;border:1px solid #444;' align='absmiddle'></a>")
Huaihi("</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>")
call br()
Huaihi("<center><a href='shownews.asp?id="&rs("id")&"' target='news'>"&Huaihi_Kill_Word(rs("title"),16)&"</a></center>")
call br()
rs.movenext
loop
if rs.eof and rs.bof then
Huaihi("<center>暂时没有新闻图片！</center>")
end if
rs.close
set rs=nothing
Huaihi("<td valign=top class=newsbg>")
Huaihi("<div id='icefable1' style='width:530px;height:22px'>")
Huaihi("<TABLE width=400 border=0 cellPadding=0 cellSpacing=0>")
sql="select top "&indexpage(6)&" * from Huaihi_gg order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Huaihi("<TD width=400 height=20>")
Huaihi("<font color='"&rs("color")&"'>")
Huaihi(" <span style=font-family:Webdings;font-size:15px>X</span> ")
Huaihi("<font color='"&rs("color")&"' title='"&rs("gg")&"'>")
Response.Write Huaihi_Kill_Word(rs("gg"),50)
Huaihi("</font></font> ["&rs("date")&"]")
Huaihi("</TD></TR>")
rs.movenext
loop
if rs.eof and rs.bof then
Huaihi(" <font color=""#666666"">对不起！目前没有任何公告！</font>")
end if
rs.close
set rs=nothing
Huaihi("</TABLE></div><div id='icefable2' style='position:absolute;z-index:1;visibility:hidden'></div>")
Huaihi("<script>marqueesHeight=20;stopscroll=false;icefable1.scrollTop=0;with(icefable1){style.width=0;style.height=marqueesHeight;style.overflowX='visible';style.overflowY='hidden';noWrap=true;onmouseover=new Function('stopscroll=true');onmouseout=new Function('stopscroll=false');}preTop=0; currentTop=0;stoptime=0;function init_srolltext(){icefable2.innerHTML='';icefable2.innerHTML+=icefable1.innerHTML;icefable1.innerHTML=icefable2.innerHTML+icefable2.innerHTML;setInterval('scrollUp()',70);}function scrollUp(){if(stopscroll==true) return;currentTop+=1;if(currentTop==21){stoptime+=1;currentTop-=1;if(stoptime==20){currentTop=0;stoptime=4;}}else{preTop=icefable1.scrollTop;icefable1.scrollTop+=1;if(preTop==icefable1.scrollTop){icefable1.scrollTop=icefable2.offsetHeight-marqueesHeight;icefable1.scrollTop+=1;}}}init_srolltext();</script>")
call br()
sql="SELECT top "&indexpage(0)&" * FROM Huaihi_news where pass=true ORDER BY id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Huaihi("<table border=0 width='100%' cellspacing='0' cellpadding='0'><tr>")
YC("<td style='border-top:1px dotted #444;height:24'>·[")
call myclass("Huaihi_newsclass","news",rs("class"))
Huaihi("] <a target='_blank' href='shownews.asp?id="&rs("id")&"'><font color='"&rs("color")&"' TITLE='新闻名称："&rs("title")&"<br>发布会员："&rs("user")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"'>"&Huaihi_Kill_Word(rs("title"),30)&"</font></a>")
if rs("date")=date() then
Huaihi(" <img src=img/new.gif border=0>")
end if
Huaihi("</td><td width=60 style='border-top:1px dotted #444;height:24'>"&rs("date")&"</td></tr></table>")
rs.movenext
loop
if rs.eof and rs.bof then
Huaihi("<center>暂时没有新闻!</center>")
end if
if not rs.eof or not rs.bof then
end if
rs.close
set rs=nothing
Huaihi("</td></tr></table>")
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：Huaihi_pic ◇
'◇功 能：首页显示图片版快 ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub Huaihi_pic()
Huaihi("<table border=0 cellspacing='0' cellpadding='0' width='100%'>")
Huaihi("<tr><td style='border-bottom:1px dotted #444;'>")
call br()
YC(" <img src=img/newday.gif border=0 align=absmiddle> 共有图片 <font color=red>")
call mytable("Huaihi_pic")
YC("</font> 张，其中")
set rspic=server.CreateObject("adodb.recordset")
sqlpic="select date from [Huaihi_pic] where pass=true and date=#"&date()&"#"
rspic.open sqlpic,conn,1,1
YC("今日更新 <font color=red>")
if not rspic.eof and not rspic.bof then
response.Write rspic.recordcount
else
Huaihi("<font color=red>0</font>")
end if
YC("</font> 张，等待审核 <font color=red>"&picnopass&"</font> 张。")
call br()
Huaihi("</td></tr><tr><td>")
call br()
Huaihi("<table border=0 cellspacing=0 cellpadding=2 align=center><tr>")
sql="select top "&indexpage(2)&" * from Huaihi_pic where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Huaihi("<td align=center>")
Huaihi("<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>")
Huaihi("<TR><TD vAlign=bottom align=middle>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#000 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>")
Huaihi("<TR><TD align=middle style='padding:4px'>")
Huaihi("<a href='showpic.asp?id="&rs("id")&"' target='pic' onfocus='this.blur()'><img src='"&rs("pic")&"' border=0 TITLE='图片名称："&rs("title")&"<br>发表会员："&rs("user")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次' style='width:115px;height:90px;border:1px solid #444' align=absmiddle></a></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></td>")
rs.movenext
loop
if rs.eof and rs.bof then
Huaihi("<td align=center height=112 width=300><center><font color=red><b>暂时没有图片！</b></font></center></td>")
end if
Huaihi("</tr></table>")
rs.close
set rs=nothing
call br()
Huaihi("</td></TR></table>")
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：Huaihi_dj ◇
'◇功 能：首页显娱乐版快 ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub Huaihi_dj
Huaihi("<table border=0 width='100%' height='100%'><tr><td width=150 align=center>")
sql="select top 1 * from [Huaihi_dj] where pic<>'' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
call br()
Huaihi("<TABLE cellSpacing=0 cellPadding=0 width=120 border=0>")
Huaihi("<TR><TD vAlign=bottom align=middle>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=1 cellPadding=0 bgColor=#000 border=0>")
Huaihi("<TR><TD bgColor=#ffffff>")
Huaihi("<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>")
Huaihi("<TR><TD align=middle style='padding:4px'>")
Huaihi("<a href='showdj.asp?id="&rs("id")&"' target='dj'><img src='"&rs("pic")&"' border=0 TITLE='娱乐标题："&rs("title")&"<br>娱乐作者："&rs("singer")&"<br>发表会员："&rs("user")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次' style='width:120px;height:120px;border:1px solid #444' align=absmiddle></a></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>")
call br()
Huaihi("<center><a href='showdj.asp?id="&rs("id")&"' target='dj'>"&Huaihi_Kill_Word(rs("title"),16)&"</a></center> ")
call br()
rs.movenext
loop
if rs.eof and rs.bof then
Huaihi("<center>暂时没有娱乐图片！</center>")
end if
rs.close
set rs=nothing
Huaihi("<td class=djbg valign=top>")
call br()
YC(" <img src=img/newday.gif border=0 align=absmiddle> 共有娱乐 <font color=red>")
call mytable("Huaihi_dj")
YC("</font> 个，其中")
set rsdj=server.CreateObject("adodb.recordset")
sqldj="select date from [Huaihi_dj] where pass=true and date=#"&date()&"#"
rsdj.open sqldj,conn,1,1
YC("今日更新 <font color=red>")
if not rsdj.eof and not rsdj.bof then
response.Write rsdj.recordcount
else
YC("<font color=red>0</font>")
end if
YC("</font> 个，等待审核 <font color=red>"&djnopass&"</font> 个。")
call br()
sql="select top "&indexpage(3)&" * from [Huaihi_dj] where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Huaihi("<table border=0 width='100%' cellspacing='0' cellpadding='0'>")
YC("<tr><td style='border-top:1px dotted #444;height:24'>·[")
call myclass("Huaihi_djclass","dj",rs("class"))
Huaihi("] <a href='showdj.asp?id="&rs("id")&"' target=_blank><font color='"&rs("color")&"' TITLE='娱乐标题："&rs("title")&"<br>娱乐作者："&rs("singer")&"<br>发表会员："&rs("user")&"<br>发表日期："&rs("date")&"<br>点击次数："&rs("click")&"次'>"&Huaihi_Kill_Word(rs("title"),30)&"</font></a>")
if rs("date")=date() then
Huaihi(" <img src=img/new.gif border=0>")
end if
Huaihi("</td><td width=60 style='border-top:1px dotted #444;'>"&rs("date")&"</td></tr></table>")
rs.movenext
loop
if rs.eof and rs.bof then
Huaihi("<center><font color=red><b>暂时没有娱乐！</b></font></center>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -