📄 phototype.asp

📁 本同学录系统演示地址:　http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等如果要换sql数据库,请将app_code里的MyPage
💻 ASP
字号:
<!--#include File="../conndb.asp"-->
<!--#include File="../class/PhotoType.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>照片分类管理</title>
<link rel="stylesheet" href="../style.css">
</head>
`
<script language="JavaScript">
function newtype(url) {
  var wth=window.screen.width; 
  var hth=window.screen.heigth;
  var lefth,topth;
  if(wth==1024)
	{
	  hth=200;
	  lefth =212;
	  wth=600;
	  topth=135;
	}
  else if(wth==800)
	{
	  hth=200;
	  lefth =100;
	  wth=600;
	  topth=50;
	}
  if(wth==6400)
	  hth=200
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left="+lefth+",top="+topth;
  oth = oth+",width="+wth+",height="+hth ;
  var newtype=window.open(url,"newtype",oth);
  newtype.focus();
  return false;
}
function SelectChk()
{
	var s=false;
	var typeid,n=0;
	var strid,strurl;
	var nn = self.document.all.item("type");
	for (j=0;j<nn.length;j++)
	{
		if (self.document.all.item("type",j).checked)
		{
			n = n + 1;
			s=true;
			typeid = self.document.all.item("type",j).id+"";
			if(n==1)
			{
				strid = typeid;
			}
			else
			{
				strid = strid + "," + typeid;
			}
		}
	}
	strurl = "PhotoType.asp?Oper=delete&id=" + strid;
	if(!s)	{
		alert("请选择要删除的照片分类!");
		return false;
	}
	
	if ( confirm("你确定要删除这些照片分类吗？")) {
		form1.action = strurl;
		form1.submit();
	}
}
function sltAll()
{
	var nn = self.document.all.item("type");
	for(j=0;j<nn.length;j++)
	{
		self.document.all.item("type",j).checked = true;
	}
}
function sltNull()
{
	var nn = self.document.all.item("type");
	for(j=0;j<nn.length;j++)
	{
		self.document.all.item("type",j).checked = false;
	}
}
</script>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%
  set obj = new PhotoType
  '处理添加、修改和删除操作
  Dim Soperate
  '读取参数oper，决定当前要进行的操作
  Soperate = Request.QueryString("oper")
  Operid = Request.QueryString("id")
  '删除记录
  If Soperate="delete" Then
    obj.delete(Operid)
    Response.Write "照片分类已经成功删除！"
  '添加记录
  ElseIf Soperate="add" Then
    newTitle = Request("txttitle")
    '判断数据库中是否存在此类别
	If obj.HavePhotoType(newTitle)=True Then
      Response.Write "已经存在此照片分类!"
    Else
	  obj.pTypeName = newTitle
	  obj.Owner = Session("UserName")
	  obj.insert
      Response.Write"添加成功！"
    End if
  '修改记录 
  ElseIf Soperate = "edit" Then
    newTitle = Request("txttitle")
    orgTitle = Request("sOrgTitle")
    '如果新类别名称和旧的不同则执行
    If newTitle<>orgTitle Then
      '判断数据库中是否存在此类别
      If obj.HavePhotoType(newTitle)=True Then
        Response.Write "已经存在此照片分类,添加失败!"
      Else
	    obj.pTypeName = newTitle
		obj.update(Operid)
        Response.Write"修改完成！"
      End If
    End If
  End If
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b>照 片 分 类 管 理</b></font></p>
<center>
<table border="1" cellspacing="0" width="90%"  bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" style='FONT-SIZE: 9pt'>
  <tr>
    <td width="60%" align="center" bgcolor="#FFCCFF"><strong>类 别</strong></td>
    <td width="20%" align="center" bgcolor="#FFCCFF"><strong>修 改</strong></td>
    <td width="20%" align="center" bgcolor="#FFCCFF"><strong>选 择</strong></td>
  </tr>
<%
  '读取所有的分类数据到记录集rs中
  obj.GetPhotoTypelist
  If obj.rs.EOF Then
    Response.Write "<tr><td colspan=3 align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr></table>"
  Else
    Do While Not obj.rs.EOF
%>
      <tr><td><%=obj.rs("TypeName")%></td>
      <td align="center"><a href="PhotoType.asp?Oper=update&id=<%=obj.rs("TypeID")%>&name=<%=obj.rs("TypeName")%>">修改</a></td>
      <td align="center"><input type="checkbox" name="type" id="<%=obj.rs("TypeID")%>"></td></tr>
<%
      obj.rs.MoveNext()
    Loop
%>
</table>
		<p align="center">	
<%  End If
	If obj.rs.RecordCount > 0 Then
		%>

		 <input type="button" value="全 选" onClick="sltAll()">
		 &nbsp;&nbsp;<input type="button" value="清 空" onClick="sltNull()">
		 &nbsp;&nbsp;<input type="submit" value="删 除" name="tijiao" onClick="SelectChk()">
		<%
	End If
%>
</form>
<%
' 如果为修改和添加操作，则分别显示下面的内容
If Soperate ="update" Then
	sTitle = Request.QueryString("name")
%>
	<form name="UFrom" method="post" action="PhotoType.asp?id=<%=Operid%>&Oper=edit">
	  <div align="center">
		<input type="hidden" name="sOrgTitle" value="<%=sTitle%>">
		<font color="#FFFFFF"><b><font color="#000000">分类名称</font></b></font> 
		<input type="text" name="txttitle" size="20" value="<%=sTitle%>">
		<input type="submit" name="Submit" value=" 修 改 ">
		</div>
	</form>
<%Else%>
	<form name="AForm" method="post" action="PhotoType.asp?Oper=add">
	  <div align="center">
		<font color="#FFFFFF"><b><font color="#000000">分类名称</font></b></font> 
		<input type="text" name="txttitle" size="20">
		<input type="submit" name="Submit" value=" 添 加 ">
	  </div>
	</form>
<%End If%>
<input type="hidden" name="type">
</BODY>
</HTML>
⌨️ 快捷键说明

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