savelm.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 23 行

<!--#include file="dbpath/dbpath.asp"-->
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if
%>
<%
dim rst
	
	set rst=server.CreateObject("ADODB.RecordSet")
	       	if request("method")="added"  then 
			rst.open "select * from linktype",conn,3,2
			rst.addnew
			rst("type")=request("addtype")
			rst.update
			rst.close
            response.redirect "changepass.asp"
 
		end if  

set rst=nothing  
conn.close
set conn=nothing %>