<%
'****************************************************
'名稱: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()
	lj = che(request("lj"))
End Sub

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


'****************************************************
'名稱:listinfo
'功能:列表
'****************************************************
Sub listinfos()
%>

	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab2">
	<tr> 
		<th width="5%" style="text-align:center;text-indent: 4px;">選</th>
		<th width="5%">ID</th>
		<th width="20%">年屆</th>
		<th width="10%">操作</th>
		<th width=""></th>
	</tr>
	<%
	sql="select id,lj from res_lj  order by id desc"
	strFileName="admin_res_yea.asp?action="&action
	colnum="7"
	formaction="admin_res_yea.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;<%=rs(1)%></td>
			<td>&nbsp;<A HREF="admin_res_yea.asp?action=edit&id=<%=Rs(0)%>">修改</A>｜<A HREF="admin_res_yea.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_yea.asp?action=save" name="add">

	<TR><TD class="zq" width="20%"><%=ljs(0)%></TD>
		<TD>&nbsp;<input name="<%=ljslm(0)%>" type="text" onkeypress="var k=event.keyCode; if ((k<=57 &&k>=48)) return true;else return false" onpaste="return false" maxlength="4" onFocus="this.select();" value="" style="ime-mode:disabled" class="put"/>
		&nbsp;<span id="<%=ljslm(0)%>_txt">*</span><BR>&nbsp;說明：如2005年入學的則填寫“2005”
		</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_Lists="lj"
	Sql_tables="res_lj"
	Sql_Conditions=" ID = "&id
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	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_yea.asp?action=mod" name="edit" onsubmit="return CheckForm2();">
	<TR><TD class="zq" width="20%"><%=ljs(0)%></TD>
		<TD>&nbsp;<input name="<%=ljslm(0)%>" type="text" onkeypress="var k=event.keyCode; if ((k<=57 &&k>=48)) return true;else return false" onpaste="return false" maxlength="4" onFocus="this.select();" value="<%=rs_edit(0,0)%>" style="ime-mode:disabled"  class="put"><BR>&nbsp;<span id="<%=ljslm(0)%>_txt">*&nbsp;</span>說明：如2005年入學的則填寫“2005”
		</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 
%>