<%
'****************************************************
'名稱:nowmenu
'功能:管理快捷菜單
'****************************************************
Sub nowmenu()
res "<h4><b>相關操作：</b>",1
res "<a href=""?action=add"">添加新專業</a> | ",1
res "<a href=""?action=list"">專業列表管理</a> ",1
res "</h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub

'****************************************************
'名稱:jstable
'功能:接收表單提交過來的值
'****************************************************
Sub jstable()
	pro = che(request("pro"))
	con = che(request("con"))
End Sub

'****************************************************
'名稱:sqltable
'功能:將值提交入庫
'參數:types 為空或 "add" 判斷是修改記錄還是添加記錄
'****************************************************
Sub sqltable(types)
	rs("Col_id") = Col_id
	rs("pro") = pro
	rs("con") = con
End Sub


'****************************************************
'名稱:listinfo
'功能:列表
'****************************************************
Sub listinfos()
	If Col_id="" Or Not IsNumeric(Col_id) Then Col_id=0
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check_Col(strid)	{
	window.location.href="admin_res_Pro.asp?action=<%=action%>&page=<%=page%>&Col_id="+strid;
}
//-->
</SCRIPT>

<style type="text/css">
h5 ul {clear:left;width:800px;}
h5 ul li {clear:left;float:left;width:300px;line-height:30px;}
h5 ul li select {width:200px;}
h5 ul li.lefts {clear:left;}
</style>
<H6>切換查看： <a href="admin_res_Pro.asp?action=list">全部</a> </H6>
<h5>
<ul>

	<li>系&nbsp;&nbsp;&nbsp;&nbsp;所 <SELECT NAME="<%=proslm(0)%>" onchange="javascript:check_Col(this.options[this.selectedIndex].value)"><%=my_sqlsel(Col_id,"Col")%></SELECT>
</ul>
</h5>
	<table width="100%" align="center" border="1" class="info_tab2">
	<tr> 
		<th width="5%" style="text-align:center;text-indent: 4px;">選</th>
		<th width="5%">ID</th>
		<th width="30%">所屬系所</th>
		<th width="30%">專業名稱</th>
		<th width="10%">操作</th>
		<th>&nbsp;</th>
	</tr>
	<%
	If Col_id<>0 Then Sql_Conditions=" where Col_id="&Col_id
	sql="select id,Col_id,pro from res_pro "&Sql_Conditions&" order by id desc"
	strFileName="admin_res_pro.asp?action="&action
	colnum="6"
	formaction="admin_res_pro.asp?action=del"
	sqllist sql,colnum,strFileName,formaction 
	If outcom=True Then
	showContent
	showdelpages
	End If
	%>
	</TABLE>
<%
end sub 

'****************************************************
'名稱:showContent
'功能:翻頁列表輸出
'****************************************************
sub showContent
	dim i
	i=0
	do while not rs.eof
		%>
		<tr> 
			<td class="art_info2" align="center">
				<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px"> 
			</td>
			<td>&nbsp;<%=rs(0)%></td>
			<td>&nbsp;<%=pros_names(rs(1))%></td>
			<td>&nbsp;<%=rs(2)%></td>
			<td>&nbsp;<A HREF="admin_res_pro.asp?action=edit&id=<%=Rs(0)%>">修改</A>｜<A HREF="admin_res_pro.asp?action=del&id=<%=Rs(0)%>">刪除</A></td>
			<td>&nbsp;</td>
		</tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
	loop
end Sub


'****************************************************
'名稱:addinfos
'功能:添加信息
'****************************************************
Sub addinfos()
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_res_pro.asp?action=save" name="add">

	<TR><TD class="zq" width="20%"><%=pros(0)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=proslm(0)%>"><%=my_sqlsel(0,"Col")%></SELECT>
		&nbsp;<span id="<%=proslm(0)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=pros(1)%></TD>
		<TD>&nbsp;<input name="<%=proslm(1)%>" type="text" maxlength="20" value="" class="put"/>
		&nbsp;<span id="<%=proslm(1)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=pros(2)%></TD>
		<TD>&nbsp;<TEXTAREA NAME="<%=proslm(2)%>" ROWS="" COLS=""></TEXTAREA>
		&nbsp;<span id="<%=proslm(2)%>_txt"></span><BR>
		</td>
	</tr>
	<TR><TD>&nbsp;</TD><TD>&nbsp;<input type="submit" name="send" value=" 確 認 "></TD></TR>
	</FORM>
	</TABLE>

<%
end Sub

'****************************************************
'名稱:editinfos
'功能:編輯信息
'****************************************************
Sub editinfos()
	If id="" Then errormsg "參數錯誤！"
	sql=Sqlinfo("Col_id,pro,con","res_pro"," ID = "&id,"","","")
	rs_edit = connopen(sql)
	If isArray(rs_edit)=False Then errormsg "參數錯誤"
	%>
	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="admin_res_pro.asp?action=mod" name="edit" onsubmit="return CheckForm2();">
	<TR><TD class="zq" width="20%"><%=pros(0)%></TD>
		<TD>&nbsp;<SELECT NAME="<%=proslm(0)%>"><%=my_sqlsel(rs_edit(0,0),"Col")%></SELECT>
		&nbsp;<span id="<%=proslm(0)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=pros(1)%></TD>
		<TD>&nbsp;<input name="<%=proslm(1)%>" type="text" maxlength="20" value="<%=rs_edit(1,0)%>" class="put"/>
		&nbsp;<span id="<%=proslm(1)%>_txt">*</span><BR>
		</td>
	</tr>
	<TR><TD class="zq" width="20%"><%=pros(2)%></TD>
		<TD>&nbsp;<TEXTAREA NAME="<%=proslm(2)%>" ROWS="" COLS=""><%=rs_edit(2,0)%></TEXTAREA>
		&nbsp;<span id="<%=proslm(2)%>_txt"></span><BR>
		</td>
	</tr>
	
	<TR><TD>&nbsp;</TD><TD>&nbsp;<input type="submit" name="send" value=" 確 認 ">
	<INPUT TYPE="hidden" NAME="id" value="<%=id%>">
	</TD></TR>
	</FORM>
	</TABLE>

<%
end sub 

Function pros_names(nos)
	sql=Sqlinfo("Col","res_Col"," id="&nos,"","","")
	fun_get = connopen(sql)
	If isArray(fun_get) Then
		pros_names=fun_get(0,0)
	Else
		pros_names="<span tit=""參數錯誤"">------</span>"
	End If 
End Function

%>