admin_couarr_addr.asp

来自「da jia lai kan kan hao dong dong」· ASP 代码 · 共 54 行

<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_couarr_inc.asp"-->
<%
res w3chead(""),1
Login_Judge
nowtit="教学场地"
powerid=1244
Ispower powerid
Dim addr,con
action=che(request("action"))
id=che(request("id"))
Dim nows(1)
nows(0)="场地"
nows(1)="说明"
Dim nowlm(1)
nowlm(0)="addr"
nowlm(1)="con"

If action="list" Then
	restit nowtit,infotit(0)
	const MaxPerPage=2
	nowmenu
	addr_listinfos
ElseIf action="add" Then
	restit nowtit,infotit(1)
	nowmenu
	addr_addinfos
ElseIf action="save" Then
	addr_jstable
	If addr = "" Then errormsg "参数错误"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [couarr_addr] WHERE id=0"
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	addr_sqltable("add")
	rs.Update
	rs.close
	rightmsg "?action=list",""
ElseIf action="edit" Then 
	restit nowtit,infotit(2)
	nowmenu
	addr_editinfos
ElseIf action="mod" Then
	
	rightmsg "?action=list",""
ElseIf action="del" Then
	
	rightmsg "?action=list",""
End If
res footer(1),0
%>