indexvar.asp

gdflsdf fkspofql owjlfkjsoijdf sdjfo

<%
'作者:邱乾城,网名:翱翔,QQ:1083934
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：gg                      ◇
'◇功  能：首页最新公告            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub gg()
sql="select top "&indexgg&" * from gg order by id DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<P><FONT color='#000000'>&nbsp;&nbsp;&nbsp;&nbsp;"&rs("gg")&"</font>"
Response.Write "<br><Font color='#5e5e5e' >&nbsp;发布日期:"&rs("date")&"</FONT></p>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<font color='#000000'>对不起！目前没有任何公告！</font>"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：link                    ◇
'◇功  能：首页logo链接            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub link()
sql="select top "&indexlink&" * from link where  logo<>'null' and best=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof
Response.Write "<TD width='110' height='45' align='center'><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></TD>"
rs.movenext
loop
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：link2                   ◇
'◇功  能：首页文字链接            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub link2()
sql1="select top "&indexlink2&" * from link where logo='null' and best=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql1,cn,1,1
do while not rs.eof
Response.Write "<TD width='110' height='35' align='center'><a href='"&rs("url")&"' target='_blank'>"&rs("webname")&"</a></TD>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<td colspan='7'><font color='#000000'>&nbsp;&nbsp;对不起！目前没有文字友情链接！</font></td>"
end if
end sub


'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：pic                     ◇
'◇功  能：首页最新作品展示        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub pic()
sql="select top "&indexpic&" * from pic where best=true order by pic DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<td align='center' valign'middle'><a href='showpic.asp?id="&rs("id")&"'><img border='0' src='"&rs("pic")&"' width='142' height='200' alt='"&rs("title")&"---"&rs("user")&"'/></a></td>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<td ><font color='#000000'>对不起！目前没有任何作品展示！</font></td>"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：news                    ◇
'◇功  能：首页最新动态            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub news()
sql="select top "&indexnews&" * from news where best=true order by id DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<tr><td><img src='images/indexdddd.gif' width='6' height='6' />&nbsp;<a href='shownews.asp?id="&rs("id")&"'><font color='"&rs("color")&"'>"&rs("title")&"</font>&nbsp;&nbsp;&nbsp; ["&rs("date")&"]</a></td></tr>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<tr><td>&nbsp;&nbsp;<font color='#000000'>对不起！目前没有任何设计动态！</font></td></tr>"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：newspic                 ◇
'◇功  能：首页最新动态图片        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub newspic()
sql="select top "&indexnewspic&" * from news where  pic<>'images/nodown.gif' and pic<>'' and best=true order by id DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<a href='shownews.asp?id="&rs("id")&"'><img src='"&rs("pic")&"' width='120' height='110' border='0' alt='点击看详细信息' /></a>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "&nbsp;&nbsp;<font color='#000000'>对不起！目前没有任何设计动态图片！</font>"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：union                   ◇
'◇功  能：首页文字联盟        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇

sub union()
sql="select top "&indexunion&" * from ax_user where dname<>'' and best=true order by id DESC" 
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof

Response.Write "<TR>"        
Response.Write "<td height='20' width='10' align='center'  ><img src='images/indexddd.gif' width='4' height='6' border='0' /> </td> <td height='20' width='84' ><a href='showunion.asp?id="&rs("id")&"'>"&rs("dname")&"</a></td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='20' width='10' align='center'  ><img src='images/indexddd.gif' width='4' height='6' border='0' /> </td> <td height='20' width='84' ><a href='showunion.asp?id="&rs("id")&"'>"&rs("dname")&"</a></td>"
Response.Write "</TR>" 
       
rs.movenext
loop
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：union2                  ◇
'◇功  能：首页最新logo联盟        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇

sub union2()
sql="select top "&indexunion2&" * from ax_user where  dpic<>'images/nodown.gif' and pass=true order by id DESC" 
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof

Response.Write "<TR>"        
Response.Write "<td height='20' width='10' align='center' valign='middle'><a href='showunion.asp?id="&rs("id")&"'><img src='"&rs("dpic")&"' width='100' height='100' border='0' alt='"&rs("dname")&"----"&rs("dbook")&"' /></a> </td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='20' width='10' align='center' valign='middle' ><a href='showunion.asp?id="&rs("id")&"'><img src='"&rs("dpic")&"' width='100' height='100' border='0' alt='"&rs("dname")&"----"&rs("dbook")&"' /></a> </td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='20' width='10' align='center' valign='middle' ><a href='showunion.asp?id="&rs("id")&"'><img src='"&rs("dpic")&"' width='100' height='100' border='0' alt='"&rs("dname")&"----"&rs("dbook")&"' /></a> </td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='20' width='10' align='center' valign='middle'><a href='showunion.asp?id="&rs("id")&"'><img src='"&rs("dpic")&"' width='100' height='100' border='0' alt='"&rs("dname")&"----"&rs("dbook")&"' /></a> </td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='20' width='10' align='center' valign='middle'><a href='showunion.asp?id="&rs("id")&"'><img src='"&rs("dpic")&"' width='100' height='100' border='0' alt='"&rs("dname")&"----"&rs("dbook")&"' /></a> </td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='20' width='10' align='center' valign='middle' ><a href='showunion.asp?id="&rs("id")&"'><img src='"&rs("dpic")&"' width='100' height='100' border='0' alt='"&rs("dname")&"----"&rs("dbook")&"' /></a> </td>"
Response.Write "</TR>" 
       
rs.movenext
loop
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：webs                    ◇
'◇功  能：首页显示网址导航        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇

sub webs()
sql="select top "&indexwebs&" * from web where webname<>'' and best=true" 
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof

Response.Write "<TR valign='middle' align='center'>"        
Response.Write "<td height='22' align='center' valign='middle' class='xuxian'><a href='"&rs("web")&"' target='_blank'>"&rs("webname")&"</a></td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='22' align='center' valign='middle' class='xuxian'><a href='"&rs("web")&"' target='_blank'>"&rs("webname")&"</a></td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='22' align='center' valign='middle'class='xuxian'><a href='"&rs("web")&"' target='_blank'>"&rs("webname")&"</a></td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='22' align='center' valign='middle'class='xuxian'><a href='"&rs("web")&"' target='_blank'>"&rs("webname")&"</a></td>"
rs.movenext 
if rs.eof then exit do
Response.Write "<td height='22' align='center' valign='middle'class='xuxian'><a href='"&rs("web")&"' target='_blank'>"&rs("webname")&"</a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td height='22' align='center' valign='middle'class='xuxian'><a href='"&rs("web")&"' target='_blank'>"&rs("webname")&"</a></td>"
Response.Write "</TR>" 
       
rs.movenext
loop
rs.close
set rs=nothing
end sub
%>