savezone.asp

来自「一个用asp实现的bbs」· ASP 代码 · 共 30 行

<!--#include file="../include/admentor2.asp"-->
<%
'''''''''''  (C) Stefan Holmberg 1999  
'''''''''''  Free to use if these sourcecode lines is not deleted 
'''''''''''  Contact me at [e-mail]
'''''''''''  http://www.sqlexperts.com
'''''''''''  AdMentor homepage at http://www.create-a-webshop.com


    Set oConn = AdMentor_DBOpenConnection()
    
    Set oRS = Server.CreateObject("ADODB.Recordset")
    Set oRS.ActiveConnection = oConn
    oRS.Open "select * from zone",,adOpenKeyset,adLockOptimistic
    
    	'New
    	'
	If g_AdMentor_Demo = False Then
    	oRS.AddNew
    	oRS("zonename").Value = Request.Form("name")
    	oRS("descr").Value = Request.Form("description")
    	oRS.Update
	End If
	oRS.Close
	Set oRS = Nothing
	oConn.Close
	Set oConn = Nothing
	
    Response.Redirect "adminzones.asp"
%>