<!--#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"))))
		tid=ReplaceBadChar(int(Trim(Request.QueryString("tid"))))
	
		sql="update train_subject set zhuangtai=1 where id ="&id&""
		conn.Execute sql
		response.redirect "train_html.asp?id="&id&"&tid="&tid&""
		response.End
	end if
	
	if action="open1" then
	
		id=ReplaceBadChar(int(Trim(Request.QueryString("id"))))
		tid=ReplaceBadChar(int(Trim(Request.QueryString("tid"))))
	
		sql="update train_subject set grade=1 where id ="&id&""
		conn.Execute sql
		response.write"<script language=JavaScript>alert('您的操作已经成功');"    
		response.write"this.location.href='train_subject.asp';</script>"
		response.end
		
	end if
	
	if action="close1" then
	
		id=ReplaceBadChar(int(Trim(Request.QueryString("id"))))
		tid=ReplaceBadChar(int(Trim(Request.QueryString("tid"))))
	
		sql="update train_subject set grade=0 where id ="&id&""
		conn.Execute sql
		response.write"<script language=JavaScript>alert('您的操作已经成功');"    
		response.write"this.location.href='train_subject.asp';</script>"
		response.end
	end if
	
	if action="close" then
	
		id=ReplaceBadChar(int(Trim(Request.QueryString("id"))))
		tid=ReplaceBadChar(int(Trim(Request.QueryString("tid"))))
		
		sql="update train_subject set zhuangtai=0 where id ="&id&""
		conn.Execute sql
		
		fp="../html/train/"&tid&"/"
		dp=Server.Mappath(fp&trim(id)&".html")
		Set XP_fso = CreateObject("Scripting.FileSystemObject")
		If XP_fso.FileExists(dp) Then
			XP_fso.DeleteFile(dp)
		End If
		
		response.write"<script language=JavaScript>alert('您的操作已完成！');"    
		response.write"this.location.href='train_subject.asp';</script>"
		response.End
		
	end if
	
	if action="del" then
	id=Trim(Request("id"))
	tid=Trim(Request("tid"))
		if id="" then
			response.write"<script language=JavaScript>alert('参数为空，请选择您要删除的培训课程');"    
			response.write"this.location.href='train_subject.asp';</script>"
			response.end
		end if

		fp="../html/train/"&tid&"/"
		dp=Server.Mappath(fp&trim(id)&".html")
		Set XP_fso = CreateObject("Scripting.FileSystemObject")
		If XP_fso.FileExists(dp) Then
			XP_fso.DeleteFile(dp)
		End If

		sql="delete from train_subject where id in("&id&")"
		conn.Execute sql
		
		response.write"<script language=JavaScript>alert('培训课程删除成功！');"    
		response.write"this.location.href='train_subject.asp';</script>"
		response.End
	end if
%>
<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="20%" height="23" align="center" valign="middle">培训课程信息管理
<td width="80%" align="center" valign="middle"><table width="100%" border="0">
<form name="form2" method="get">
<input name="action" type="hidden" value="search" />
        <tr>
          <td width="57%">
		 搜索关键字：
		    <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="43%"><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="10%" nowrap>用 户 名</td>
	<td width="16%" nowrap>机构名称</td>
	<td width="13%" nowrap>课程名称</td>
	<td width="10%" nowrap>课程类别</td>
	<td width="23%" nowrap>课程简介</td>
	<td width="12%" nowrap>发布时间</td>
	<td width="9%" nowrap>状态</td>
    <td width="7%" nowrap>操作</td>
</tr>
<%
	searchtype="where train_subject.tid=train.id and train_subject_type.id=train_subject.type_max"
	
	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 train.tname like '%"&Keyword&"%'"
			else
				searchtype=" and train.train_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 train_subject.*,train.train_name,train.tname,train_subject_type.type_name from train,train_subject,train_subject_type "&searchtype&" order by train_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><%= rs_user("tname") %></td>
	<td><%=left(rs_user("train_name"),7)%>...</td>
	<td><% If rs_user("zhuangtai")=1 Then %><a href="../html/train/<%= rs_user("tid") %>/<%= rs_user("id") %>.html" target="_blank"><% End If %><%=left(rs_user("tsname"),6)%>...<% If rs_user("zhuangtai")=1 Then %></a><% End If %></td>
	<td><%= rs_user("type_name") %></td>
	<td><%=left(rs_user("introduction"),15)%>..</td>
	<td><%= year(rs_user("setup")) %>-<%= month(rs_user("setup")) %>-<%= day(rs_user("setup")) %></td>
	<td><% if rs_user("zhuangtai")=0 then Response.Write("<a href='?action=open&id="&rs_user("id")&"&tid="&rs_user("tid")&"'><font color='#FF0000'>未审核</font></a>") else Response.Write("<a href='?action=close&id="&rs_user("id")&"&tid="&rs_user("tid")&"'><font color='#FF0000'>已审核</font></a>")%> | <% if rs_user("grade")=0 then Response.Write("<a href='?action=open1&id="&rs_user("id")&"&tid="&rs_user("tid")&"'><font color='#FF0000'>未推荐</font></a>") else Response.Write("<a href='?action=close1&id="&rs_user("id")&"&tid="&rs_user("tid")&"'><font color='#FF0000'>已推荐</font></a>")%></td>
    <td><a href="?action=del&id=<%= rs_user("id") %>&tid=<%= rs_user("tid") %>">删除</a></td>
</tr>
<%
	rs_user.movenext
	next
	End If
%>
<tr>
<td colspan=8>
<table width="100%" 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
	conn.close
	set conn=nothing
%>
</select>页</font></td>
</tr>
</table></td>
</tr>
<tr>
	<td  class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'" colspan=8 align=right>	</td>
</tr>
</table>

