📄 admin_stuid_inc.asp
字号:
</FORM>
</TABLE>
<%
check_auto
end Sub
'****************************************************
'名称:addinfos
'功能:批量添加信息
'****************************************************
Sub addsinfos()
%>
<FORM METHOD=POST ACTION="admin_stuid.asp?action=saves" name="edit" onsubmit="return CheckForm_adds();">
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<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>
</TABLE>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab2" id="idTB">
<tr>
<th width="20%"><%=clas(4)%></th>
<th width="20%"><%=clas(5)%></th>
<th width="20%"><%=clas(6)%></th>
<th width="20%"><%=clas(7)%></th>
<th></th>
</tr>
<TR>
<TD> <input type="text" name="<%=claslm(4)%>" style="width:90%;" maxlength="10"></td>
<TD> <input type="text" name="<%=claslm(5)%>" style="width:90%;" maxlength="20"/></td>
<TD> <INPUT TYPE="text" NAME="<%=claslm(6)%>" style="width:90%;" maxlength="18"></td>
<TD> <INPUT TYPE="text" NAME="<%=claslm(7)%>" style="width:90%;" maxlength="20"></td>
<TD> </TD>
</tr>
</TABLE>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab2">
<TR><TD width="20%">行数：<input id="idFirst" name="idFirst" style="height:16px;width:25px;text-align:center;ime-mode:disabled;" value=1 maxlength="3" onkeypress="var k=event.keyCode; if ((k<=57 &&k>=48)) return true;else return false" onpaste="return false" onFocus="this.select();">
<input type="button" onclick="setRow()" value="设定">
<input type="button" onclick="addRow()" value=" + "></TD><TD> <input type="submit" value=" 确 认 ">
</TD></TR>
</TABLE>
</FORM>
<div id="bottom"></div>
<script language="JavaScript">
<!--
function addRow(){//添加表格的一行
oTR=$val("idTB").insertRow(idTB.rows.length);
tmpNum=oTR.rowIndex;
oTD0=oTR.insertCell(0);
//oTD.innerText="第" + tmpNum+"行";//在该处添加的HTML代码会原封不动的显示在页面上
oTD0.innerHTML+=" <input type=\"text\" name=\"<%=claslm(4)%>\" maxlength=\"10\" style=\"width:90%;\">";
oTD1=oTR.insertCell(1);
oTD1.innerHTML+=" <input type=\"text\" name=\"<%=claslm(5)%>\" maxlength=\"20\" style=\"width:90%;\">";
oTD2=oTR.insertCell(2);
oTD2.innerHTML+=" <INPUT TYPE=\"text\" NAME=\"<%=claslm(6)%>\" maxlength=\"18\" style=\"width:90%;\">";
oTD3=oTR.insertCell(3);
oTD3.innerHTML+=" <INPUT TYPE=\"text\" NAME=\"<%=claslm(7)%>\" maxlength=\"20\" style=\"width:90%;\">";
oTD4=oTR.insertCell(4);
oTD4.innerHTML+="<a href=\"#\" onclick=\"delRow(this.parentElement.parentElement.rowIndex);\">删除</a>";
$val("idFirst").innerText=$val("idTB").rows.length-1;
window.location.href="#bottom";
return true;
}
//-->
</script>
<%
check_auto
end Sub
'****************************************************
'名称:editinfos
'功能:编辑信息
'****************************************************
Sub editinfos()
If id="" Then errormsg "参数错误！"
Sql_Lists="lj_id,Col_id,pro_id,cla_id,name,stuid,IdentityNO,con,pic"
sql=Sqlinfo(Sql_Lists," admin_stu"," id="&id,"","","")
rs_edit = connopen(sql)
If isArray(rs_edit)=False Then errormsg "参数错误"
If rs_edit(8,0)<>"" Then pics=rs_edit(8,0)
%>
<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 colspan=2 class="art_tit zq"><A HREF="admin_stuid.asp?action=list">返回<%=nowtit%>列表</A></TD></TR>
<TR><TD class="zq" width="20%"><%=clas(0)%></TD>
<TD> <SELECT NAME="<%=claslm(0)%>" onchange="checkinfos('lj');" style="width:200px;"><%=my_sqlsel(rs_edit(0,0),"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(rs_edit(1,0),"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)%>" value="<%=rs_edit(4,0)%>" 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="<%=rs_edit(5,0)%>"/ 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)%>" value="<%=rs_edit(6,0)%>" 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;" maxlength="20"><%If rs_edit(7,0)<>"" Then res Replace(rs_edit(7,0),"<；br>；",""),1%></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="mod">
<INPUT TYPE="hidden" NAME="id" value="<%=id%>">
</TD></TR>
</FORM>
</TABLE>
<SCRIPT LANGUAGE="JavaScript">
postCols("<%=rs_edit(1,0)%>");
function checkpro(){
setSel2(<%=rs_edit(2,0)%>,$("SELECT")[2]);
}
postalls("<%=rs_edit(0,0)%>","<%=rs_edit(1,0)%>","<%=rs_edit(2,0)%>");
function checkcla(){
setSel2(<%=rs_edit(3,0)%>,$("SELECT")[3]);
}
</SCRIPT>
<%
end sub
Sub check_auto()
res "<SCRIPT LANGUAGE=""JavaScript"">",1
if Col_id<>0 Then res "postCols("""&Col_id&""");",1
if lj_id<>0 And Col_id<>0 And pro_id<>0 Then res "postalls("""&lj_id&""","""&Col_id&""","""&pro_id&""");",1
res "function checkpro(){",1
if pro_id<>0 Then res "setSel2("&pro_id&",$(""SELECT"")[2]);",1
res "}",1
res "function checkcla(){",1
if cla_id<>0 Then res "setSel2("&cla_id&",$(""SELECT"")[3]);",1
res "}",1
res "</SCRIPT>",1
End sub
Sub excel()
%><table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="admin_stuid_into.asp" name="into" enctype="multipart/form-data" target="I1">
<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%">EXCEL文件</TD>
<TD> <input type="file" name="file1" onChange="ChangeImagePro(this.value)" class="put"> <span id="file1_txt">*</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%">EXCEL所在表名</TD>
<TD> <input type="text" name="exceltable" value="Sheet1" class="put"> <span id="<%=claslm(3)%>_txt">* Sheet1为EXCEL的默认表名，一般无需修改。</span><BR>
</td>
</tr>
<TR><TD class="zq" width="20%">导入模式</TD>
<TD> <input type="radio" name="intomodle" checked value="1"> 重复则跳过 <input type="radio" name="intomodle" value="2"> 重复则覆盖 </td>
</tr>
<TR><TD> </TD><TD> <input type="submit" name="send" value=" 确 认 ">
</TD></TR>
</FORM>
</TABLE>
<IFRAME frameBorder=0 id=I1 width="0" height="0" name="I1" scrolling=yes src=""></IFRAME>
<%
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -