admin_sd.asp

个人网站系统 毕业论文 大家可以借鉴下

<%  
sub news() '=======================动态消息=================
    set rs=server.createObject("adodb.recordset")
       sql="select * from dy_news " 
       rs.open sql,conn,1,1  
      do until rs.eof 
       response.write("<font color=red>"& rs("dy_content") & "</font>&nbsp;&nbsp;<font color=#336699>("& rs("dy_name")& ")</font>&nbsp;<font color=#336699>"&rs("dy_time")&"</font>")       
 rs.movenext  
  loop
if rs.eof and rs.bof then 
   response write ("当前没有新闻！") 
  end if 
  rs.close
  set rs=nothing
  end sub
 sub wenzhang()   '==================文章调用============
  set rs=server.CreateObject("adodb.recordset")
  sql="select top 7 * from dy_wenzhang order by dy_id desc"
   rs.open sql,conn,1,1  
  do until rs.eof%>
  <table width="440" height="20" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="27"> <font color="#FF6633">◇</font></td>
    <td width="250" align="left" background="img/dot.gif"><A href="javascript:wi2('showwz.asp?id=<%=rs("dy_id")%>')"><%=ubb(rs("dy_title"))%></a>&nbsp;&nbsp;&nbsp;<font color="#009900">浏览<font color="#FF6633"><%=rs("dy_hit")%></font>次</font></td>
    <td width="100" background="img/dot.gif" ><font color="#009900"><%=rs("dy_time")%> </font></td>
     
  </tr>
</table>
 <% rs.movenext
   loop
   if rs.eof and rs.bof then%>
  <table width="460" height="20" border="0" cellpadding="0" cellspacing="0">
  <tr><td width="152">当前没有文章！</td>  
  </tr>
</table><%
end if
rs.close
set rs=nothing
end sub
  sub dy_rj()'===========日记调出=========
  set rs=server.createObject("adodb.recordset")
       sql="select top 1 * from dy_daily order by dy_id desc " 
       rs.open sql,conn,1,1  
  do while not  rs.eof 
	  %>
<table width="460" height="71" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="140" height="32"><font color="#009900">日期</font>：<%=rs("dy_time")%></td>
    <td width="151"><font color="#009900">天气：</font><img src="<%=rs("dy_tq")%>"></td>
    <td width="169"><font color="#009900">浏览次数：</font><%=rs("dy_hit")%></td>
  </tr>
  <tr> 
    <td colspan="3" background="img/dot.gif" valign="top"><A href="javascript:wi('showdaily.asp?id=<%=rs("dy_id")%>')"><%=ubb(th(rs("dy_content")))%>......</a></td>
  </tr>
</table>
<%rs.movenext
loop
if rs.eof and rs.bof then 
   %>
   <table width="300"><tr><td align="center"><font color="#FF6633">当前没有日记！</font></td></tr></table>
 <% end if 
  rs.close
  set rs=nothing
  end sub
  sub dy_link()'=============连接调出==============
  set rs=server.CreateObject("adodb.recordset")
  sql="select top 6 * from dy_link order by dy_id desc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
  response.Write("当前还没有连接！")
  else 
  
  %><table align="center" width="630" height="50" cellspacing="5" cellpadding="1">
  <tr><%do until rs.eof%><td width="100"><a href="<%=rs("dy_place")%>" target="_blank"><img src="<%=rs("dy_logo")%>" alt="<%=rs("dy_jshao")%>" border="0"></a></td>
  <%rs.movenext
  loop%>
  </tr></table><%end if 
  rs.close
  set rs=nothing
  end sub
  sub daohang()'==================导航条=====
  %>
  <table width="633" height="30" border="0" cellpadding="0" cellspacing="5">
  <tr>
    <td width="75"><a href="index.asp">SKY首页</a></td>
    <td width="75"><A href="javascript:me('aboutme.asp','','width=630,height=450')">Me</a></td>
    <td width="75"><a href="index_pic.asp">我的照片</a></td>
    <td width="75"><a href="index_daily.asp">SKY日志</a></td>
    <td width="75"><a href="index_wz.asp">网文撰写</a></td>
    <td width="75"><a href="index_link.asp">友情连接</a></td>
    <td width="75"><a href="gsbook.asp">雁过留声</a></td>
	 
  </tr>
</table>
  <%end sub

  sub dy_pic()'===========调出图片=========
  set rs=server.createObject("adodb.recordset")
       sql="select top 4 * from dy_load order by dy_id desc " 
       rs.open sql,conn,1,1  
	  %>
<table width=100% height="71" border="0" cellpadding="0" cellspacing="0">
  <tr> 
  <%do until  rs.eof %>
    <td><a href="showpic.asp?id=<%=rs("dy_id")%>" target="_blank"><img src=<%=rs("dy_content")%> width="150" height="158" border="0" title=<%=rs("dy_title")%>></a></td>
  <%rs.movenext
   loop%>
  </tr>
</table>
<%
if rs.eof and rs.bof then %>
   <table><tr><td>当前没有图片</td></tr></table>
  <%end if 
  rs.close
  set rs=nothing
  end sub 
  sub counter()'========== 记数器 
  if session("guest")="" then
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from dy_counter"
  rs.open sql,conn,3,3
  dy_counter=rs("dy_counter")
  count1= dy_counter+1
  rs("dy_counter")=count1
  rs.update%>
  <table><tr><td><font color="#FFFFFF">今天是：</font><%=date%></td><td><font color="#FFFFFF">你是本站第</font><%=rs("dy_counter")%><font color="#FFFFFF">位浏览者</font>
 </td></tr></table>
  <%
  rs.close
 set rs=nothing
 session("guest")="guest"
end if
if session("guest")="guest" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from dy_counter"
rs.open sql,conn,1,1%>
<table><tr><td><font color="#FFFFFF">今天是：</font><%=date%></td><td><font color="#FFFFFF">你是本站第</font><%=rs("dy_counter")%><font color="#FFFFFF">位浏览者</font>
 </td></tr></table>
<% rs.close
set rs=nothing  
end if 
end sub
%>