delscore.asp

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

<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"-->
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim sc_Class,error_Class,gsid,gcid
Set sc_Class = New ScoreClass		
Set error_Class = New ErrorClass	
gsid = trim(request.QueryString("sid"))
gcid = trim(request.QueryString("cid"))
If gsid<>"" and gcid<>"" Then		
  	Call sc_Class.delScore(gsid,gcid)
  	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
	
%>