admin_term.asp
来自「eayanQuery思燕大学成绩查询系统 版本 V1.6」· ASP 代码 · 共 253 行
ASP
253 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/md5.asp"-->
<!--#include file="../include/ReplaceHtml.asp"-->
<!--#include file="../include/PublicFunction.asp"-->
<!--#include file="../include/Session.asp"-->
<%
Dim Action
Action=request("Action")
Select Case Action
Case "Add_Term"
Call Add_Term()
Case "Edit_Term"
Call Edit_Term()
Case "Set_Current"
Call Set_Current()
Case "SetCurrentTerm"
Call SetCurrentTerm()
Case "Del_Term"
Call Del_Term()
Case Else
Call Main(0)
End Select
Sub Main(Add_Or_Edit)
Dim Form_State 'Add_Or_Edit
'说明，0代表添加数据，1代表编辑现有数据
If Add_Or_Edit=0 then Form_State=0
If Add_Or_Edit=1 then
Form_State=1
Dim Edit_Term_sql,Edit_Term_rs
Call OpenConn()
Edit_Term_sql="select * from [Term_info] where Term_id='"&request.QueryString("Term_id")&"'"
Set Edit_Term_rs=server.CreateObject("adodb.recordset")
Edit_Term_rs.open Edit_Term_sql,Initialize_Conn,1,3
End if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>admin_term.asp管理 </title>
<link href="images/my_style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE1 {
border-bottom: #8ab105 1px solid;
border-left: #8ab105 1px solid;
border-right: #8ab105 1px solid;
border-top: #8ab105 1px solid;}
-->
</style>
</head>
<body background="images/admin_MainBg.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="22%" height="44"> </td>
<td width="28%"> </td>
<td width="28%"> </td>
<td width="22%"> </td>
</tr>
<tr>
<td height="28"> </td>
<td align="center" colspan="2"><div align="center">
<script language="javascript">
function CheckForm() {
if(myform.Term_Name.value == '') {
alert('请输入要添加的学期的名称！');
myform.Term_Name.focus();
return false;
}
}
</script>
<form name="myform" method="post" action="Admin_Term.asp?Action=Add_Term" onSubmit="return CheckForm()">
<% if Form_State=1 then
response.Write("<font color=""green"">【</font>学期编辑<font color=""green"">】</font>")
else
response.Write("<font color=""red"">【</font>学期添加<font color=""red"">】</font>")
end if
%>
<input value="<% if Form_State=1 then response.Write(Edit_Term_rs(1))%>" type="text" name="Term_Name">
<% if Form_State=1 then
response.Write(" <input type=""submit"" name=""Submit"" value=""完成编辑"" /></div></td>")
response.Write("<input type=""hidden"" name=""Edit_model"" value=""1"">")
response.Write("<input type=hidden name=Term_id value="""&Edit_Term_rs(0)&""">")
else
response.Write("<input type=""submit"" name=""Submit"" value=""确定""/></div></td>")
end if
%>
</form>
</div> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td align="center" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" height="312" colspan="3"><table width="100%" border=0 cellpadding=0 cellspacing=0>
<tr>
<td class="STYLE1" height="22"><div align="center">学期编号</div></td>
<td class="STYLE1"><div align="center">学期名称</div></td>
<td class="STYLE1"><div align="center">设定为当前学期</div></td>
<td class="STYLE1"><div align="center"><font color="red">管理操作</font></div></td>
</tr>
<% Dim TermList_rs,Term_sql,page,epage
Set TermList_rs=server.CreateObject("adodb.recordset")
Term_sql="select * from Term_Info order by term_id desc"
TermList_rs.open Term_sql,Initialize_Conn,1,1
'*****************分页代码**********************************
TermList_rs.pagesize=5
page=HtmlEncode(request("page"))
if page <> "" then
if isnumeric(page)=false then
response.write "<script>alert('非法参数!');history.go(-1);</script>"
'response.Write page
response.end
end if
epage=cint(HtmlEncode(request("page")))
if epage<1 then epage=1
if epage>TermList_rs.pagecount then epage=TermList_rs.pagecount
else
epage=1
end if
if TermList_rs.bof or TermList_rs.eof then
response.Write("<br><font color=red>暂时没有记录.</font>")
response.End()
end If
TermList_rs.absolutepage=epage
for i=0 to TermList_rs.pagesize-1
if TermList_rs.bof or TermList_rs.eof then exit for' 当数据库中的记录数小于for循环中的i的值时，退出for循环
%>
<tr align=center>
<td><%=TermList_rs(0)%></td>
<td><%=TermList_rs(1)%></td>
<td><%
if TermList_rs("Current_Term")=1 then
response.write"<font color='#ff0000'>Yes</font>"
else
response.write"<a href='admin_Term.asp?action=SetCurrentTerm&Term_id="&TermList_rs(0)&"'>设为当前学期</a>"
end if
%> </td>
<td><a href=Admin_Term.asp?action=Edit_Term&Term_id=<%=TermList_rs(0)%>>编辑</a> <!--<a onClick="return confirm('确定要删除这个学期吗？');" href=Admin_Term.asp?action=Del_Term&Term_id=<\\=TermList_rs(0)\\>删除</a>---> </td>
</tr>
<%
TermList_rs.movenext()
next
%>
</table>
<%
response.write ("<p align=center>")
response.write ("<a href=Admin_Term.asp?action=showlist&page=0>首页</a> ")
response.write ("<a href=Admin_Term.asp?action=showlist&page="&epage-1&">前一页</a> ")
response.write ("<a href=Admin_Term.asp?action=showlist&page="&epage+1&">后一页</a> ")
response.write ("<a href=Admin_Term.asp?action=showlist&page="&TermList_rs.pagecount&">末页</a>")
response.write ("<p align=center>现在是第<font color=red>"&epage&"</font>页一共有<font color=red>"&TermList_rs.pagecount&"</font>页</p>")
'******************分页代码结束*****************************************
TermList_rs.close
Set TermList_rs=nothing
Call CloseConn()
%> </td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="153"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<% End Sub
'删除学期的过程调用**********************************
Sub Del_Term()
Dim Term_id,Del_Term_sql,Is_Current,Is_CurrentTerm_sql
Call OpenConn()
Term_id=HtmlEncode(request.QueryString("Term_id"))
Is_CurrentTerm_sql="select Current_Term from [Term_info] where Term_id='"&Term_id&"'"
Set Is_Current=Initialize_Conn.execute(Is_CurrentTerm_sql)
If Is_Current(0) = 1 then '如果要删除的学期是当前学期，则提示不能删除，
response.Write("<script>alert('被删除的学期是 当前学期 ，所以不能删除。');history.go(-1);</script>")
response.End()
Call CloseConn()
Else
Del_Term_sql="delete from [Term_info] where Term_id='"&Term_id&"'"
Initialize_Conn.execute Del_Term_sql
Call CloseConn()
Response.Write("<script>location.href='admin_term.asp';</script>")
End if
End Sub
'添加 或 编辑学期的过程调用**************************
sub Add_Term()
Dim Term_rs,Term_id,Term_sql,Term_name,Edit_model,Current_Term
Edit_model=request.Form("Edit_model")
Set Term_rs=server.CreateObject("adodb.recordset")
Term_id=HtmlEncode(request.Form("Term_id"))
Term_name=HtmlEncode(request.Form("Term_name"))
Current_Term=HtmlEncode(request.Form("Current_Term"))
If Edit_model=1 then'如果Edit_model=1，则是编辑模式，而不是添加新纪录，此时无需检查是否存在相同的记录,而且要分别书写SQL语句
Term_sql="select [Term_name] from [Term_info] where"&_
"[Term_id]='"&HtmlEncode(request.Form("Term_id"))&"'"&_
"order by Term_id desc"
Term_rs.open Term_sql,Initialize_Conn,1,3
Term_rs("Term_name")=Term_name
Term_rs.Update
Term_rs.close
Set Term_rs=nothing
Call CloseConn()
response.Write("<script>alert('编辑成功，按确定返回.');location.href='admin_term.asp?action=showlist';</script>")
else
Term_sql="select [Term_name] from [Term_info] where"&_
"[Term_name]='"&HtmlEncode(request.Form("Term_name"))&"'"&_
"order by Term_id desc"
Term_rs.open Term_sql,Initialize_Conn,1,3
if Term_rs.eof AND Term_rs.bof then
Term_rs.addnew
Term_rs("Term_name")=Term_name
Term_rs.Update
Term_rs.close
Set Term_rs=nothing
Call CloseConn()
response.Write("<script>alert('数据 成功添加.按确定返回。');location.href='admin_term.asp?action=showlist';</script>")
else
Response.Write("<script>alert('对不起，您添加的名称已经存在.');location.href='"&request.ServerVariables("HTTP_REFERER")&"';</script>")
Call CloseConn()
end if
end if
End Sub
'负责编辑学期的过程调用*************************
sub Edit_Term()
Call Main(1)
Call CloseConn()
end sub
'负责设置学期为当前学期的过程调用*****************
Sub SetCurrentTerm()
Initialize_Conn.execute("update [Term_info] set Current_Term=0")
Initialize_Conn.execute("update [Term_info] set Current_Term=1 where Term_id="&HtmlEncode(request("Term_id"))&"")
response.Write("<script>location.href='admin_term.asp';</script>")
End Sub
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?