📄 admin_exec.asp

📁 在线考试系统
💻 ASP
字号:
<%@ Language=VBScript %>

<% option explicit %>

<!-- #include file="conn_forum.asp" -->
<!-- #include file="conn_member.asp" -->


<html>
<head>
</head>
<body>

<%
	dim rs
	set rs=Server.CreateObject ("ADODB.Recordset")

	'//verify
	dim pwd
	pwd=Request("pwd")
	rs.Open "SELECT * FROM tMember WHERE uid='admin'",connm,3,3
	if rs("pwd")<>pwd then
		Response.Write "Access denied!"
		Response.End 
	end if
	rs.Close 
	
	
	dim iAreaID 
	dim sAreaIcon
	dim sAreaName
	dim sAreaDescript
	dim iThemeCount
	dim iReplyCount
	dim sMaster
	dim iAreaIDNew
	
	iAreaID=CLng(Request("AreaID"))
	sAreaIcon=Request("AreaIcon")
	sAreaName=Request("AreaName")
	sAreaDescript=Request("AreaDescript")
	iThemeCount=CLng(Request("ThemeCount"))
	iReplyCount=CLng(Request("ReplyCount"))
	sMaster=Request("Master")
	iAreaIDNew=CLng(Request("AreaIDNew"))


	dim sAction
	sAction=Request("action")
	
	select case sAction 
		case "add"
			Response.Write "adding area...."
			rs.Open "tIndex",connf,3,3
			rs.AddNew 
			rs("AreaID")=iAreaID 
			rs("AreaIcon")=sAreaIcon 
			rs("areaName")=sAreaName 
			rs("AreaDescript")=sAreaDescript
			rs("ThemeCount")=0
			rs("ReplyCount")=0
			rs("Master")=sMaster
			rs.Update 
			rs.Close
		
		case "change"
			Response.Write "Changing..."
			rs.Open "SELECT * FROM tIndex WHERE areaid=" & iAreaID ,connf,3,3
			rs("AreaIcon")=sAreaIcon 
			rs("areaName")=sAreaName 
			rs("AreaDescript")=sAreaDescript
			rs("ThemeCount")=iThemeCount
			rs("ReplyCount")=iReplyCount
			rs("Master")=sMaster
			rs.Update 
			rs.Close
			
		case "reset"
			Response.Write "Resetting..."
			rs.Open "SELECT * FROM tIndex WHERE areaid=" & iAreaID ,connf,3,3
			rs("ThemeCount")=iThemeCount
			rs("ReplyCount")=iReplyCount
			rs("lastThemeID")=0
			rs("lastTheme")=""
			rs("lastAuthor")=""
			rs.Update 
			rs.Close
			
		case "master"
			Response.Write "Setting master..."
			rs.Open "SELECT * FROM tIndex WHERE areaid=" & iAreaID ,connf,3,3
			rs("Master")=sMaster
			rs.Update 
			rs.Close
		
		case "areaid"
			Response.Write "Changing area id ..."
			rs.Open "SELECT * FROM tIndex WHERE areaid=" & iAreaID ,connf,3,3
			rs("areaId")=iAreaIDNew 
			rs.Update 
			rs.Close
		
		case "delete"
			Response.Write "Deleting..."
			rs.Open "SELECT * FROM tIndex WHERE areaid=" & iAreaID ,connf,3,3
			rs.Delete
			rs.Close
		
		case "scope"
			Response.Write "Scoping...<hr>"
			rs.Open "SELECT * FROM tIndex WHERE areaid=" & iAreaID ,connf,3,3
			
			if not(rs.BOF and rs.eof) then
				dim i
				for i=1 to rs.Fields.Count
					Response.Write "<b>" & rs.Fields(i-1).Name & "</b> = " & rs.Fields(i-1).Value & "<br>" & vbCrLf 
				next
			end if
			
			rs.Close
		
	end select

	set rs=nothing
	call closeconnf
	call closeconnm
%>

<p>OK!</p>
<a href="admin.htm">back</a>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -