admin_photo.asp

基于asp的网站管理系统,课直接下载使用,对初学者有恨大帮助,希望对大家有用

sql="select * from photo order by id desc"
rs.open sql,db,1,1
dim pagenum
rs.pagesize=8
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>



<tr bgcolor="#99CCFF" valign='top' align="center" height='150'>
  <%do while not rs.eof and i<4%>
<td><a href='photoview.asp?id=<%=rs("id")%>' target="_blank">
<img src='<%=rs("photourl")%>' width="120" height="100" border='0'></a><br><a href='photoview.asp?id=<%=rs("id")%>'><%=rs("info")%></a><br><a href='admin_photo.asp?action=modifydo&id=<%=rs("id")%>'>修改</a>&nbsp;&nbsp;<a href='admin_photo.asp?action=deldo&id=<%=rs("id")%>'>删除</a></td>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</tr>
<tr bgcolor="#99CCFF" valign='top' align="center" height='150'>
  <%do while not rs.eof and i<8%>
<td><a href='photoview.asp?id=<%=rs("id")%>' target="_blank">
<img src='<%=rs("photourl")%>' width="120" height="100" border='0'></a><br><a href='photoview.asp?id=<%=rs("id")%>'><%=rs("info")%></a><br><a href='admin_photo.asp?action=modifydo&id=<%=rs("id")%>'>修改</a>&nbsp;&nbsp;<a href='admin_photo.asp?action=deldo&id=<%=rs("id")%>'>删除</a></td>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</tr>

<tr bgcolor="#99CCFF" valign='top' align="center">
 <td align=right><a href=admin_photo.asp?action=view&pagenum=1>首页</a></td>
 <td><%if pagenum>1 then%>
			<a href=admin_photo.asp?action=view&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> </td>
 <td><%if pagenum < trim(pagecount1) then%>
			<a href=admin_photo.asp?action=view&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页<%end if%></td>
 <td align=left><a href=admin_photo.asp?action=view&pagenum=<%=pagecount1%>>尾页</a></td>
</tr>

<% rs.close %>


</table>
<% end if %>


<%if request("action")="add" then%>

<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from photo where id="&id
rs.open sql,db,1,3
%>

<script language=javascript>
<!--
function photo_check()
{
  if (modify.photourl.value=="")
  { alert("请填写 图片路径！！"); return false; }
  if (modify.info.value=="")
  { alert("请填写 图片简介！！ "); return false; }
}
-->
</script>
<br><br>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <form name=modify action='admin_photo.asp?action=addok' method=post>
  <tr valign='top'><td width='20%' align=right>图片路径：</td><td><input type=text name='photourl' size=35 maxlength=80>&nbsp;&nbsp;<font color='#ff0000'>*</font>&nbsp;&nbsp;<a href='upfile.asp' target=_blank>上传图片</a></td></tr>
  <tr><td height='10'> </td></tr>
   <tr valign='top'><td align=right>图片简介：</td><td><input type=text name='info' size=35 maxlength=80>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
     <tr><td height='10'> </td></tr>
  <tr><td></td><td><input type=submit value=' 添 加 ' onclick="return photo_check()">&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_photo.asp?action=view'"></td></tr>
  </form>
  </table>
<p><font color=red>&nbsp;&nbsp;&nbsp;修改说明：</font>带*号的为必填项，请认真填写！</p>
<% rs.close %>
<% end if %>

<%if request("action")="addok" then%>

<%
on error resume next
add_user=session("realname")
photourl=trim(request("photourl"))
info=trim(request("info"))
date="date()"
sql="select * from photo"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
      rs.addnew
      rs("add_user")=add_user
      rs("photourl")=photourl
      rs("info")=info
      rs("date")=date
      rs.update

if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_photo.asp?action=add'>返回重新添加</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功添加照片！<br><br><a href='admin_photo.asp?action=add'>返回继续添加</a>"
end if
%>


<% end if %>



