del.asp

来自「亿众购物系统 一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 39 行

ASP
39
字号
<!--#include file="../Session.asp"-->
<html>
<head>
<title>删除</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%	dim strSQL
for each name in Request.Form 
	if instr(1,name,"Tag_") > 0 then
		if Request.Form(name) = 1 then
			i = mid(name,5)
			if DeleteString = "" then
				DeleteString = "id=" & Request.Form("ID_"&i)
			else
				DeleteString = DeleteString & " or id=" & Request.Form("ID_"&i)
			end if
		end if
	end if	
next
response.write DeleteString

if DeleteString <> "" then
	on error resume next
	set rs=server.createobject("adodb.recordset")
	strSQL = "delete from hotpro where " & DeleteString
	'Response.Write strsql
	rs.Open strSQL,conn
end if	
	
'Response.Write strSQL	
if err<>0 then
	Response.Write err.Description 
else
	Response.Redirect "Default.asp"
end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?