?? admin_res_yea.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_yea_inc.asp"-->
<%
nowtit="年屆"
Login_Judge
powerid=120
Dim lj
Dim ljs(0)
ljs(0)="年屆"
Dim ljslm(0)
ljslm(0)="lj"
Dim Col_id,nowyear
action=che(request("action"))
id=che(request("id"))
If action="list" Then
Ispower powerid & "1"
const MaxPerPage=15
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 lj = "" Then errormsg "參數(shù)錯誤!"
cladb ""
sql=Sqlinfo("*","res_lj","id=0","","","")
set rs=server.createobject("adodb.recordset")
rs.Open Sql, Conn, 1, 3
rs.AddNew
sqltable("add")
rs.Update
rs.close
rightmsg "?action=list&chk=0&Col_ids="&Col_id&"&ljs=&&nowyear="&nowyear,""
ElseIf action="edit" Then
Ispower powerid & "3"
restit nowtit,infotit(2)
nowmenu
editinfos
ElseIf action="mod" Then
Ispower powerid & "3"
jstable
If lj = "" Then errormsg "參數(shù)錯誤!"
cladb id
sql=Sqlinfo("*","res_lj","id="&id,"","","")
set rs=server.createobject("adodb.recordset")
rs.Open Sql, Conn, 1, 3
If Not rs.Eof Then
sqltable("mod")
rs.Update
Else
errormsg "參數(shù)錯誤"
End If
rs.close
rightmsg "?action=list&chk=0&Col_ids="&Col_id&"&ljs=&nowyear="&nowyear,""
ElseIf action="del" Then
Ispower powerid & "4"
if id="" then errormsg "參數(shù)錯誤!"
set dels=conn.execute("delete from res_lj where id in ("&id&")")
set dels=Nothing
rightmsg "?action=list&chk=0&Col_ids="&Col_id&"&ljs=&nowyear="&nowyear,""
End If
Sub cladb(strid)
Dim class_check
Sql_Conditions=""
If strid<>"" Then Sql_Conditions=" and id<>"&strid
sql=Sqlinfo("id","res_lj"," lj = "&lj & Sql_Conditions,"","","")
class_check = connopen(sql)
If isArray(class_check) Then errormsg "該 <B>"&lj&"</B> 年屆已存在!"
End Sub
%>
<!--#include file="admin_page_footer.asp"-->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -