upload_delete.asp

ASP网页

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

if flagfield="" then flagfield="picflag" 
if filefield="" then filefield="picfile" 
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") 
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', "+filefield+"=null where "+keyword+"='"+keyno+"'"
else
	sqltext="update "+tablename+" set "+flagfield+"='0', "+filefield+"=null where "+keyword+"="&keyno
end if	
'Response.Write sqltext
cn.Execute sqltext
Response.Write("<script language=Javascript>")	
Response.Write("window.close()")
Response.Write("</script>")
%>