<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
	useflag=3
%>
<!--#include file="flag.asp"-->
<!--#include file="../inc/char.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/sql.asp"-->
<%
	end if
	
	action=ReplaceBadChar(Trim(Request("action")))
	
	if action="open" then
	
		id=ReplaceBadChar(int(Trim(Request.QueryString("id"))))
	
		sql="update subject set lock=1 where id ="&id&""
		conn.Execute sql
		response.redirect "view_school_subject_html.asp?id="&id&""
		response.End
		
	end if
	
	if action="close" then
	
		id=ReplaceBadChar(int(Trim(Request.QueryString("id"))))
	
		sql="update subject set lock=0 where id ="&id&""
		conn.Execute sql
		
		pd=split(replace(request("id"),"||",""),",")
		fp="../html/school_subject/"
		for i=0 to ubound(pd) 
		dp=Server.Mappath(fp&trim(pd(i))&".html")
		Set XP_fso = CreateObject("Scripting.FileSystemObject")
			 If XP_fso.FileExists(dp) Then
				 XP_fso.DeleteFile(dp)
			 End If
		next
		
		response.write"<script language=JavaScript>alert('您的操作已完成！');"    
		response.write"this.location.href='school_zy.asp';</script>"
		response.End
		
	end if
	
	if action="del" then
	id=Trim(Request.Form("id"))
		if id="" then
			response.write"<script language=JavaScript>alert('参数为空，请选择您要删除的专业');"    
			response.write"this.location.href='school_zy.asp';</script>"
			response.end
		end if
		sql="delete from subject where id in("&id&")"
		conn.Execute sql
		
		pd=split(replace(request.form("id"),"||",""),",")
		fp="../html/school_subject/"
		for i=0 to ubound(pd) 
		dp=Server.Mappath(fp&trim(pd(i))&".html")
		Set XP_fso = CreateObject("Scripting.FileSystemObject")
			 If XP_fso.FileExists(dp) Then
				 XP_fso.DeleteFile(dp)
			 End If
		next
		
		response.write"<script language=JavaScript>alert('专业删除成功！');"    
		response.write"this.location.href='school_zy.asp';</script>"
		response.End
	end if
	if action="delall" then
		sql="delete from subject"
		conn.Execute sql
		
		pd=split(replace(request.form("id"),"||",""),",")
		fp="../html/school_subject/"
		for i=0 to ubound(pd) 
		dp=Server.Mappath(fp&trim(pd(i))&".html")
		Set XP_fso = CreateObject("Scripting.FileSystemObject")
			 If XP_fso.FileExists(dp) Then
				 XP_fso.DeleteFile(dp)
			 End If
		next
		
		response.write"<script language=JavaScript>alert('专业全部删除成功！');"    
		response.write"this.location.href='school_zy.asp';</script>"
		response.End
	end if
%>
<script language="JavaScript">
function checkBoxStatus() {
    var someBoxChecked=false;
      if (document.all.id!=null) {
       if (document.all.id.length==null) {
         if (document.all.id.checked==true) {
          someBoxChecked=true;
        }
      } else {
        for (var i=0 ;i<document.all.id.length;i++) {
          if (document.all.id[i].checked==true){
            someBoxChecked=true;
            break;
          }
        }
      }
    }
     if (!someBoxChecked) {
      return false;
    } else {
      return true;
    }
  }
function delall() {
  document.selform.action.value='delall';
  document.selform.submit();
}
function del() {
  if (!checkBoxStatus()) {
    alert("请选中至少一个专业！");
    return ;
  }
  document.selform.action.value='del';
  document.selform.submit();
}
function refreshall() {
  if (!checkBoxStatus()) {
    alert("请选中至少一个专业！");
    return ;
  }
  document.selform.action.value='refresh';
  document.selform.submit();
}
</script>
<script src='Include/Common.js'></script>
<link href='Include/Admin_Style.CSS' rel='stylesheet' type='text/css'>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="sortbutton">
<tr>    
<td width="27%" height="23" align="center" valign="middle">院校专业信息管理
<td width="73%" align="center" valign="middle"><table width="100%" border="0">
<form name="form2" method="get">
<input name="action" type="hidden" value="search" />
        <tr>
          <td width="64%">
		  搜索关键字：
		    <Input maxLength=30 name="Keyword" value="关键字" onMouseOver="if(this.value=='关键字'){this.value=''}" title="关键字">&nbsp;<input name="type" type="radio" value="uname" checked>用户名&nbsp;<input name="type" type="radio" value="iname">院校名称&nbsp;
      
		  </td>
          <td width="36%"><input class="button" type="submit" value="提交条件"></td>
        </tr>
		</form>
</table>
</tr>
</table>
<table width="100%" style="MARGIN-TOP: 3px" border="0" align="center" cellspacing="1" cellpadding="1"  class="Border">
<tr height="25" align="center" class='title'>
	<td width='6%' nowrap>选择</td>
	<td width="8%" nowrap>用 户 名</td>
	<td width="13%" nowrap>专业名称</td>
	<td width="13%" nowrap>学校名称</td>
	<td width="8%" nowrap>学历</td>
	<td width="15%" nowrap>授课形式</td>
	<td nowrap>培养目标</td>
	<td width="8%" nowrap>审核状态</td>
</tr>