<%if request("action")="modify" then%>
<br>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="" valign='top'>
<%
set rs=server.createobject("adodb.recordset") 
sql="select * from photo order by id desc"
rs.open sql,db,1,1
rs.pagesize=8
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>



<tr bgcolor="#99CCFF" valign='top' align="center" height='150'>
  <%do while not rs.eof and i<4%>
<td><a href='photoview.asp?id=<%=rs("id")%>' target="_blank">
<img src='<%=rs("photourl")%>' width="120" height="100" border='0'></a><br><a href='photoview.asp?id=<%=rs("id")%>'><%=rs("info")%></a><br><a href='admin_photo.asp?action=modifydo&id=<%=rs("id")%>'>修改</a></td>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</tr>
<tr bgcolor="#99CCFF" valign='top' align="center" height='150'>
  <%do while not rs.eof and i<8%>
<td><a href='photoview.asp?id=<%=rs("id")%>' target="_blank">
<img src='<%=rs("photourl")%>' width="120" height="100" border='0'></a><br><a href='photoview.asp?id=<%=rs("id")%>'><%=rs("info")%></a><br><a href='admin_photo.asp?action=modifydo&id=<%=rs("id")%>'>修改</a></td>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</tr>

<tr bgcolor="#99CCFF" valign='top' align="center">
 <td align=right><a href=admin_photo.asp?action=modify&pagenum=1>首页</a></td>
 <td><%if pagenum>1 then%>
			<a href=admin_photo.asp?action=modify&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> </td>
 <td><%if pagenum < trim(pagecount1) then%>
			<a href=admin_photo.asp?action=modify&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页<%end if%></td>
 <td align=left><a href=admin_photo.asp?action=modify&pagenum=<%=pagecount1%>>尾页</a></td>
</tr>

<% rs.close %>
</table>
<% end if %>


<%if request("action")="modifydo" then%>

<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from photo where id="&id
rs.open sql,db,1,3
%>

<script language=javascript>
<!--
function photo_check()
{
  if (modify.photourl.value=="")
  { alert("请填写 图片路径！！"); return false; }
  if (modify.info.value=="")
  { alert("请填写 图片简介！！ "); return false; }
}
-->
</script>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <tr><td></td><td><img src=<%=rs("photourl")%> border=0 width=300 height=250></td></tr>
  <tr><td height='10'> </td></tr>
  <form name=modify action='admin_photo.asp?action=modifyok&id=<%=rs("id")%>' method=post>
  <tr valign='top'><td width='20%' align=right>图片路径：</td><td><input type=text name='photourl' size=35 maxlength=80 value='<%=rs("photourl")%>'>&nbsp;&nbsp;<font color='#ff0000'>*</font>&nbsp;&nbsp;<a href='upfile.asp' target=_blank>上传图片</a></td></tr>
  <tr><td height='10'> </td></tr>
   <tr valign='top'><td align=right>图片简介：</td><td><input type=text name='info' size=35 maxlength=80 value='<%=rs("info")%>'>&nbsp;&nbsp;<font color='#ff0000'>*</font></td></tr>
     <tr><td height='10'> </td></tr>
  <tr><td></td><td><input type=submit value=' 修 改 ' onclick="return photo_check()">&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_photo.asp?action=modify'"></td></tr>
  </form>
  </table>
<p><font color=red>&nbsp;&nbsp;&nbsp;修改说明：</font>带*号的为必填项，请认真填写！</p>
<% rs.close %>
<% end if %>

<%if request("action")="modifyok" then%>

<%
id=trim(request("id"))
add_user=session("realname")
photourl=trim(request("photourl"))
info=trim(request("info"))
sql="update photo set photourl='"&photourl&"',add_user='"&add_user&"',info='"&info&"'where id="&id
db.execute(sql)

if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_photo.asp?action=modify'>返回重新修改</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功修改照片！<br><br><a href='admin_photo.asp?action=modify'>返回继续修改</a>"
end if
%>
<% end if %>


