cp_add_save.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 40 行

<!--#include file="top.asp"-->
<%if userflag1=0 then
response.redirect"ok.asp?action=flag"
end if

page=request("page")
if page="" then page=1

if request("action")="del" then
id=request("id")

		set rdsDel = Server.CreateObject("ADODB.Recordset")
		sqlDel = "Select * From SMT_cp Where SMT_ID="&ID&" and SMT_yp_id="&session("id")
		rdsDel.Open sqlDel,Conn,1,1
		
		strPhotoName = rdsDel("SMT_pic")
		if strPhotoName <>"" and len(strPhotoName)>18 then
			Dim fso
			
			set fso = CreateObject("Scripting.FileSystemObject")
			fso.DeleteFile Server.MapPath("../"&strPhotoName)
			set fso = nothing
		end if
		rdsDel.close
		set rdsDel=nothing
conn.execute("delete From SMT_cp Where SMT_ID="&ID&" and SMT_yp_id="&session("id"))
conn.execute("delete from SMT_leaveword where SMT_book_sort=4 and SMT_book_table="&id&" and SMT_book_ypid="&session("id")&"")

Response.Redirect "cp.asp?page="&page

elseif request("action")="key" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_cp where SMT_id="&request("id")&" and SMT_yp_id="&session("id")
rs.open sql,conn,1,3
rs("SMT_key")=request("zt")
rs.update
rs.close
set rs=nothing
response.redirect"cp.asp?page="&page
end if%>