insert.txt

tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的功能

	dim dbconn
	dim ADOObjConn
	dim strSQL
	dim Adoobject 
	dim strConn	
	
	strConn = "DSN=dblib;uid=;pwd=;database=db"
	set ADOObjConn = server.CreateObject ("ADODB.Connection")
	ADOObjConn.ConnectionString = strConn	
	ADOObjConn.Open

	set Adoobject = server.CreateObject ("ADODB.Recordset")	
	strSQL = "SELECT * from Tadm "
	Adoobject.Open   strSQL, ADOObjConn, 1, 3
	
		 
	Adoobject.AddNew
	'存储用户信息
    	Adoobject.Fields ("admname").Value =request.Form("name")     
    
 
    	Adoobject.Update
   	Adoobject.Close
   	Set Adoobject = Nothing