deleterecord.asp

来自「SmartCity远程数据库管理系统 本系统可使您不打开Microsoft A」· ASP 代码 · 共 30 行

<!-- #include file="fieldtype.asp" -->
<!-- #include file="connmdb.asp" -->
<%
	dim tablename,fieldname,val,fieldtype
	tablename = request("tablename")
	fieldname = request("fieldname")
	val = request("val")
	fieldtype = request("fieldtype")
	fieldtype = clng(fieldtype)

	rs.close
	select case fieldtype
		case vtext,vmemo
			sql = "select * from ["&tablename&"] where ["&fieldname&"] = '"&val&"'"
		case vint,vbool
			sql = "select * from ["&tablename&"] where ["&fieldname&"] = "&val&""
		case vdate
			sql = "select * from ["&tablename&"] where ["&fieldname&"] = cdate('"&val&"')"
	end select
	rs.open sql,conn,1,3

	rs.delete

	rs.close
	conn.close
	set rs = nothing
	set conn = nothing	
	
	response.redirect "recordlist.asp?tablename="&tablename&""
%>