📄 mangage.asp
字号:
<!--
=========================================================
重庆杰诺软件开发研究所开发制作
(http://www.cnkami.com)
诚信，创新，你的最好选择。。。。。。。。。。。
==========================================================
解压密码：www.cnkami.com
==========================================================
我们是重庆杰诺软件开发研究所。现由我们开发研究的主要针对教育培训机构，为用户提供认证证书的单位的证书查询系统以功能强大，使用方便等特点受到广大客户的爱待。为了让您更多的了解我们的证书查询系统。我们推出在线测试地址：
后台地址：http://www.cnkami.com/search/admin.asp
前台地址: http://www.cnkami.com/search/
本系统针对培训行业用户所以统-定价：200元/套 ，付费用户享受免费一年升级服务。系统现在为ACCESS版，注册用户可免费升级为SQL版
本系统功能：管理学生所获得的证书资料，如果在网上可方便用人单位查询学生的资料，从而杜绝不法分子以在贵培训机构的受培训并获得证书到处毁坏贵培训机构名誉！商业版在此功能上增加了一些功能。欲知详情请联系：QQ:1801099
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
有意请联系！：
QQ:199148195
QQ:171476439
邮件：flycomesoho@hotmail.com
电话：63700285 13608336048
如转载，请不要删除此信息！
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
--><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%if session("adminuser")<>"" then%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="CCS/Style.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="conn.asp"-->
<body>
<script language="JavaScript">
function checkname()
{
if (myform.studentname.value=="")
{
alert("请输入学生姓名！！");
myform.studentname.focus();
return false;
}
if (myform.zjnumber.value==""){
alert("请证件号！！");
myform.zjnumber.focus();
return false;
}
var j=myform.studentname.value.indexOf("=");
if(j!=-1){
alert("用户名中有非法字符");
myform.studentname.focus();
return false;
}
var i=myform.studentname.value.indexOf("'");
if (i!=-1){
alert("用户名中有非法字符");
myform.studentname.focus();
return false
}
var b=myform.zjnumber.value.indexOf("=");
if(j!=-1){
alert("证件号中有非法字符");
myform.zjnumber.focus();
return false;
}
var c=myform.zjnumber.value.indexOf("'");
if (c!=-1){
alert("证件号中有非法字符");
myform.zjnumber.focus();
return false;
}
document.myform.submit();
}
</script>
<SCRIPT>
function showtime(divname)
{
var targetDiv =eval("document.all." + divname);
if (targetDiv.style.display!='block'){
targetDiv.style.display="block";
}else{
targetDiv.style.display="none";
}
}
</SCRIPT>
<%action=request("action")
select case action
case "del"
call del()
case "editid"
call editid()
case "update"
call update()
case else
call main()
end select
sub main()
%>
<br>
<br>
<table width="542" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="e1e1e1">
<tr>
<td width="476"><font color="#FF0000">[ 查找单个学生资料 ]</font></td>
</tr>
<tr>
<td height="33" align="center" bgcolor="#FFFFFF"><form name="form1" method="post" action="">
<input name="searchkey" type="radio" value="1" checked>
学生姓名
<input type="radio" name="searchkey" value="0">
身份证 关键字：
<input name="keywords" type="text" id="keywords">
<input type="submit" name="Submit3" value="查询">
</form></td>
</tr>
</table>
<br>
<table width="540" height="37" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#E1E1E1" class="xuxian">
<tr>
<td width="97" height="27" align="center"><font color="#000000">学生姓名</font></td>
<td height="27" align="center"><font color="#000000">身份证号</font></td>
<td height="27" colspan="2" align="center">操作</td>
</tr>
<%searchkey=request.Form("searchkey")
keywords=request.Form("keywords")
if searchkey<>"" then
if searchkey="1" then
sql="select * from studentinfo where studentname='"&keywords&"' order by id desc"
else
sql="select * from studentinfo where zjnumber='"&keywords&"' order by id desc"
end if
else
sql="select * from studentinfo order by id desc"
end if
pmcount=10
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
pmcount=10
end if
rs.pagesize=pmcount
mpage=rs.pagecount
pageno=request("pageno")
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
if rs.eof or rs.bof then
%>
<tr bgcolor="#FFFFFF">
<td height="29" colspan="4" align="center">还没有相关的资料!</td>
</tr>
<%else
rs.absolutepage=pageno
loopno=pmcount
%>
<%
do while not rs.eof and loopno>0
%>
<tr bgcolor="#FFFFFF">
<td width="97" height="29" align="center"> <%=rs("studentname")%></td>
<td width="175" align="center"><%=rs("zjnumber")%></td>
<td width="130" height="29" align="center"><a href="mangage.asp?action=editid&id=<%=rs("id")%>">修改</a></td>
<td width="115" align="center"><div align="center"><a href="mangage.asp?action=del&id=<%=rs("id")%>">删除</a></div></td>
</tr>
<%
rs.movenext
loopno=loopno-1
loop
%>
<tr>
<td height="29" colspan="4" align="center">
<%
if cint(pageno)<2 then
response.write " 首页 | 上一页"
else
response.write "<a href=mangage.asp?pageno=1>首页</a> | "
response.write "<a href=mangage.asp?pageno="&pageno-1&">上一页</a>"
end if
%>
|
<%
if cint(mpage-pageno)<1 then
response.write "下一页 | 尾页"
else
response.write "<a href=mangage.asp?pageno="&pageno+1&">下一页</a> | "
response.write "<a href=mangage.asp?pageno="&mpage&">尾页</a>"
end if
%>
| 共计<%=cstr(rcount)%>主题<%=cstr(pageno)&"/"&cstr(mpage)&"页"%></td>
</tr>
<%
rs.close
end if%>
</table>
<%
end sub
sub del()
id=request("id")
delid "bookinfo","studentid",id
delid "studentinfo","id",id
%>
<table width="536" height="43" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="e1e1e1">
<tr>
<td class="tl150"><strong><font color="#FF0000">[ 操作成功 ]</font></strong></td>
</tr>
<tr>
<td height="20" class="tl150"> 成功删除此数据 <a href="mangage.asp">返回</a></td>
</tr>
</table>
<%
end sub
sub editid()
id=request("id")
set rs=conn.execute("select * from studentinfo where id=" & id)
%>
<form action="mangage.asp?action=update" method="post" name="myform" id="myform">
<br>
<br>
<table width="552" height="139" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#E1E1E1">
<tr>
<td height="21" colspan="2" class="tl150"><strong><font color="#FF0000">[修改学生信息]</font></strong></td>
</tr>
<tr>
<td width="19%" height="20">学生姓名:</td>
<td width="81%"><input name="studentname" type="text" id="studentname" value="<%=rs("studentname")%>"></td>
</tr>
<tr>
<td height="20">学生身份证号:</td>
<td><input name="zjnumber" type="text" id="zjnumber" value="<%=rs("zjnumber")%>">
<input name="id" type="hidden" id="zjnumber3" value="<%=rs("id")%>"></td>
</tr>
<tr>
<td height="23">所获得证书:</td>
<td valign="top"> <table width="440" border="0" cellspacing="0" cellpadding="0">
<%set rsisbook=conn.execute("select * from bookinfo where studentid=" & id)
do while not rsisbook.eof
isbookclass=isbookclass&rsisbook("bookclass")&","
isyear=isyear&rsisbook("getbookdate")&"|"
rsisbook.movenext
loop
isyear=split(isyear,"|")
rsisbook.close
set rsbook=server.createobject("Adodb.recordset")
sql="select * from bookclass"
rsbook.open sql,conn,1,1
if not rsbook.eof or not rsbook.bof then
q=0
do while not rsbook.eof
mydate=isyear(q)
%>
<tr>
<td width="97"> <input name="bookclass" type="checkbox" value="<%=rsbook("name")%>" <%if instr(isbookclass,rsbook("name"))<>0 then%>checked<%end if%> onclick="showtime('div<%=rsbook("id")%>')">
<%=rsbook("name")%></td>
<td width="343"><DIV name="div<%=rsbook("id")%>" id="div<%=rsbook("id")%>" <%if instr(isbookclass,rsbook("name"))<>0 then%>style="BORDER-RIGHT: black 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: black 1px solid; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px;WIDTH:313px;MARGIN-LEFT: 18px; BORDER-LEFT: black 1px solid; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: black 1px solid;display:block;BACKGROUND-COLOR: lightyellow"<%else%>style="BORDER-RIGHT: black 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: black 1px solid; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; MARGIN-LEFT: 18px; BORDER-LEFT: black 1px solid; COLOR: black; PADDING-TOP: 2px;WIDTH:313px;BORDER-BOTTOM: black 1px solid;display:none;BACKGROUND-COLOR: lightyellow"<%end if%>>
所获得证书时间:<%if instr(isbookclass,rsbook("name"))<>0 then
yearir=split(mydate,"-")
yeari=yearir(0)%>
<select name="<%=rsbook("name")%>" >
<%
for i=1990 to 2030
%>
<option value="<%=i%>" <%if yeari=cstr(i) then%>selected<%end if%> ><%=i%></option>
<%next%>
</select> 年
<select name="<%=rsbook("name")%>" size="1" >
<%monthi=yearir(1)
for i=1 to 12%>
<option value="<%=i%>" <%if monthi=cstr(i) then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
月 <select name="<%=rsbook("name")%>" size="1">
<%
dayi=yearir(2)
for i=1 to 31%>
<option value="<%=i%>" <%if dayi=cstr(i) then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
<%
rsbook.movenext
q=q+1
else%>
<select name="<%=rsbook("name")%>" >
<%
yeari=cstr(year(now()))
for i=1990 to 2030
%>
<option value="<%=i%>" <%if yeari=cstr(i) then%>selected<%end if%> ><%=i%></option>
<%next%>
</select>
年
<select name="<%=rsbook("name")%>" size="1" >
<%monthi=cstr(month(now()))
for i=1 to 12%>
<option value="<%=i%>" <%if monthi=cstr(i) then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
月 <select name="<%=rsbook("name")%>" size="1">
<%
dayi=cstr(day(now()))
for i=1 to 31%>
<option value="<%=i%>" <%if dayi=cstr(i) then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
<%
rsbook.movenext
end if%>日 </div></td>
</tr>
<%
loop
else
Response.write "请先增加证书再增加学生信息"
end if
rsbook.close
%> </table>
</td>
</tr>
<tr align="center">
<td height="23" colspan="2"><input type="button" name="Submit" value="修改" onclick="checkname()">
<input type="reset" name="Submit2" value="重写"></td>
</tr>
<tr align="center">
<td height="23" colspan="2"><font color="#FF0000">不修改信息点</font> <a href="mangage.asp">这里返回
</a> </td>
</tr>
</table>
</form>
<%
end sub
sub update()
%>
<%studentname=request.Form("studentname")
zjnumber=request.Form("zjnumber")
id=request.form("id")%>
<br>
<br>
<br>
<table width="537" height="144" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#E1E1E1">
<tr>
<td height="24" colspan="2"><font color="#FF0000"><strong>[修改后的学生信息]</strong></font></td>
</tr>
<tr>
<td width="118" height="28">学生姓名：</td>
<td width="406"><%=studentname%></td>
</tr>
<tr>
<td height="28">学生身份证号：</td>
<td><%=zjnumber%></td>
</tr>
<tr>
<td height="28">所获得证书及时间：</td>
<td>
<%
if request.form("bookclass")="" then
response.write "<script language=javascript>"
response.write "alert('请选择证书');"
response.write "javascript:history.go(-1);"
response.write "</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from studentinfo where id="&id&""
rs.open sql,conn,1,3
if not rs.eof or not rs.bof then
rs("studentname")=studentname
rs("zjnumber")=zjnumber
rs.update
else
response.write "<script language=javascript>"
response.write "alert('没有此ID的学生资料！');"
response.write "javascript:history.go(-1);"
response.write "</script>"
end if
rs.close
sql="delete * from bookinfo where studentid="&id&""
conn.execute(sql)
for each str in request.form("bookclass")
response.Write "<font color='red'>所获得的证书:</font>"&str &" "
zj=cdate(trim(replace (trim(request(str)),", ","-")))
set rsbookclass=server.CreateObject("Adodb.recordset")
sql="select * from bookinfo where bookclass='"&str&"' and studentid=" & cstr(id)
rsbookclass.open sql,conn,1,3
if not rsbookclass.eof or not rsbookclass.bof then
rsbookclass("bookclass")=str
rsbookclass("getbookdate")=zj
rsbookclass("studentid")=id
rsbookclass.update
rsbookclass.close
else
rsbookclass.addnew
rsbookclass("bookclass")=str
rsbookclass("getbookdate")=zj
rsbookclass("studentid")=id
rsbookclass.update
rsbookclass.close
end if
jiondate=year(zj)&"年"&month(zj)&"月"&day(zj)&"日"
response.write "<font color='red'>获得证书的时间为：</font>"&jiondate&"<BR>"
next
end if
%>
</td>
</tr>
<tr align="right">
<td height="28" colspan="2" class="tl150"><a href="mangage.asp">返回</a></td>
</tr>
</table>
<%end sub%><%closeconn%>
</body>
</html><%
else
response.write "<script language=javascript>"
response.write "alert('管理员操作超 时..........');"
response.write "javascript:history.go(-1)"
response.write "</script>"
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -