addonesave.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if fla0<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if%>
<%if request("action")="del" then

set Fs = Server.CreateObject("Scripting.FileSystemObject")
set rs = Server.CreateObject("ADODB.Recordset")
set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from SMT_yp where SMT_addone_id="&request("addone_id")
rs.open sql,conn,1,1
do while not rs.eof

userfolder="../../UserDocument/"&rs("SMT_user")
If Fs.folderExists(server.mappath(userfolder)) Then
Fs.DeleteFolder(server.mappath(userfolder))
end if

sql1="select * from SMT_news where SMT_yp_id="&rs("SMT_id")
rs1.open sql1,conn,1,1
do while not rs1.eof
	filename="../../html/news/"&year(rs1("SMT_date"))&month(rs1("SMT_date"))&"/"&replace(replace(replace(rs1("SMT_date"),"-",""),":","")," ","")&".html"
	If Fs.FileExists(server.mappath(filename)) Then
	set Os = Fs.GetFile(server.mappath(filename))
	Os.Delete
	end if
	rs1.movenext
Loop
rs1.close
conn.execute("delete from SMT_news where SMT_yp_id=" & rs("SMT_id"))

sql1="select * from SMT_xxnews where SMT_yp_id="&rs("SMT_id")
rs1.open sql1,conn,1,1
do while not rs1.eof
	filename="../../html/xxnews/"&year(rs1("SMT_date"))&month(rs1("SMT_date"))&"/"&replace(replace(replace(rs1("SMT_date"),"-",""),":","")," ","")&".html"
	If Fs.FileExists(server.mappath(filename)) Then
	set Os = Fs.GetFile(server.mappath(filename))
	Os.Delete
	end if
	rs1.movenext
Loop
rs1.close
conn.execute("delete from SMT_xxnews where SMT_yp_id=" & rs("SMT_id"))

conn.execute("delete from SMT_cp where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMSJ_cp_sort where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMT_Job_zp where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMTb2b_sca where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMT_yp where SMT_id=" & rs("SMT_id"))
conn.execute("delete from SMT_upfile where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMT_leaveword where SMT_book_ypid=" & rs("SMT_id"))
conn.execute("delete from SMT_message where SMT_yp_id=" & rs("SMT_id") & " or SMT_send_id=" & rs("SMT_id"))
conn.execute("delete from SMT_collection where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMT_collection_sort where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMT_friend where SMT_yp_id=" & rs("SMT_id"))
conn.execute("delete from SMT_exhibit where SMT_yp_id=" & rs("SMT_id"))

rs.movenext
loop
rs.close
set rs1=nothing
set rs=nothing
set fs=nothing

conn.execute("delete from SMT_yp where SMT_addone_id=" & request("addone_id"))
conn.execute("delete from SMTb2b_sca where SMT_addone_id=" & request("addone_id"))
conn.execute("delete from SMT_exhibit where SMT_addone_id=" & request("addone_id"))

conn.execute("delete from SMT_ypaddone where SMT_addone_id=" & request("addone_id"))
conn.execute("delete from SMT_ypaddtwo where SMT_addone_id=" & request("addone_id"))

Response.Redirect "addoneadd.asp"
end if
dim ypxxone

if request("action")="add" then
addone=request("addone")
if addone="" then
	response.write "<script>alert('对不起，省份不能为空！');history.go(-1);</Script>"
	Response.End 
end if
set rs = Server.CreateObject("ADODB.Recordset")
sql="select *  from SMT_ypaddone" 
rs.open sql,conn,1,3

rs.AddNew
rs("SMT_addone")=addone
rs.Update
rs.Close
set rs=nothing
Response.Redirect "addoneadd.asp"
end if

if request("action")="edit" then
addone=request("addone")
if addone="" then
	response.write "<script>alert('对不起，省份不能为空！');history.go(-1);</Script>"
	Response.End 
end if
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from SMT_ypaddone where SMT_addone_id="&request("addone_id")
rs.open sql,conn,1,3
rs("SMT_addone")=addone
rs.Update
rs.Close
set rs=nothing

set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_ypaddtwo where SMT_addone_id="&request("addone_id")
rs.open sql,conn,1,3
do while not rs.eof
rs("SMT_addone")=addone
rs.Update
rs.movenext
loop
rs.Close
set rs=nothing
Response.Redirect "addoneadd.asp"
end if

if request("action")="aa" then
conn.execute("update SMT_ypaddone set SMT_date="&SMT_citytime&" where SMT_addone_id="&request("id"))
Response.Redirect "addoneadd.asp"
end if
if request("action")="aaa" then
conn.execute("update SMT_ypaddtwo set SMT_date="&SMT_citytime&" where SMT_addtwo_id="&request("id"))
Response.Redirect "addoneadd.asp?id="&request("oneid")&"&one="&request("one")
end if
%>