?? 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 + -