delstudent.asp

来自「Sql数据库的应用」· ASP 代码 · 共 25 行

<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"-->
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim stuc_Class,error_Class,gid
Set stuc_Class = New StudentClass		
Set error_Class = New ErrorClass	
gid = trim(request.QueryString("id"))
If gid<>"" Then		
  	Call stuc_Class.delStudent(gid)
  	If ERR.number <> 0 Then
  		error_Class.Founderr = True
  		error_Class.Message = error_Class.Message & "删除失败<br>"
  		Call error_Class.showMessage("Manage.asp","失败")
  	Else
  		error_Class.Message = error_Class.Message & "删除成功<br>"  		
  		Call error_Class.showMessage("Manage.asp","成功")  		
  	End If  	
Else	
	Call error_Class.showMessage("Manage.asp","查询字符串有误")
End If
	
%>