ASP原码

									NA="N/A"
				
					CONST AdOpenForwardOnly = 0
					CONST AdOpenStatic = 3
					CONST AdOpenkeyset = 1
					CONST AdOpenDynamic = 2
					CONST adLOckReadOnly = 1
					CONST adLockPessimistic =2
					CONST adLockOptimistic = 3
					CONST adLockBatchOptimistic = 4
					
					UTP_ADMIN=0
					UTP_TEACHER=1
					UTP_STUDENT=2
					UTP_CLASSADMIN=3
					UTP_LEADER=4
					UTP_SPECIALIST=5
					UTP_SCHOOLADMIN=6
					
					DSN_ACLASS="DSN=ActiveMeeting;UID=iactive;PWD=iactive1973;"
				
					WRITE_ACLASS_DB=true    'true/false
				
					ADMIN_NAME="123456"
					ADMIN_PASSWORD="123456"
				%>
				
									function GetNewID(cn, table_name, id_field_name)
						dim rs
						set rs=server.CreateObject("ADODB.recordset")
						rs.Open "Select max("&id_field_name&") from "&table_name&"", cn,0,1
					
						if isnull(rs.Fields(0)) then
							GetNewID=1
						else 
							GetNewID=rs.Fields(0)+1
						end if
						
						rs.Close
					End function
				%>