?? admin_res_cla.asp
字號:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="common/admin_res_cla_inc.asp"-->
<script src="inc/admin_res.js" type="text/javascript"></script>
<%
nowtit="班級"
Login_Judge
powerid=123
Dim lj_id,Col_id,pro_id,cla,con
action=che(request("action"))
id=che(request("id"))
pro_id = che(request("pro_id"))
Col_id = che(request("Col_id"))
lj_id = che(request("lj_id"))
If Not IsNumeric(lj_id) Then lj_id=0
If Not IsNumeric(Col_id) Then Col_id=0
If Not IsNumeric(pro_id) Then pro_id=0
Dim clas(5)
clas(0)="年屆"
clas(1)="系所"
clas(2)="專業"
clas(3)="班級"
clas(4)="備注"
Dim claslm(5)
claslm(0)="lj_id"
claslm(1)="Col_id"
claslm(2)="pro_id"
claslm(3)="cla"
claslm(4)="con"
If action="list" Then
Ispower powerid & "1"
const MaxPerPage=10
restit nowtit,infotit(0)
nowmenu
listinfos
ElseIf action="add" Then
Ispower powerid & "2"
restit nowtit,infotit(1)
nowmenu
addinfos
ElseIf action="save" Then
Ispower powerid & "2"
jstable
If cla="" Then errormsg "項目填寫不完整111!"
If lj_id="0" Then errormsg "請選擇年屆!"
If Col_id="0" Then errormsg "請選擇系所!"
If pro_id="0" Then errormsg "請選擇專業!"
set rs=server.createobject("adodb.recordset")
Sql = "SELECT * FROM [res_cla] WHERE id=0"
rs.Open Sql, Conn, 1, 3
rs.AddNew
sqltable "add"
rs.Update
rs.close
rightmsg "admin_res_cla.asp?action=list",""
ElseIf action="edit" Then
Ispower powerid & "3"
restit nowtit,infotit(2)
nowmenu
editinfos
ElseIf action="mod" Then
Ispower powerid & "3"
jstable
If cla="" Then errormsg "項目填寫不完整!"
If IsNumeric(id)=False Or id="0" Then errormsg "參數錯誤!"
set rs=server.createobject("adodb.recordset")
Sql = "SELECT * FROM [res_cla] WHERE id="&id
rs.Open Sql, Conn, 1, 3
If Not rs.Eof Then
sqltable "mod"
rs.Update
Else
errormsg "參數錯誤"
End If
rs.close
rightmsg "admin_res_cla.asp?action=list",""
ElseIf action="del" Then
Ispower powerid & "4"
if id="" then errormsg "參數錯誤!"
set dels=conn.execute("delete from link_info where id in ("&id&")")
set dels=Nothing
rightmsg "admin_res_cla.asp?action=list",""
End If
%>
<!--#include file="admin_page_footer.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -