pic_deleteacc.asp

来自「ASP网页」· ASP 代码 · 共 40 行

<%@ Language=VBScript %>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%
keyno=Request.QueryString("keyno")
keyword=Request.QueryString("keyword")
flagfield=Request.QueryString("flagfield")
code=Request.QueryString("code")
strflag=Request.QueryString("strflag")
tablename=Request.QueryString("tablename")

if flagfield="" then flagfield="picflag" 
if code="" then code=tablename
if keyword="" then keyword="keyno"
if strflag="" then strflag="0"

set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.createobject("ADODB.recordset") 
set rs2=server.createobject("ADODB.recordset") 

htmlname="keyno="+keyno+"&keyword="+keyword+"&flagfield="+flagfield+"&filefield="+filefield+"&strflag="+strflag+"&tablename="+tablename+"&picsize="+picsize
if strflag="1" then
	sqltext="update "+tablename+" set "+flagfield+"='0' where "+keyword+"='"+keyno+"'"
else
	sqltext="update "+tablename+" set "+flagfield+"='0' where "+keyword+"="&keyno
end if	
'Response.Write sqltext
cn.Execute sqltext
sqltext="delete from picfiles where code='"+code+"' and keyno="&keyno
cn.Execute sqltext

Response.Write("<script language=Javascript>")	
Response.Write("window.close()")
Response.Write("</script>")
%>