?? admin_stuid_inc.asp
字號:
<%
Dim arr_t_id(2)
arr_t_id(1)="選修"
arr_t_id(2)="必修"
'****************************************************
'名稱:jstable
'功能:接收表單提交過來的值
'****************************************************
Sub jstable()
con = che(request("con"))
End Sub
'****************************************************
'名稱:sqltable
'功能:將值提交入庫
'參數:types 為空或 "add" 判斷是修改記錄還是添加記錄
'****************************************************
Sub sqltable(types)
rs("pro_id") = pro_id
rs("Col_id") = Col_id
rs("lj_id") = lj_id
rs("cla_id") = cla_id
rs("stuid") = stuid
rs("name") = name
rs("IdentityNO") = IdentityNO
rs("con") = con
End Sub
'****************************************************
'名稱:nowmenu
'功能:管理快捷菜單
'****************************************************
Sub nowmenu()
res "<h4><b>相關操作：</b>",1
res "<a href=""?action=add&"&urlinfos&""">添加新學號</a> | ",1
res "<a href=""?action=adds&"&urlinfos&""">批量添加學號</a> | ",1
res "<a href=""?action=list&"&urlinfos&""">學號列表查看</a> ",1
res "</h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub
'****************************************************
'名稱:listinfo
'功能:列表
'****************************************************
Sub listinfos()
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check_list() {
var check_lj=$("select")[0].options[$("select")[0].selectedIndex].value;
var check_Col=$("select")[1].options[$("select")[1].selectedIndex].value;
var check_pro=$("select")[2].options[$("select")[2].selectedIndex].value;
var check_cla=$("select")[3].options[$("select")[3].selectedIndex].value;
var check_name=$("input")[1].value;
var check_stuid=$("input")[0].value;
var check_IdentityNO=$("input")[2].value;
window.location.href="admin_stuid.asp?action=<%=action%>&page=<%=page%>&stuid="+check_stuid+"&name="+check_name+"&IdentityNO="+check_IdentityNO+"&lj_id="+check_lj+"&Col_id="+check_Col+"&pro_id="+check_pro+"&cla_id="+check_cla;
}
//-->
</SCRIPT>
<H6>搜索查詢： </H6>
<h5>
<ul>
<li class="searchin">學 號 <input type="text" value="<%=stuid%>" maxlength="20">
<li class="searchin">姓 名 <input type="text" value="<%=name%>" maxlength="10">
<li class="searchin">身份證號 <input type="text" value="<%=IdentityNO%>" maxlength="18">
</ul>
<div style="height:3px;width:100%;background: #fff;"></div>
<H6>切換查看：<a href="?action=list">全部</a> </H6>
<h5>
<ul>
<li>年 屆 <SELECT NAME="<%=claslm(0)%>" onchange="checkinfos('lj');"><%=my_sqlsel(lj_id,"lj")%></SELECT>
<li>系 所 <SELECT NAME="<%=claslm(1)%>" onchange="checkinfos('Col');"><%=my_sqlsel(Col_id,"Col")%></SELECT>
<li>專 業 <SELECT NAME="<%=claslm(2)%>" onchange="checkinfos('pro');" ><option>請選擇...</option></SELECT> <SPAN></SPAN>
<li>班 級 <SELECT NAME="<%=claslm(4)%>"><option>請選擇...</option></SELECT> <SPAN></SPAN>
</ul>
</h5>
<h5> <INPUT TYPE="button" value="查詢＆切換 " onclick="check_list();" class="submits"></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='10%'>學號</th>
<th width='8%'>姓名</th>
<th width='15%'>身份證號</th>
<%
If lj_id=0 Then res "<th width='5%'>年屆</th>",1
If Col_id=0 Then res "<th width=""15%"">系所</th>",1
If pro_id=0 Then res "<th width='15%'>專業</th>",1
If cla_id=0 Then res "<th width='12%'>班級</th>",1
%>
<th width='15%'>操作</th>
<th> </th>
</tr>
<%
Sql_Conditions=""
If lj_id<>0 Then Sql_Conditions=" and a.lj_id="&lj_id
If Col_id<>0 Then Sql_Conditions=Sql_Conditions&" and a.Col_id="&Col_id
If pro_id<>0 Then Sql_Conditions=Sql_Conditions&" and a.pro_id="&pro_id
If cla_id<>0 Then Sql_Conditions=Sql_Conditions&" and a.cla_id="&cla_id
If stuid<>"" Then Sql_Conditions=Sql_Conditions&" and a.stuid like '%"&stuid&"%'"
If name<>"" Then Sql_Conditions=Sql_Conditions&" and a.name like '%"&name&"%'"
If IdentityNO<>"" Then Sql_Conditions=Sql_Conditions&" and a.IdentityNO like '%"&IdentityNO&"%'"
sql="select a.id,stuid,name,IdentityNO,b.lj,c.Col,d.pro,e.cla "&_
" from admin_stu as a,"&_
"res_lj as b,"&_
"res_Col as c,"&_
"res_pro as d,"&_
"res_cla as e"&_
" where a.lj_id=b.id "&_
"and a.Col_id=c.id "&_
"and a.pro_id=d.id "&_
"and a.cla_id=e.id "&_
Sql_Conditions&" order by a.id desc"
strFileName="admin_stuid.asp?action="&action&"&lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id&"&cla_id="&cla_id
colnum="9"
formaction="admin_stuid.asp?action=del"
sqllist sql,colnum,strFileName,formaction
If outcom=True Then
showContent
showdelpages
End If
%>
</TABLE>
<%
check_auto
end sub
'****************************************************
'名稱:showContent
'功能:翻頁列表輸出
'****************************************************
sub showContent
dim i
i=0
do while not rs.eof
%>
<tr>
<td align="center">
<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px">
</td>
<td> <%=rs(1)%></td>
<td> <%=rs(2)%></td>
<td> <%=rs(3)%></td>
<%
If lj_id=0 Then res "<td>"&rs(4)&"</td>",1
If Col_id=0 Then res "<td>"&CutStr(rs(5),16)&"</td>",1
If pro_id=0 Then res "<td>"&CutStr(rs(6),16)&"</td>",1
If cla_id=0 Then res "<td>"&rs(7)&"</td>",1
%>
<td> <A HREF="admin_stuid.asp?action=edit&id=<%=Rs(0)%>">修改</A>｜<A HREF="admin_stuid.asp?action=del&id=<%=Rs(0)%>">刪除</A>｜<A HREF="admin_cert.asp?action=list&IdentityNO=<%=Rs(3)%>">證書</A>
</td>
<td> </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_stuid_save.asp" name="edit" enctype="multipart/form-data">
<TR><TD class="zq" width="20%"><%=clas(0)%></TD>
<TD> <SELECT NAME="<%=claslm(0)%>" onchange="checkinfos('lj');" style="width:200px;"><%=my_sqlsel(lj_id,"lj")%></SELECT>
<BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(1)%></TD>
<TD> <SELECT NAME="<%=claslm(1)%>" onchange="checkinfos('Col');" style="width:200px;"><%=my_sqlsel(Col_id,"Col")%></SELECT>
<BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(2)%></TD>
<TD> <SELECT NAME="<%=claslm(2)%>" onchange="checkinfos('pro');" style="width:200px;"><option>請選擇...</option></SELECT>
<span id="<%=claslm(2)%>_txt"></span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(3)%></TD>
<TD> <SELECT NAME="<%=claslm(3)%>" style="width:200px;"><option>請選擇...</option></SELECT></SELECT>
<span id="<%=claslm(3)%>_txt"></span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(4)%></TD>
<TD> <input type="text" name="<%=claslm(4)%>" style="width:200px;" maxlength="10">
<span id="<%=claslm(4)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(5)%></TD>
<TD> <input name="<%=claslm(5)%>" type="text" maxlength="20" value="" style="width:200px;" maxlength="20"/>
<span id="<%=claslm(5)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(6)%></TD>
<TD> <INPUT TYPE="text" NAME="<%=claslm(6)%>" maxlength="20" style="width:200px;" maxlength="18">
<span id="<%=claslm(6)%>_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%"><%=clas(7)%></TD>
<TD> <TEXTAREA NAME="<%=claslm(7)%>" ROWS="6" COLS="" style="width:200px;"></TEXTAREA>
<span id="<%=claslm(7)%>_txt"></span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%">相片</TD>
<TD><span id="file1_txt"><img id="imageurl" src="../upload/<%=pics%>" border=0 alt="" title="" style="width:90px; height:120px; margin-left:6px;"></span><BR> <input type="file" name="file1" onChange="ChangeImagePro(this.value)">
</td>
</tr>
<TR><TD> </TD><TD> <input type="submit" name="send" value=" 確 認 "><input type="hidden" name="action" value="saves">
</TD></TR>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -