📄 design.asp

📁 个人网站系统毕业论文大家可以借鉴下
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="page.asp"-->
<!--#include file="ubbcode.asp"-->
<!--#include file="function.asp"-->
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%set rs=server.CreateObject("adodb.recordset")
  sql="select * from dy_zuopin order by dy_id desc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
%>
<table width="633" height="20" cellspacing="1">
  <tr>
    <td align="center">当前没有作品！</td>
  </tr></table>
<%else 
page=request.querystring("page")   
  rs.PageSize = 3 
if Not IsEmpty(page) then  
    if Not IsNumeric(page) then  
       page=1
    else
    Page = cint(page)  
    end if   
    if Page > rs.PageCount then  
        rs.AbsolutePage = rs.PageCount     
    elseif Page <= 0 then  
        rs.AbsolutePage = 1  
    else
        rs.AbsolutePage = Page  
    end if
else
rs.AbsolutePage=1
end if
Page = rs.AbsolutePage%>
<table width="632" height="275" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td width="635" height="26" align="left" valign="middle" bgcolor="#FFFFFF">共有<%=rs.recordcount%>个作品</td>
  </tr>
  <tr>
    <td height="221" align="left" valign="top" bgcolor="#FFFFFF"> 
	<% 
For i = 1 to rs.PageSize  
 if rs.EOF then
  Exit For 
 end if 
%>
   <table width="632" height="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr bgcolor="#FFFFFF"> 
          <td width="199" rowspan="5" align="center" valign="middle"><table width="193" height="180" border="0" cellpadding="0" cellspacing="0" background="img/zuopin_bj.gif">
              <tr>
                <td align="center" valign="middle"><a href="<%=rs("dy_url")%>" target="_blank"><img src="<%=rs("dy_pic")%>" width="155" height="150" border="0"></a></td>
              </tr>
            </table></td>
          <td width="77"><font color="#FF6633">编号:</font></td>
          <td width="109"><%=rs("dy_id")%></td>
          <td width="77"><font color="#FF6633">作品名称:</font></td>
          <td width="171"><%=rs("dy_name")%></td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF"><font color="#FF6633">作者:</font></td>
          <td colspan="3" bgcolor="#FFFFFF"><%=rs("dy_author")%></td>
        </tr>
        <tr> 
          <td height="32" bgcolor="#FFFFFF"><font color="#FF6633">开发时间:</font></td>
          <td colspan="3" bgcolor="#FFFFFF"><%=rs("dy_time")%></td>
        </tr>
        <tr> 
          <td height="76" bgcolor="#FFFFFF"><font color="#FF6633">简介:</font></td>
          <td colspan="3" align="left" valign="top" bgcolor="#FFFFFF"><font color="#009900"><%=ubb(th2(rs("dy_js")))%></font></td>
        </tr>
        <tr> 
          <td height="44" bgcolor="#FFFFFF"><font color="#FF6633">下载:<font color="#009900"><%=rs("dy_hit")%></font>次</font></td>
          <td colspan="3" bgcolor="#FFFFFF"> 　<%if rs("dy_down")=empty then
		  response.Write("暂时不提供下载")
		  else
		  %>　　<a href="download.asp?id=<%=rs("dy_id")%>"><img src="img/down.gif" width="30" height="20" border="0"></a>
		  <%end if%><%if session("oursky")="oursky" then %><a href="zuopin_edi.asp?id=<%=rs("dy_id")%>">编辑</a>&nbsp;&nbsp;
		  <script language="JavaScript">
<!--
function suredo(src,q)
    {
      var ret;
      ret = confirm(q);
      if(ret!=false)window.location=src;
    }
//-->
</script>

<a href='javascript:suredo("zuopin_del.asp?id=<%=rs("dy_id")%>","确定删除?")'>删除</a><%end if%></td>
        </tr>
      </table>
	  <%rs.movenext
    next
   end if%>
  </td>
  </tr>
  <tr>
    <td height="24" align="center" valign="top" bgcolor="#FFFFFF"><%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%></td>
  </tr>
</table>
<%
rs.close
  set rs=nothing
  conn.close
  set conn=nothing
 %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -