⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sysphoto.asp

📁 提供给大家学习交流,图片制作程序.希望大家提出提意见.
💻 ASP
字号:
<!-- #include file="chk.asp" -->
<!-- #include file="conn.asp" -->
<%if Session("admin2")<>"admin" Then
  Response.Write "您没有权限访问该页!"
  Response.end
  End if%>
<HTML><HEAD><TITLE>后台管理首页</TITLE>
<SCRIPT language=JavaScript>
function CheckSel(Voption,Value)
{
	var obj = document.getElementById(Voption);
	for (i=0;i<obj.length;i++){
		if (obj.options[i].value==Value){
		obj.options[i].selected=true;
		break;
		}
	}
}
function chang_size(num,objname)
{
	var obj=document.getElementById(objname)
	if (parseInt(obj.rows)+num>=3) {
		obj.rows = parseInt(obj.rows) + num;	
	}
	if (num>0)
	{
		obj.width="90%";
	}
}
</SCRIPT>

<STYLE type=text/css>#showpage {
	CLEAR: both; WIDTH: 100%; TEXT-ALIGN: center
}
</STYLE>

<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/admin_STYLE.css" rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY class=bgcolor leftMargin=2 topMargin=0 marginheight="0" 
marginwidth="0"><BR>
<TABLE class=border cellSpacing=1 cellPadding=2 width="706" align=center 
border=0>
  <TBODY>
  <TR align=middle>
    <TD class=topbg width=698 height=25>
      <DIV align=left><font size="3"><b>已删照片信息&nbsp; </b></font><font size="2">
        <a href="sysphoto_delall.asp">清空[sysphoto]表中的所有信息</a>
        <font color="#FF0000">(请通过FTP连接后删除了下列文件后在清空)</font></font></DIV></TD></TR></TBODY></TABLE><BR>
<TABLE class=border cellSpacing=1 cellPadding=2 width="704" align=center 
bgColor=#ffffff border=0 height="45">
  <TBODY>
  
  <TR>
    <TD class=tdbg height=22 width="350" align="center">
    <p align="center">文件名</TD>
    <TD class=tdbg height=22 width="351" align="center">
    删除时间</TD></TR>
<%
set rs=server.createobject("adodb.recordset")
rs.Open "Select * from [sysphoto]",conn,1,1
If rs.Bof Or rs.Eof then
  Response.Write "没有数据!"
Else
  While not rs.eof
%>


  <tr>
    <TD class=tdbg height=23 width="350" align="center"><%=rs("name")%>
     </TD>
    <TD class=tdbg height=23 width="351" align="center"><%=rs("time")%>
     </TD>
  </tr>
<%
rs.MoveNext
Wend
End If
rs.Close
Set rs=nothing
%>

  </TBODY></TABLE></BODY></HTML>

⌨️ 快捷键说明

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