executecommandaction.asp

一套完整的学生课程管理系统

<!-- #include file="utility/checkAdmin.asp" -->

<%
	'****************************************
	'目的：			执行自定义SQL语句
	'开始时间：		2005-6-3 18:46
	'最后修改时间：	2005-6-3 18:46
	'编写人：		某某某
	'****************************************
	
	'定义相关变量
	dim sql	
	dim leftSQL		'输入命令的左边六个字符	
	dim sqlArray	'把输入的命令组分解存储到数组中
	dim sqlCount	'总共的命令数
	dim i			'循环计数器
	
	'取值，去除多余空格	
	sql = Trim(Request.Form("sqlCmd"))
	'转化为小写字母
	sql = LCase(sql)

	
	'判断是否输入了数据
	if(sql = "") then
		Alert("请输入SQL命令后再提交！")
		GoBack()
		Response.end
	end if
		
	
	'对命令进行分割
	sqlArray = Split(sql,";")
	'取数组最大下标
	sqlCount = UBound(sqlArray)
	
	'检查所有命令是否正确
	For i = 0 To sqlCount
		'取命令类型
		leftSQL = left(Replace(Replace((sqlArray(i)),Chr(13),""),Chr(10),""),6)
		'判断sql是否有效
		if(leftSQL <> "update" and leftSQL <> "delete" and leftSQL <> "insert") then
			Alert("无效的SQL命令，请修改后再提交！")
			GoBack()
			Response.end
		end if
	Next
		
	
	'执行命令
	For i = 0 To sqlCount
		ExecuteNonQuery(sqlArray(i))
	Next	
	
	Alert("成功执行" & sqlCount + 1 & "条命令，请继续其他操作！")
	Go("welcome.htm")
	
%>