web.asp

不错的个人网站

<!--#include file="inc/HZC.asp"-->
<!--#include file="inc/mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="我的作品"
dim founderr
founderr=false
if request.querystring("cscat_id")<>"" then
  if not isInteger(request.querystring("cscat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
    response.end
end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
    response.end
end if
end if
if request.querystring("action")="" then
call head()
call menu()
sql="select * from HZC_work_cat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Response.Write "<img border='0' src='skin/work.jpg' width='757' height='186'>"
dim totalcs,Currentpage,totalpages,i
sql="select * from HZC_work order by cs_id DESC"
if request.querystring("cscat_id")<>"" then
sql="select * from HZC_work where cscat_id="&request.querystring("cscat_id")&" order by cs_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount%>&nbsp;
</TD><TD class=r></TD></TR></TBODY></TABLE>
<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder="0">
  <TBODY>
  <TR vAlign=top align=left>
    <TD>
<DIV class=mframe><SCRIPT type=text/javascript>lanyutable("当前共有<span><%=totalcs%></span>个作品");</SCRIPT>
 <table width="100%" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" frame=rhs>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=coolsitesperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalcs=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*coolsitesperpage<totalcs then
	       rs.move(currentpage-1)*coolsitesperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod coolsitesperpage)=0 then
      totalpages=totalcs\coolsitesperpage
   else
      totalpages=totalcs\coolsitesperpage+1
   end if
i=0
do while not rs.eof and i<coolsitesperpage
%><tr bgcolor="#ffffff"><td height="10"></td></tr><tr bgcolor="#FFFFFF"><td>
      <table width="100%" border="0" cellspacing="0" cellpadding="10" align="center">
        <tr> 
<TD width="37%" style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>HZC_img("<%=rs("cs_pic")%>","web.asp?action=go&cs_id=<%=rs("cs_id")%>","作品名称：<%=rs("cs_name")%>&#13&#10作品地址：<%=rs("cs_url")%>");</SCRIPT></TD>
          <td width="63%">
<table width="100%" border="0" cellspacing="5" cellpadding="2">
<tr><td width="100"><strong><font color="FFA300">作品名称：</font></strong></td>
<td bgcolor="F3F3F3" width="260"><%=rs("cs_name")%></td></tr>
<tr><td><strong><font color="FFA300">作品地址：</font></strong></td>
<td bgcolor="F3F3F3"><a href="?action=go&cs_id=<%=rs("cs_id")%>" target="_blank"><%=rs("cs_url")%></a></td></tr>
<tr><td><strong><font color="FFA300">加入时间：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_date")%></td></tr>
<tr><td><strong><font color="FFA300">简单描述：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_desc")%></td></tr>
</table></td></tr>
</table>
</td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <tr> 
          <td bgcolor="#FFFFFF" colspan="2" height="60" align="center">没有任何作品，请管理员到后台添加！</td>
        </tr>
<%end if
end if
if not request("type")=1 then%>
<tr bgcolor="#ffffff"><td height="10"></td></tr><tr bgcolor="#ffffff"><td height="30">
<form name="form1" method="post" action="web.asp?cscat_id=<%=request.querystring("cscat_id")%>">
<TABLE align=center border=0>
<TBODY>
<TR> 
<TD align=middle width="35%" height=25><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=web.asp?page=1&cscat_id="&request.querystring("cscat_id")&">首页</a> "
response.write "<a href=web.asp?page="&CurrentPage-1&"&cscat_id="&request.querystring("cscat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=web.asp?page="&CurrentPage+1&"&cscat_id="&request.querystring("cscat_id")
response.write ">下一页</a> <a href=web.asp?page="&totalpages&"&cscat_id="&request.querystring("cscat_id")&">尾页</a>"
end if
%>
 <IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"></TD>
</TR>
</FORM>
</table>     
      <%end if%>
<tr align="center"><td height="1" colspan="3"></td></tr></table><br>
</TD><TD width=5></TD><TD width=190>
<DIV class=member>

<SCRIPT type=text/javascript>lanyutabletop("点 滴 记 录","mr");</SCRIPT>
<div style="LINE-HEIGHT: 180%">   这是我的个人作品，欢迎大家光临！</div>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>





          </td>
        </tr>
      </table>
<%
rs.close
set rs=nothing
call footer()
end if
if request.querystring("action")="go" then
if request.querystring("cs_id")<>"" then
  if not isInteger(request.querystring("cs_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
dim csid
csid=cint(request.querystring("cs_id"))
sql="select cs_count,cs_url from HZC_work where cs_id="&csid
set rs=conn.execute(sql)
dim csurl
csurl=rs("cs_url")
sql="UPDATE coolsites SET cs_count = cs_count + 1 where cs_id="&csid
conn.execute(sql)
rs.close
set rs=nothing
response.redirect csurl
end if
%>