saverecord.asp

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

<!-- #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.addnew
	for each field in rs.fields
		if request(field.name) = "on" then
			rs(field.name) = true
		else 
			if request(field.name) = "" then
				rs(field.name) = false
			else
				rs(field.name) = request(field.name)
			end if
		end if
	next
	rs.update

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