📄 adminjg_regchecksave.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
seljgid=trim(Request.Form("seljgid"))'flName是多选框的名称
deleteorcheck=Request.Form("deleteorcheck")
if deleteorcheck="jgregcheck" then
if seljgid<>"" then
seljgid=split(seljgid,",")
set rs=server.createobject("adodb.recordset")
for i=0 to ubound(seljgid)
sql="select * from jg where id=" & seljgid(i)
rs.open sql,conn,1,2
if rs.eof then
response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
response.end
end if
rs("ischeck")="0"
rs("isupdate")="否"
rs.update
rs.close
next
response.write "<script language=JavaScript>{window.alert('审核成功 !');window.location.href='adminjg_regcheck.asp';}</script>"
end if
end if
if deleteorcheck="delforever" then
if seljgid<>"" then
seljgid=split(seljgid,",")
for i=0 to ubound(seljgid)
set rsimg=server.createobject("adodb.recordset")
sqldelimg="select * from jg where id=" & seljgid(i)
rsimg.open sqldelimg,conn,1,3
if rsimg.eof then
response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
response.end
end if
img=rsimg("img")
if img<>"" then
set DelObj=Server.CreateObject("Scripting.FileSystemObject")
filepath="upload/"&img
Delpath=server.mappath(filepath)
if DelObj.FileExists(Delpath) then
set DelFi=DelObj.getfile(Delpath)
DelFi.Delete
set Delobj=nothing
end if
end if
set rsde=server.createobject("adodb.recordset")
s="select * from jg where id=" & seljgid(i)
rsde.open s,conn,1,2
session("jg_name")=rsde("name")
session("jg_login")=rsde("login")
rsde.delete
'-----------------------***************
ip111 = Request.ServerVariables("HTTP_X_FORWARDED_FOR") ' 代理IP
ip222 =Request.ServerVariables("REMOTE_ADDR")
if ip111 = "" then
ipupdate = ip222
else
ipupdate = ip111
end if
jgpcname=Request.ServerVariables("HTTP_USER_AGENT")
sql_jgupddiary="select * from deljgdiary"
set rs_jgupddiary=server.CreateObject("adodb.recordset")
rs_jgupddiary.open sql_jgupddiary,conn,1,2
rs_jgupddiary.addnew
rs_jgupddiary("jg_login")=session("jg_login")
rs_jgupddiary("jg_name")=session("jg_name") '教工姓名
rs_jgupddiary("lastupduser")=session("adminlogin")
rs_jgupddiary("lastupdname")=session("adminname")
rs_jgupddiary("lastupddate")=now
rs_jgupddiary("lastupdip")=ipupdate
rs_jgupddiary("os")=jgpcname
rs_jgupddiary.update
rs_jgupddiary.close
set rs_jgupddiary=nothing
'------------------------------********************
next
response.Write "<script language=javascript>{window.alert('恭喜您，该教工的资料和相片全部成功删除');window.history.go(-1);}</script>"
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -