help_add_save.asp

来自「一个小小的固定资产程序」· ASP 代码 · 共 39 行

<!--#include file="connection.asp"-->
<%

	set rs=server.createobject("adodb.recordset")
	if request("del")<>"" then
		call delsoft()
	elseif request("edit")<>"" then
		call editsoft()
	else
		call newsoft()
	end if
sub newsoft()
	sql="select * from helptype where (id is null)" 
	rs.open sql,conn,1,3
	rs.addnew
	rs("type")=request("type")
	rs.update
end sub
sub editsoft()
	sql="select * from helptype where id="&request("id")
	rs.open sql,conn,1,3
	rs("type")=request("type")
	rs.update
end sub
sub delsoft()
	sql="DELETE * from helptype where id="&request("id")
	rs.open sql,conn,1,3
	rs.update
end sub

	rs.close
	set rs=nothing
	conn.close
	set conn=nothing

	Response.Redirect("help_manage.asp")

%>