<form name="selform" method="post" action="school_zy.asp">
<%
	searchtype="where subject.sid=school.id "
	
	if Trim(Request.QueryString("action"))="search" then
		
		type1=ReplaceBadChar(Trim(Request.QueryString("type")))
		Keyword=ReplaceBadChar(Trim(Request.QueryString("Keyword")))
		if Keyword<>"" and Keyword<>"关键字" then
			if type1="uname" then
				searchtype=" and school.sname like '%"&Keyword&"%'"
			else
				searchtype=" and school.school_name like '%"&Keyword&"%'"
			end if
		end if
		
	end if

	dim i,intPage,page,pre,last,filepath'定义变量
	set rs_user = server.CreateObject("adodb.recordset")'创建对象
	sql="select subject.*,school.school_name,school.sname as suname from subject,school "&searchtype&" order by subject.id desc"'定义SQL语句
	rs_user.PageSize = 14 '这里设定每页显示的记录数
	rs_user.CursorLocation = 3
	rs_user.Open sql,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
	pre = true
	last = true
	page = trim(Request.QueryString("page"))'变量是跳转页面时的值

	if len(page) = 0 then
		intpage = 1
		pre = false
	else
		if cint(page) =< 1 then
			intpage = 1
			pre = false
		else
			if cint(page) >= rs_user.PageCount then
				intpage = rs_user.PageCount
				last = false
			else
				intpage = cint(page)
			end if
		end if
	end if
	if not rs_user.eof then
		rs_user.AbsolutePage = intpage
	end if
	if rs_user.eof then
		response.Write "<tr><td colspan=9><div align=center><font size=3 color=red><b>没有院校的专业信息，请查询后再重试</b></font></div></td></tr>"
		response.End
	else
	for i=1 to rs_user.PageSize
	if rs_user.EOF or rs_user.BOF then exit for
%>
<tr height="25" align=center class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
	<td><input type="checkbox" name="id" value="<%= rs_user("id") %>"></td>
	<td><%= rs_user("suname") %></td>
	<td><% If rs_user("lock")=1 Then %><A HREF="#" onClick="window.open('../html/school_subject/<%= rs_user("id") %>.html','浏览专业<%=rs_user("sname")%>的详细信息','height=390, width=522, top=0, left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no')"><% End If %><%=left(rs_user("sname"),10)%>...<% If rs_user("lock")=1 Then %></A><% End If %></td>
	<td><%=left(rs_user("school_name"),10)%>...</td>
	<td><%= rs_user("xueli") %></td>
	<td><%=rs_user("shouke")%></td>
	<td><%=left(rs_user("goal"),15)%>..</td>
	<td><% if rs_user("lock")=0 then Response.Write("<a href='?action=open&id="&rs_user("id")&"'><font color='#FF0000'>未审核</font></a>") else Response.Write("<a href='?action=close&id="&rs_user("id")&"'><font color='#FF0000'>已审核</font></a>")%></td>
</tr>
<%
	rs_user.movenext
	next
	End If
%>
<tr>
<td colspan=8>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%if rs_user.pagecount > 0 then%>
<td width="13%" align="left">当前页<%=intpage%>/<%=rs_user.PageCount%></td>
<%else%>
<td width="41%" align="left">当前页0/0</td><%end if%>
<td width="46%" align="right"> <a href="?page=1&action=<%= Trim(Request.QueryString("action")) %>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>&type=<%= Trim(Request.QueryString("type")) %>">首页</a>|
<%if pre then%>
<a href="?page=<%=intpage -1%>&action=<%= Trim(Request.QueryString("action")) %>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>&type=<%= Trim(Request.QueryString("type")) %>">上页</a>| <%end if%>
<%if last then%>
<a href="?page=<%=intpage +1%>&action=<%= Trim(Request.QueryString("action")) %>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>&type=<%= Trim(Request.QueryString("type")) %>">下页</a> |<%end if%>
<a href="?page=<%=rs_user.PageCount%>&action=<%= Trim(Request.QueryString("action")) %>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>&type=<%= Trim(Request.QueryString("type")) %>">尾页</a>|转到第
<select name="sel_page" onchange=javascript:location.href=this.options[this.selectedIndex].value>
<%
	for i = 1 to rs_user.PageCount
	if i = intpage then
%>
<option value="?page=<%=i%>&action=<%= Trim(Request.QueryString("action")) %>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>&type=<%= Trim(Request.QueryString("type")) %>" selected><%=i%></option>
<%else%> 
<option value="?page=<%=i%>&action=<%= Trim(Request.QueryString("action")) %>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>&type=<%= Trim(Request.QueryString("type")) %>"><%=i%></option>
<%
	end if
	next
	rs_user.close
	set rs_user=nothing
%>
</select>页</font></td>
</tr>
</table></td>
</tr>
<tr>
	<td  class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'" height='25' colspan=8>
	&nbsp;&nbsp;<input id="chkAll" onClick="CheckAll(this.form)" type="checkbox" value="checkbox"  name="chkAll">全选
	<input class=Button type="submit" name="Submit2" value=" 删 除 " onClick="del()">
	<input class=Button type="button" name="Submit3" value="清空所有专业" onClick="delall()">
	</td>
</tr>
<input type="hidden" name="action" value="">
</form>
<tr>
	<td  class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'" colspan=8 align=right>	</td>
</tr>
</table>