<%if request("action")="del" then%>
<br>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="" valign='top'>
<%
set rs=server.createobject("adodb.recordset") 
sql="select * from photo order by id desc"
rs.open sql,db,1,1
rs.pagesize=8
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>



<tr bgcolor="#99CCFF" valign='top' align="center" height='150'>
  <%do while not rs.eof and i<4%>
<td><a href='photoview.asp?id=<%=rs("id")%>' target="_blank">
<img src='<%=rs("photourl")%>' width="120" height="100" border='0'></a><br><a href='photoview.asp?id=<%=rs("id")%>'><%=rs("info")%></a><br><a href='admin_photo.asp?action=deldo&id=<%=rs("id")%>'>删除</a></td>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</tr>
<tr bgcolor="#99CCFF" valign='top' align="center" height='150'>
  <%do while not rs.eof and i<8%>
<td><a href='photoview.asp?id=<%=rs("id")%>' target="_blank">
<img src='<%=rs("photourl")%>' width="120" height="100" border='0'></a><br><a href='photoview.asp?id=<%=rs("id")%>'><%=rs("info")%></a><br><a href='admin_photo.asp?action=deldo&id=<%=rs("id")%>'>删除</a></td>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</tr>

<tr bgcolor="#99CCFF" valign='top' align="center">
 <td align=right><a href=admin_photo.asp?action=del&pagenum=1>首页</a></td>
 <td><%if pagenum>1 then%>
			<a href=admin_photo.asp?action=del&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> </td>
 <td><%if pagenum < trim(pagecount1) then%>
			<a href=admin_photo.asp?action=del&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页<%end if%></td>
 <td align=left><a href=admin_photo.asp?action=del&pagenum=<%=pagecount1%>>尾页</a></td>
</tr>

<% rs.close %>
</table>
<% end if %>


<%if request("action")="deldo" then%>
<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from photo where id="&id
rs.open sql,db,1,3
%>

 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <tr><td></td><td><img src=<%=rs("photourl")%> border=0 width=300 height=250></td></tr>
  <tr><td height='10'> </td></tr>
  <form name=modify action='admin_photo.asp?action=delok&id=<%=rs("id")%>' method=post>
  <tr valign='top'><td width='20%' align=right>图片路径：</td><td><input type=text name='photourl' size=35 maxlength=80 value='<%=rs("photourl")%>'></td></tr>
  <tr><td height='10'> </td></tr>
   <tr valign='top'><td align=right>图片简介：</td><td><input type=text name='info' size=35 maxlength=80 value='<%=rs("info")%>'></td></tr>
     <tr><td height='10'> </td></tr>
  <tr><td></td><td><input type=submit value=' 删 除 ' onclick="return photo_check()">&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_photo.asp?action=del'"></td></tr>
  </form>
  </table>
<% rs.close %>
<% end if %>

<%if request("action")="delok" then%>

<%
id=trim(request("id"))
sql="delete * from photo where id="&id
db.execute(sql)

if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>删除过程中发生错误，必须重新删除！<br><br><a href='admin_photo.asp?action=del'>返回重新删除</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功删除新闻！<br><br><a href='admin_photo.asp?action=del'>返回继续删除</a>"
end if
%>
<% end if %>


<% end if %>

</td>
<td align="left" width="4" background="images/sidebox-content-right.gif"><img src="images/sidebox-content-right.gif" width="4" height="1" alt=""></td>
</tr>
</table>
</td>

<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/column-footer.gif" width="780" height="16" border="0" alt=""></td>
</tr>
</table>


<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/footer.gif" width="780" height="20" border="0" alt=""></td>
</tr>
</table>

<!-- footer -->
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr align="center">
<td width="100%" colspan="3"><%
set rs=server.createobject("adodb.recordset") 
sql="select top 1 copyright from system order by id desc"
rs.open sql,db,1,1
%>
<%=rs("copyright")%>
<% rs.close %>
</td>
</tr>
</table>

</body>
</html>