sch_option.asp

直接附加数据库！ 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序

<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="../Public/School_Cookies.asp" -->
<% 
Dim Param,Ncid,Rs,SQL,Re
Dim Schid,UserName

'//获取用户的登陆标记
If IsArray(Session("School")) Then
 Schid = Session("School")(2)
 UserName = Session("School")(0)
Else
 Session.Abandon() 
 Response.write "<script>alert('-登录后才能进行该操作！-');window.close();</script>"
 Response.End()
End if

Param    = Replace_Text(Request("param"))
Ncid     = Replace_Text(Request("perid"))
'//判断参数是否有效
If Param = "" Then
 Response.write "<script language=JavaScript>alert('操作错误！');window.close();</script>"
 Response.End()
End if
If Ncid = "" Then
 Response.write "<script language=JavaScript>alert('您没有选择记录！');window.close();</script>"
 Response.End()
Else
 Ncid  = Split(Ncid,",")
End if

'//判断操作分支
Select Case Param
 Case "delsud":Call DelSud_Submit() '删除毕业生
End Select

'//功能函数

'--------------------------------------删除毕业生----------------------------------------------
Sub DelSud_Submit()
 For i = 0 To Ubound(Ncid)
   '彻底删除毕业生记录
   SQL = "Delete From [pH_School_Student] Where Schid='"&Schid&"' And Ncid="&Cstr(Ncid(i))
   Conn.Execute(SQL)
 Next
 Response.write "<script language=JavaScript>alert('删除成功！');window.close();</script>"
End Sub

'//关闭数据库连接

CloseDB
 %>